Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

probleme de boucles sur deux colonnes

L

liline

Guest
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.
 
K

kiorys

Guest
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
 
J

JPH

Guest
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
 

Pièces jointes

  • Fleurs.xls
    25 KB · Affichages: 63
  • Fleurs.xls
    25 KB · Affichages: 60
  • Fleurs.xls
    25 KB · Affichages: 62

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…