Problème de boucle

Bonjour à toutes et à tous, nouveau petit problème sur la liste que je veux réaliser. J'ai réussi à faire ce que je veux réaliser sur une ligne (concaténer 2 cellules, les copier et coller les valeurs dans une autre cellule, et mettre le prénom sous le nom dans cette cellule, mais je galère pour effectuer la boucle de cette réalisation jusqu'à la fin de ma liste.

Merci de votre aide.

Cordialement.

Ci-joint modèle de liste.

Bonjour militaire,

je te retourne ton fichier modifié :

Ctrl e ➯ travail effectué !

Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

ajout : note bien que ça fait le travail pour tous les noms, même si tu as 3 lignes vides intercalaires (lignes 123 à 125).

dhany

Un grand merci à toi. Trop facile et trop rapide.

merci pour ton retour ! je te souhaite bonne continuation !

dhany

Bonjour,

Quelque chose d'un peu plus conforme au possibilités de VBA que du code enregistré : sans sélection, sans formule, sans copier, sans coller, travail sur tableaux hors Excel...

Sub RegroupNomPrénom()
    Dim np(), aa, i&
    aa = ActiveSheet.Range("A1").CurrentRegion.Value
    ReDim np(1 To UBound(aa), 0)
    For i = 2 To UBound(aa)
        np(i, 0) = aa(i, 1) & Chr(10) & aa(i, 2)
    Next i
    With ActiveSheet.Range("C1").Resize(UBound(aa))
        .Value = np
        .WrapText = True
    End With
End Sub

NB-Supprimer les lignes vides qui coupent la liste !

Cordialement.

edit : Salut Dhany !

Merci à vous deux pour votre réactivité et votre facilité à maitriser VBA.

Cordialement.