Problème boucles VBA

Bonjour à tous,
J'essaie de me former seule au VBA ... La force n'est pas en moi aujourd'hui ! Je souhaiter concaténer 4 colonnes ( G, H, I, J) en une 5ème (K). Début à la ligne 3 ça c'est à ma portée, pas de souci ! Par contre, impossible de faire une boucle :(
J'y suis depuis ce matin (je suis plutôt tenace) mais là j'ai épuisé toutes les solutions que je connais et j'ai l'impression de tourner en rond !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Concatainer() 'concatainer les 4 colonnes du PlCl en 1 Dim I As Integer I = 3 Dim PlanClas As String PlanClas = Cells(3, 11)   'Dans le feuil14 With Feuil14 'Concatainer les colonnes du plan de classification Cells(3, 11) = Cells(3, 7) & " " & Cells(3, 8) & " " & Cells(3, 9) & " " & Cells(3, 10)   'Boucle sur toutes les lignes Do Until .Range("G" & I).Value = "" I = I + 1 Loop   End With End Sub

---

:merci:

Bonjour,
Bonne nouvelle, votre boucle fonctionne parfaitement, par contre, elle ne sert pas à grand-chose...
Je m'explique :

Code:

---

1 2 3

Do Until .Range("G" & I).Value = "" I = I + 1 Loop

---

Ca veut dire : tant que la cellule colonne G ligne (i) n'est pas vide alors incrémenter i.
Oui mais c'est bien et ça donne la valeur de i, la dernière ligne vide, rien de plus. C'est peut-être le but recherché ?

Notez que With Feuil14 ne sert pas à grand-chose puisque vous pouvez utiliser directement Feuil14.Range("G" & I).Value = ""
et n'est pas utilisé dans : Cells(3, 11) = Cells(3, 7) & " " & Cells(3, 8) & " " & Cells(3, 9) & " " & Cells(3, 10)

peut-être que vous voulez faire cela quelque chose comme cela :

Code:

---

1 2 3 4

Do Until Feuil14.Range("G" & I).Value = "" Feuil14.Cells(I, 11) = Feuil14.Cells(I, 7) & " " & Feuil14.Cells(I, 8) & " " & Feuil14.Cells(I, 9) & " " & Feuil14.Cells(I, 10) I = I + 1 Loop

---

Ou

Code:

---

1 2 3 4 5 6 7

With Feuil14 Do Until .Range("G" & I).Value = "" .Cells(I, 11) = .Cells(I, 7) & " " & .Cells(I, 8) & " " & .Cells(I, 9) & " " & .Cells(I, 10) I = I + 1 Loop End With

---

Vous dites vous "former seule au VBA", ce tutoriel vous fera gagner du temps : http://laurent-ott.developpez.com/tu...el-vba-tome-1/

Bonne programmation.

Bonjour Laurent,
Merci beaucoup. Je viens de télécharger votre tuto. Je vais l'étudier de pres :D