probleme de boucles sur deux colonnes

[liline]

bonjour,

Pour vous aider à comprendre, je vais vous donner un exemple: Dans ma feuille excel , j'ai deux colonnes, chacune contentant au plus 10 valeurs.
La première colonne contient par exemple des noms de fleurs (rose, jasmin,marguerite...) la deuxième contient des noms de couleurs (blanc, rouge...). je souhaiterais recopier (les uns en dessous des autres) dans une troisième colonne le nom de chacune des fleurs de la colonne A autant de fois qu'il y a de couleur dans la colonne B.
Pour résumer, s'il y a 3 fleurs et 4 couleurs, j'aurais 4 fois le nom de chaque fleur , ce qui me donnera 12 lignes dans ma troisième colonne.

pour le moment, ma boucle ne me copie qu'une fois le nom des fleurs.
comment créer une boucle qui me permette de passer à la ligne suivante (et non de revenir à ligne du début quand la boucle est finie)?

Merci pour aide.
si vous avez des questions, n'hésitez pas !

Liline.

 

[kiorys]

slt Liline

2 boucles te sont necessaires

Range("C1").Select
For i = 1 To 10
For j = 1 To 3 ' nb de couleur
ActiveCell = Cells(i, 1)
ActiveCell.Offset(1, 0).Select
Next j
Next i

 

[JPH]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ligfl = 1
ligc3 = 1
Do
ligfl = ligfl + 1
fleur = Cells(ligfl, 1)
ligcoul = 1
Do
ligcoul = ligcoul + 1
ligc3 = ligc3 + 1
Cells(ligc3, 3) = fleur
Loop Until Cells(ligcoul + 1, 2) = ""
Loop Until Cells(ligfl + 1, 1) = ""
End Sub
Avec ce code si l'on ajoute une fleur ou une couleur la colonne 3 s'allonge d'autant de ligne que de (fleurs x couleurs)
cordialement JPH

 

[Thomas]

JOYEUX ANNIV...

JOYEUX ANNIVERSIARE LILINE