Macro pour insérer avant le texte d'une cellule le contenu d'une autre

[leflohic]

Bonjour,

Colonne A : liste de prénom
Colonne B : liste de nom

Je chercher à enserrer dans les cellules de la colonne B le contenue de la colonne A en gardant le contenu de la colonne B (prénom + nom) et cela depuis la ligne 2 jusqu'à la dernière ligne avec une valeur .

Ci-dessous un début de macron avec les problème suivants :
- Je n'arrive qu'avec la valeur de la cellule A2 mais je n'arrive pas à faire toute la colonne
- Je n'arrive pas a faire de le Range de la cellule B2 à la dernière avec du texte

Merci par avance

Sub Test()
Dim c As Range
For Each c In Range ("B2:B100")
If c.Value <> "" Then c.Value = [A2].Value & c.Value
Next
End Sub

 

[M12]

Bonjour

Sub Test()
Dim c As Range,Dl%
Dl= Range("B" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne B
For Each c In Range ("B2:B"&Dl)
If c.Value <> "" Then c.Value = c.offset(0,-1) & " " & c.Value
Next
End Sub

 

[leflohic]

Bonjour

Sub Test()
Dim c As Range
For Each c In Range ("B2:B100")
If c.Value <> "" Then c.Value = c.offset(0,-1) & " " & c.Value
Next
End Sub

Merci cela fonction parfaitement.

Avez-vous la solution pour le Range de la cellule B2 à la dernière ligne avec valeur (et non à la B100 ) ?

 

[M12]

Re,

Regarde sur mon premier post, je l'ai modifié 😉

 

[debzac]

Bonjour tout le monde
Mon habitude est d'utiliser l'autre boucle plutôt que each
Sub Test()
Dim i As Integer
For i = 2 To Cells(100000, 1).End(xlUp).Rows - 1
Cells(i, 2) = Cells(i, 2) & " " & Cells(i, 1)
Next i
End Sub
Bien à vous