Inscrire une valeur dans une feuille pour chaque valeur non nulle d'une liste

[epoke63]

Bonjour à tous,

J'essaye actuellement de faire une macro excel (je suis débutant) dans le but de présenter des factures automatiques en fonction de certains paramètres.

Un problème se pose à moi, j'aurais voulu savoir si vous pouviez me donner une piste afin de réaliser mon code.

Sur une feuille 2, une colonne contenant la liste de produits, et une avec la quantité voulue.

Sur la feuille 3, la facture avec un tableau récapitulatif (nom produit, quantité, prix...)

J'aurais voulu faire un code qui fait que pour chaque valeur quantité (feuille2) non nulle, s'inscrive dans le tableau récap sur la feuille 3 le produit correspondant à cette quantité.

Ainsi, à chaque fois que le tableur rencontre une valeur de quantité non nulle sur la feuille 2, il rajoute une ligne au tableau sur la feuille 3.

J'espère avoir été assez clair dans mes explications, je vous remercie d'avance de vos réponses

[jfontaine]

Bonjour,

J'aurais voulu faire un code qui fait que pour chaque valeur quantité (feuille2) non nulle, s'inscrive dans le tableau récap sur la feuille 3 le produit correspondant à cette quantité.

Et s'il y a plusieurs produits avec une quantité à 2 ?

Peux tu nous éclairer sur la finalité, car la je ne pige pas.

[epoke63]

Désole si je suis pas clair,

En gros, je veux qu'à chaque fois que la colonne quantité soit non nulle, la ligne qui correspond soit copiée dans la feuille 3.

[jfontaine]

Ci dessous une exemple de code qu'il faudra adapter au niveau des plages de recherche et de destination

Code :

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
Sub Copyligne()
 
Dim iSource As Long
Dim iCible As Long
Dim shSource As Worksheet
Dim shCible As Worksheet
 
Dim intQuantite As Integer
 
Set shSource = Sheets("Feuil2")
Set shCible = Sheets("Feuil3")
 
'Ligne de démarrage de copie dan sla feuille Cible
iCible = 2
 
'Quantité recherchée
intQuantite = 2
 
'Boucle sur chaque ligne de la feuille source
For iSource = 2 To shSource.Range("A65536").End(xlUp).Row
 
    'Test si la quantité est égal à la quantité recherchée
    If shSource.Range("B" & iSource).Value = intQuantite Then
        'Si ok alors on copie la ligne dans la feuille Cible
        shSource.Rows(iSource).Copy
        shCible.Range("A" & iCible).PasteSpecial
        iCible = iCible + 1
    End If
 
Next iSource
 
End Sub