Discussion :

[julia03]

Bonjour à tous,

Je suis grande débutante sur excel
Je ne l'utilise que pour faire des calculs simples.

Pour ce que je veux faire maintenant, je pense avoir besoin d'une macro, chose tout à fait nouveau pour moi...

Dans la feuille 1, j'ai 2 colonnes:
- colonne A: nom d'un produit (voiture)
- colonne B: nombre de déclinaisons du produit (par exemple 5 pour 5 couleurs différentes)

Dans la feuille 2, je souhaiterai que dans la colonne A, le nom des produits soit répétés autant de fois qu'il a de couleurs

En gros, si dans la feuille 1, j'ai "voiture" dans la colonne A et "5" dans la colonne B, alors j'aimerai avoir sur la feuille 2 le mot "voiture" répété 5 fois dans 5 lignes différentes:
voiture
voiture
voiture
voiture
voiture

Il faudrait que la marco puisse répéter le résultat pour toutes les lignes de la feuille 1.

Comment dire, j'ai essayé pas mal de codes, mais sans jamais obtenir le résultat souhaité

Est-ce que quelqu'un pourrait m'aider ?

Merci.

Julia

[joe.levrai]

Bonjour,

un exemple semi-optimisé (afin que le code ne soit pas trop complexe pour toi)

copie l'ensemble des données de la colonne A et B de Feuil1
Ecrit la valeur de chaque cellule de la colonne A, le nombre de fois qu'il est inscrit dans la cellule de la colonne B ... dans la colonne A de Feuil2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ioi()
Dim Tabl()
Dim i As Long, j As Long
 
' on prend la colonne A et B de Feuil1
With Worksheets("Feuil1")
    Tabl = .Range(.Cells(1, 1), .Cells(.Rows.Count, 2).End(xlUp)).Value
End With
 
' pour chaque valeur de la colonne A
For i = LBound(Tabl, 1) To UBound(Tabl, 1)
    ' pour un nombre de fois égale au nombre qui est en colonne B
    For j = 1 To Tabl(i, 2)
        With Worksheets("Feuil2")
            ' on écrit la valeur dans la Feuil2, en colonne A
            .Cells(.Rows.Count, 1).End(xlUp)(2).Value = Tabl(i, 1)
        End With
    Next j
Next i
 
End Sub