Vba liste

Résolu/Fermé
vince2323 Messages postés 7 Date d'inscription lundi 16 décembre 2013 Statut Membre Dernière intervention 18 décembre 2013 - 16 déc. 2013 à 11:18
dlt-pan Messages postés 481 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 23 décembre 2014 - 16 déc. 2013 à 13:14
Bonjour à vous
J'aimerai pouvoir faire une macro me réalisant un liste via une concaténation de cellules je m'explique

J'ai des valeurs de A1 à A10 et de B1 à B10 donc j'aimerai avoir C1=A1&B1,C2=A1&B2....B2&A1.....

Merci de votre aide

6 réponses

dlt-pan Messages postés 481 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 23 décembre 2014 67
16 déc. 2013 à 11:26
bonjour
Peux tu etre plus precis sur le resultat attendu ?
Veux tu les combinaisons de A1 et toutes les autres puis de A2 et toutes les autres et ainsi de suite ?
0
vince2323 Messages postés 7 Date d'inscription lundi 16 décembre 2013 Statut Membre Dernière intervention 18 décembre 2013
16 déc. 2013 à 11:27
Exact tu as bien compris et le resultat en colonne C .
Merci
0
dlt-pan Messages postés 481 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 23 décembre 2014 67
16 déc. 2013 à 11:45
dans la colonne C tu recupères toutes les combinaisons possibles avec la colone A en référence :
k = -1
For i = 1 To 10
For j = 1 To 10
k = k + 2
Cells(k, 3) = Cells(i, 1) & Cells(j, 1)
Cells(k + 1, 3) = Cells(i, 1) & Cells(j, 2)
Next j
Next i
0
vince2323 Messages postés 7 Date d'inscription lundi 16 décembre 2013 Statut Membre Dernière intervention 18 décembre 2013
16 déc. 2013 à 11:51
Merci mais petit soucis je désire avoir que Colonne A avec Colonne B

Exemple

A B C
1 1 11
2 1 11
3 2 12
21
21
22
31
31
32


Merci pour ton aide
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
vince2323 Messages postés 7 Date d'inscription lundi 16 décembre 2013 Statut Membre Dernière intervention 18 décembre 2013
16 déc. 2013 à 11:56
Merci j'ai trouvé la solution enfin je pense
k = -1

For i = 1 To 10

For j = 1 To 10

k = k + 2

Cells(k, 3) = Cells(i, 1) & Cells(j, 2)

k = k - 1

Next j

Next i
0
dlt-pan Messages postés 481 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 23 décembre 2014 67
16 déc. 2013 à 13:14
plus simple
For i = 1 To 10
For j = 1 To 10
k = k + 1
Cells(k, 3) = Cells(i, 1) & Cells(j, 2)
Next j
Next i

si çà te convient pense a mettre le sujet en resolu
0