OVH Cloud OVH Cloud

code pour "generer" des references...

3 réponses
Avatar
Domi
Bonjour à tous,

Je doit créer toutes les références d'articles possibles sachant que :
La référence d'un article est composée de 6 caractères (tous type de
caractères mais en texte... des lettres des chiffres et des caractères
spéciaux)
Le 1er peut prendre 2 valeurs (qui sont en A1:A2 par exemple)
Le 2em : 4 valeurs (B1:B4)
Le 3eme : 3 valeurs (C1:C3)
Le 4 eme : 4 valeurs (D1:D4)
Le 5 eme : 5 valeurs (E1:E4)
Le 6 eme : 10 valeurs (F1:F10)

Cela doit faire à peu près 5000 references si je ne me trompe pas...
Je voudrais recuperer toutes ces references sous forme d'une liste dans une
plage quelconque.
Est-ce faisable ?
J'ai regardé un peu dans les archives, j'ai bien trouvé quelques solutions à
des questions de nombres de combinaisons mais qui ne correpondent pas à
ceque je souhaite dans ce cas precis.
Je suis preneur de toutes solutions, même sans VBA.

Merci
Domi

3 réponses

Avatar
Jean-Claude
Salut,
Intuitivement je dirais qu'il faut utiliser 6 boucles for imbriquées
for i1 =1 to 2
for 12=1 to 4
for i3 = 1 to 3
for i4 = 1 to 4
for i5 = 1 to 5
for i6 = 1 to 10
RefÎlls(i1,1) & cells(i2,2)& cells(i3,3)&
cells(i4,4)& cells(i5,5)& cells(i6,6)
next i6
next i5
next i4
next i3
next i2
next i1

A toi de les déposer où tu veux
Eventuellement dans un tableau que tu inscrit à la fin
a+
Jc

"Domi" a écrit dans le message de
news:O$
Bonjour à tous,

Je doit créer toutes les références d'articles possibles sachant que :
La référence d'un article est composée de 6 caractères (tous type de
caractères mais en texte... des lettres des chiffres et des caractères
spéciaux)
Le 1er peut prendre 2 valeurs (qui sont en A1:A2 par exemple)
Le 2em : 4 valeurs (B1:B4)
Le 3eme : 3 valeurs (C1:C3)
Le 4 eme : 4 valeurs (D1:D4)
Le 5 eme : 5 valeurs (E1:E4)
Le 6 eme : 10 valeurs (F1:F10)

Cela doit faire à peu près 5000 references si je ne me trompe pas...
Je voudrais recuperer toutes ces references sous forme d'une liste dans
une

plage quelconque.
Est-ce faisable ?
J'ai regardé un peu dans les archives, j'ai bien trouvé quelques solutions
à

des questions de nombres de combinaisons mais qui ne correpondent pas à
ceque je souhaite dans ce cas precis.
Je suis preneur de toutes solutions, même sans VBA.

Merci
Domi




Avatar
Domi
Merci,
mais sans vouloir abuser... tu pourrais me dire comment je fais pour "les
déposer où je veux" parce là je coince... je ne sais pas comment lui dire de
mettre les ref dans la colonne M par exemple...

encore merci
Domi
"Jean-Claude" a écrit dans le message de news:
bv2oi8$djb$
Salut,
Intuitivement je dirais qu'il faut utiliser 6 boucles for imbriquées
for i1 =1 to 2
for 12=1 to 4
for i3 = 1 to 3
for i4 = 1 to 4
for i5 = 1 to 5
for i6 = 1 to 10
RefÎlls(i1,1) & cells(i2,2)& cells(i3,3)&
cells(i4,4)& cells(i5,5)& cells(i6,6)
next i6
next i5
next i4
next i3
next i2
next i1

A toi de les déposer où tu veux
Eventuellement dans un tableau que tu inscrit à la fin
a+
Jc

"Domi" a écrit dans le message de
news:O$
Bonjour à tous,

Je doit créer toutes les références d'articles possibles sachant que :
La référence d'un article est composée de 6 caractères (tous type de
caractères mais en texte... des lettres des chiffres et des caractères
spéciaux)
Le 1er peut prendre 2 valeurs (qui sont en A1:A2 par exemple)
Le 2em : 4 valeurs (B1:B4)
Le 3eme : 3 valeurs (C1:C3)
Le 4 eme : 4 valeurs (D1:D4)
Le 5 eme : 5 valeurs (E1:E4)
Le 6 eme : 10 valeurs (F1:F10)

Cela doit faire à peu près 5000 references si je ne me trompe pas...
Je voudrais recuperer toutes ces references sous forme d'une liste dans
une

plage quelconque.
Est-ce faisable ?
J'ai regardé un peu dans les archives, j'ai bien trouvé quelques
solutions


à
des questions de nombres de combinaisons mais qui ne correpondent pas à
ceque je souhaite dans ce cas precis.
Je suis preneur de toutes solutions, même sans VBA.

Merci
Domi








Avatar
Jean-Claude
Salut,
Je n'ai rien essayé, mais dans l'hypothèse où cela fonctionne
j=0
for i1 =1 to 2
for 12=1 to 4
for i3 = 1 to 3
for i4 = 1 to 4
for i5 = 1 to 5
for i6 = 1 to 10
RefÎlls(i1,1) & cells(i2,2)&
cells(i3,3)&cells(i4,4)& cells(i5,5)& cells(i6,6)
j=j+1
Cells(j,13).value=Ref
next i6
next i5
next i4
next i3
next i2
next i1

Nb
dans Cells(j,13), - j - indique la ligne ou sera inscrit la ref; - 13 -
c'est la 13ème colonne soit la colonne M
il est possible d'initialise j à une autre valeur que 0 dans ce cas la 1ere
ref sera inscrite à la ligne j+1
Ref n'est pas obligatoire on peut écrire
j=j+1
Cells(j,13).valueÎlls(i1,1) & cells(i2,2)& cells(i3,3)&cells(i4,4)&
cells(i5,5)& cells(i6,6)
On pose comme condition que tout est sur la même feuille
J'espère avoir été complet

A+
Jc

"Domi" a écrit dans le message de
news:
Merci,
mais sans vouloir abuser... tu pourrais me dire comment je fais pour "les
déposer où je veux" parce là je coince... je ne sais pas comment lui dire
de

mettre les ref dans la colonne M par exemple...