concaténer vba

[roro69]

Bonjour
voici dans le fichiers joints je rassemble des infos suivant le chiffre de ma première colonne; j'arrive à concaténer les cellules de ma deuxième colonne; mais je n'arrive pas à récupèrer le chiffre de ma première colonne .
Merci de votre aide et du temps consacré.

 

[pierrejean]

Re : concaténer vba

bonjour roro69

Sub test()
ligne = 2
For n = 2 To F1.Range("A65536").End(xlUp).Row
mot = mot & F1.Range("B" & n) & vbLf
  If F1.Range("A" & n) <> F1.Range("A" & n + 1) Then
    F2.Cells(ligne, 1) = Range("A" & n) & " " & mot
    ligne = ligne + 1
     mot = ""
  End If
Next n
 F2.Select
End Sub

 

[roro69]

Re : concaténer vba

Bonjour pierrejean
Merci de votre réponses
çà marche très bien