Bloucle copie nom vers le bas

Bonjour,

Je cherche une une façon de faire une boucle pour permettre de copier la valeur du premier champ jusqu'à ce qu'il rencontre une autre valeur. Ensuite, copier la valeur jusqu'à la prochaine. Même chose jusqu'à la dernière cellule.

Un exemple en pièce jointe devrait être plus clair.

Merci de m'aider dans ma recherche de solutions!

Bonjour

Je n'arrive pas à appliquer tes explications à ton exemple.

Es-tu sûr que tu n'as pas commis d'erreur ?

Bye !

Bonjour GMB,

J'ai ajouté un onglet "Transition" en espérant que cela facilite la compréhension!

Étape 1: Décaler vers le haut les éléments de la colonne B et C de façon à ce qu'ils soit sur la ligne 1.

Étape 2: Copier le nom du premier client(colonne A) sur toutes les lignes suivantes jusqu'à ce qu'on tombe sur un autre nom de client.

Étape 3: Répéter l'étape 2 avec le nom du client suivant.

Étape 4: Répéter les étapes 2 et 3 avec la colonne B et C.

Merci

Bonjour

Désolé mais je ne comprends toujours pas comment en partant de ta feuille ''intitial'' tu arrives à ta feuille ''désiré''

Bye !

Bonjour,

J'y suis arrivé de cette façon.

Probablement pas la plus optimale.

Sub Correspondance()

Application.ScreenUpdating = False

Range("B1:B2").Delete Shift:=xlUp

Range("C1:C4").Delete Shift:=xlUp

Dim derniere_ligne As Long

i = 1

derniere_ligne = Cells(Rows.Count, 1).End(xlUp).Row

For j = 2 To derniere_ligne

If Range("A" & i) <> "" And Range("A" & i + 1) = "" Then Range("A" & i).Copy Range("A" & i + 1)

i = i + 1

Next

Application.ScreenUpdating = True

End Sub