VBA EXCEL : Concaténation des cellules d'une colonne
Bonjour,
Débutant sur vba, j'essaie de faire une procédure qui concatène toutes les cellules d'une colonne en insérant un ';' entre chaque cellule...
Mais mon programme plante, voilà ce que j'ai imaginé:
Code:
1
2
3
4
5
6
7
8
9
10
11
| Sub Macro6()
Dim i As Integer
Range("A2").Copy Range("F2")
Range("F2").Select
Do While ActiveCell.Offset(i, -5) <> Empty
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[0],"";"",R[i]C[-5])"
i = i + 1
Loop
End Sub |
Est-ce que quelqu'un voit ce qui ne vas pas?
Merci par avance et bonne journée
