XL 2013 Concatenation en VBA

suistrop

XLDnaute Impliqué

• 8 Décembre 2015

• #2

Re : Concatenation en VBA

Bonjour,

Essai ce code

Bonjour,

Essai ce code :

Code:

Sub toto()
col = 8
For i = 1 To 6
    For y = i + 1 To 6
        For Z = y + 1 To 6
            Cells(1, col) = Cells(1, i) & ";" & Cells(1, y) & ";" & Cells(1, Z)
            col = col + 1
        Next Z
    Next y
Next i
End Sub

Cordialement

 

Vote positif 0 Vote négatif

B

Backhandshot

XLDnaute Occasionnel

• 9 Décembre 2015

• #3

Re : Concatenation en VBA

Bonsoir à tous, Suistrop
Merci Suistrop.
Le code fonctionne très bien et si je veux adapter à plusieurs lignes ?
Merci encore pour le code

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 9 Décembre 2015

• #4

Re : Concatenation en VBA

Bonjour,

Pour le faire sur tout plein de ligne tu rajoute une boucle par dessus et tu fais varier le numéro de ligne dans cells(num_ligne, colonne)

Cordialement,

 

Vote positif 0 Vote négatif

B

Backhandshot

XLDnaute Occasionnel

• 9 Décembre 2015

• #5

Re : Concatenation en VBA

Bonjour,

Désolé mais je ne réussis pas à adapter le code correctement, quand je rajoute une boucle les autres lignes sont décalées de 20,40,60 cases etc...mais la concaténation se fait sur les bonnes lignes mais pas dans les colonnes au dessous de la première.

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 9 Décembre 2015

• #6

Re : Concatenation en VBA

bonsoir,

voir cette même routine de 'suistrop' avec la boucle Lig rajoutée

Code:

Sub toto()
Lig = 1 'voir départ de la 1'ligne !?
Do: Col = 8
  For I = 1 To 6: For Y = I + 1 To 6: For Z = Y + 1 To 6
    Cells(Lig, Col) = Cells(Lig, I) & ";" & Cells(Lig, Y) & ";" & Cells(Lig, Z): Col = Col + 1
  Next Z: Next Y: Next I
  Lig = Lig + 1
Loop Until Cells(Lig, 1) = ""
End Sub

EDIT: voir ton classeur exemple avec cette macro dans le module !

 

Pièces jointes

• ConcatenerVBA.xls

  34 KB · Affichages: 30

Dernière édition: 9 Décembre 2015

Vote positif 0 Vote négatif

B

Backhandshot

XLDnaute Occasionnel

• 9 Décembre 2015

• #7

Re : (RÉSOLU) Concatenation en VBA

Bonjour tous, Suistrop et Roland_M

J'avais réussi à adapter le code juste avant de venir poster que j'avais trouvé avec le code de Suistrop, maintenant il y aura 2 solutions. Merci beaucoup de votre aide. Voici l'autre code que j'avais adapté.

Sub toto()
Col = 8
For fin = 1 To Range("a1048576").End(xlUp).Rows
For I = 1 To 6
For Y = I + 1 To 6
For Z = Y + 1 To 6
Cells(fin, Col) = Cells(fin, I) & ";" & Cells(fin, Y) & ";" & Cells(fin, Z)
Col = Col + 1

Next Z
Next Y
Next I
Col = 8
Next fin
End Sub

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 10 Décembre 2015

• #8

Re : Concatenation en VBA

bonjour,

juste une petite remarque à propos du nombre de lignes,
ne pas mettre en dur 65536 ou comme ici 1048576
mais plutôt utiliser Rows.Count toujours fiable et compatible !

 

Vote positif 0 Vote négatif