Discussion :

[mxmjg17]

Bonjour,

Très novice en VBA, je n'ai pas trouvé la solution à mon problème avec les formules natives d'Excel.

J'aimerai pouvoir générer des lignes de références produits en fonction d'un nombre associé.

Dans le premier onglet nous avons :
En colonne A le nom du produit.
En colonne B sa référence.
En colonne C un nombre associé à la référence produit.

NOM1	REF1	2
NOM2	REF2	4
NOM3	REF3	1
NOM4	REF4	8

Dans le deuxième onglet j'ai besoin d'avoir ce résultat:

NOM1	REF1-1C
NOM1	REF1-2C
NOM2	REF2-1C
NOM2	REF2-2C
NOM2	REF2-3C
NOM2	REF2-4C
NOM3	REF3-1C
NOM4	REF4-1C
...	...

Vous l'aurez compris, si le nombre associé est 3, j'ai besoin de générer 3 lignes avec concaténation de la REF avec 1C, puis 2C, puis 3C.
En pièce jointe vous trouverez le petit fichier d'exemple.

Merci d'avance pour votre aide précieuse !

[BENNASR]

bonjour
à tester

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
22
23
24
25
26
Option Explicit
Sub test()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
Dim i As Long
Dim j As Long
Dim Ligne As Long
Dim tablo
Application.ScreenUpdating = False
    F2.Columns("A:B").ClearContents
With F1
tablo = .Range("A2", "B" & .Range("B" & .Rows.Count).End(xlUp).Row)
End With
 Ligne = 2
For i = LBound(tablo, 1) To UBound(tablo, 1)
j = tablo(i, 2)
        For j = 1 To j
             F2.Cells(Ligne, 1) = tablo(i, 1)
             F2.Cells(Ligne, 2) = tablo(i, 1) & "-" & j
             Ligne = Ligne + 1
        Next j
  Next i
Application.ScreenUpdating = True
End Sub

[mxmjg17]

Bonjour BENNASR !

Wow, un grand merci, ça marche parfaitement !

Nous aurions une potentielle évolution qui nous faciliterai aussi la tâche :
Certaines de nos références peuvent avoir une lettre F comme attribut.
Dans cette même réflexion est-ce possible d'apporter une condition pour les références concernées qui concaténerai juste la ligne avec la lettre F au sein des autres lignes ?

Par exemple :
Dans le premier onglet nous avons :

REF1	2
REF2	F
REF3	5

Dans le deuxième onglet cela donnerai ceci :

REF1-1

REF1-2

REF2-F

REF3-1

REF3-2

REF3-3

REF3-4

REF3-5

Je joins le 2ème fichier d'exemple.

Un grand merci encore une fois !
Maxime.

[BENNASR]

bonjour
à tester toujours sur une copie de ton travail pour munir contre tous risque de perte de données

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
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
Sub test()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
Dim i As Long
Dim j As Long
Dim Ligne As Long
Dim tablo
Application.ScreenUpdating = False
    F2.Columns("A:B").ClearContents
With F1
tablo = .Range("A2", "B" & .Range("B" & .Rows.Count).End(xlUp).Row)
End With
Ligne = 2
For i = LBound(tablo, 1) To UBound(tablo, 1)
If IsNumeric(tablo(i, 2)) Then
        j = tablo(i, 2)
        For j = 1 To j
             F2.Cells(Ligne, 1) = tablo(i, 1)
             F2.Cells(Ligne, 2) = tablo(i, 1) & "-" & j
             Ligne = Ligne + 1
        Next j
  Else
  F2.Cells(Ligne, 1) = tablo(i, 1)
  F2.Cells(Ligne, 2) = tablo(i, 1) & "-" & tablo(i, 2)
  End If
  If F2.Cells(Ligne, 1) <> "" Then Ligne = Ligne + 1
Next i
 
Application.ScreenUpdating = True
End Sub

[mxmjg17]

Ca fonctionne parfaitement.
Merci beaucoup !