A la ligne si la cellule est vide

Excel
1

Bonsoir,

Merci aux personnes qui prendront le temps de m’aider.

J’ai attaché un fichier Excel qui contient deux feuilles.
La feuille nommée départ est ce que j’ai.
La feuille nommée Résultat est que je souhaite obtenir. ( je n’ai fait l’exemple que sur quelques adresses, il faudrait que la formule traite toutes les adresses).

Attention : Chaque adresse de la feuille départ est séparée par une cellule qui semble vide.
Dans word, cette cellule contient : Tabulation, espace, tabulation.
C’est juste que cela n’apparaît pas dans Excel (ou que je ne sais pas le faire apparaître).

Si vous avez une idée…Perso, j’ai essayé avec un SI, sans succès.

Adresses.xlsx (58,9 Ko)

2

Bonjour,

A tester avec une petite macro

MODULE :

Sub test()
  'Déclaration des variables
  Dim Dc%, j%, i%, nb%, k%
  Dim Ws As Worksheet, Wd As Worksheet
  'Passe en mode de calcul manuel pour plus rapidité
  Application.Calculation = xlCalculationManual
  'Attricution des variables
  Set Ws = Sheets("Départ")
  Set Wd = Sheets("Résultat")
  Dc = Ws.Cells(1, Columns.Count).End(xlToLeft).Column 'N° de la dernière colonne non vide de la ligne 1
  j = 1
  k = 1
  'Boucle sur les colonnes
    For i = 1 To Dc
    'Si le Nb de caractère est = a 1 et si sa valeur est = " " alors
      If Len(Ws.Cells(1, i).Value) = 1 And Ws.Cells(1, i).Value = " " Then
      ' Nb prens le N° de la colonne
        nb = Cells(1, i).Column
        'copie la plage des cellules allant jusqu'à "nb" dans la feuille Résultat
        Ws.Range(Cells(1, k), Cells(1, nb)).Copy Wd.Cells(j, 1)
        'Passe à la ligne 2 dur la feuille Résultat
        j = j + 1
        ' Modifie la variable k au N° de la colonne + 1
        k = nb + 1
      End If
    Next i
  Application.Calculation = xlCalculationAutomatic
  Wd.Activate
  'Vide la mémoire
  Set Ws = Nothing
  Set Wd = Nothing
End Sub

Adresses.xlsm (73,4 Ko)

3

Bonjour Mimimathy,

Wow ça impressionne ! Un petit clique et…le miracle opère.

Il faut que j’essaie ça avec un groupe de donnée qui aurait plus ou moins d’inscrit.

Un tout grand merci pour aide, précieuse et appréciée elle est !

Un bon dimanche à vous :slight_smile: