Combinaisons de textes

Bonjour,

Je souhaiterais générer des combinaisons automatiques pour 3 colonnes :

A = 12 lignes

B = 50 lignes

C = 80 lignes

Il faudrait :

A1 + B1 + C1

A1 + B1 + C2

etc... Une fois la colonne C terminée on passe automatiquement à la ligne suivante pour B :

A1 + B2 + C1

A1 + B2 + C2

etc... Une fois la colonne B terminée on passe automatiquement à la ligne suivante pour A :

A2 + B1 + C1 ...

Pouvez-vous m'aider ?

Merci beaucoup !

Bonjour,

Un essai (code à coller dans un module standard de l'éditeur VBA accessible via ALT + F11) :

Sub CombineTxt()

'Déclaration des variables
Dim MaxA As Integer, MaxB As Integer, MaxC As Integer, A As Integer, B As Integer, C As Integer, D As Integer

With Sheets(1) 'Feuille n°1
    MaxA = .Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne non vide colonne A
    MaxB = .Range("B" & Rows.Count).End(xlUp).Row 'Idem B
    MaxC = .Range("C" & Rows.Count).End(xlUp).Row 'Idem C
    For A = 1 To MaxA 'Boucle sur colonne A
        For B = 1 To MaxB 'Idem B
            For C = 1 To MaxC 'Idem C
                D = D + 1 'Indice de ligne unique pour colonne D (résultat)
                .Range("D" & D) = .Range("A" & A) & .Range("B" & B) & .Range("C" & C) 'Combinaison de texte des 3 colonne A, B et C
            Next C
        Next B
    Next A
End With

End Sub

Bonjour Pedro22,

On dirait que ça fonctionne mais j'ai ce message d'erreur :

C'est normal ?

Merci beaucoup

FabienRB a écrit :

Bonjour Pedro22,

On dirait que ça fonctionne mais j'ai ce message d'erreur :

C'est normal ?

Merci beaucoup

Ressaye en remplaçant "D As Integer" par "D As Long"