concaténation complète 2 colonnes et plusieurs lignes

  • Initiateur de la discussion Initiateur de la discussion phendoc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

phendoc

Guest
Bonjour,
Après de vaines recherches, où je n'ai trouvé qu'une réponse en vba, j'ai besoin de votre aide.
J'ai un fichier avec 2 colonnes et j'aimerais obtenir toutes les combinaisons possibles avec les différentes lignes existantes :

colonne A
docteur
avocat
boulanger


colonne B
paris
lille
marseille
lyon


Une concaténation classique ( =CONCATENER(A1:A3;B1:B3 )ne me donne que "docteur paris", "avocat lille", etc... alors que je souhaite obtenir :
"docteur paris", "docteur lille", "docteur marseille", "docteur lyon", "avocat paris", etc...

Quelle est la formule pour la colonne C pour arriver à ce résultat ?

Merci d'avance pour vos lumières.
Michel
 
Re : concaténation complète 2 colonnes et plusieurs lignes

bonjour phendoc,

voici une solution à adapter :
Code:
Private Sub CommandButton1_Click()
Dim listeMetier(), listeVille(), i As Integer, j As Integer, cpt As Integer

With ThisWorkbook.Sheets("Feuil1")
    listeMetier = .Range("A1:A3").Value
    listeVille = .Range("B1:B4").Value
    
    .Range("D:D").Clear
    For i = LBound(listeMetier) To UBound(listeMetier)
        For j = LBound(listeVille) To UBound(listeVille)
            cpt = cpt + 1
            .Range("D" & cpt) = listeMetier(i, 1) & " " & listeVille(j, 1)
        Next j
    Next i
End With
End Sub

a+
 
Re : concaténation complète 2 colonnes et plusieurs lignes

Merci mromain, je vais essayer avec ce code.
Si toutefois quelqu'un avait une formule plutôt que du vba, ce serait chouette car je n'ai jamais touché à ce langage.
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
1 K
A
Réponses
4
Affichages
2 K
Aladdin007
A
B
Réponses
16
Affichages
3 K
bigjimparisien
B
D
Réponses
17
Affichages
3 K
D
B
Réponses
2
Affichages
2 K
Berna
B
Retour