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

leflohic · 21 Juin 2018

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 · 21 Juin 2018

Bonjour

Code:

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 · 21 Juin 2018

M12 à dit:

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 · 21 Juin 2018

Re,

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

debzac · 21 Juin 2018

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

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

leflohic

XLDnaute Nouveau

M12

XLDnaute Accro

leflohic

XLDnaute Nouveau

M12

XLDnaute Accro

debzac

XLDnaute Nouveau

Discussions similaires