Discussion :

[kikaillo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mordrhim]

ton i est pas initialisé,

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[0],"";"",R[i]C[-5])"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Value = Selection.Value & ";" & ActiveCell.Offset(i, -5).Value

et apres reviens voir ici demain