Discussion :

[nb26130]

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 :

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

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

[laurent_ott]

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

Code :

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

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 :

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

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 :

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

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.

[nb26130]

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