Problème de boucle

[Azuder]

Bonjour,

Je vais essayer d'être le plus clair possible.

J'ai une feuille qui contient deux colonnes A et B. Chacune de ces colonnes contiennent des données.

Exemple :

A B

Pierre 2
Pierre 5
Paul 1
Pierre 45
Jacques 2
Pierre 3
...

J'aimerai une boucle qui, en fonction du nom (colonne A) choisi dans une liste déroulante, m'affiche chaque ligne où apparait ce nom avec les données qui lui correspondent (colonne B). Tout cela dans une autre feuille.

Si vous voulez plus de précisions, demandez moi.

Merci

 

[Azuder]

Re : Problème de boucle

Excuse moi j'ai oublié de joindre mon fichier ...

Du coup je rajoute une précision, mon code se trouve dans FM_GChant.

J'ai hébergé mon .xls puisqu'il dépasse la limite des pièces jointes.

http://www.eg-pfolio.fr/Programme - Gestion de stock.xls

Merci, si il faut d'autres détails je suis toujours là.

 

[bqtr]

Re : Problème de boucle

Bonsoir Azuder, jeanpierre

Si j'ai bien compris remplace le code de ton bouton "Valider" du USF "FM_GChant" par celui-ci :

Private Sub BC_Valider_Click()
   
Dim k As Long, y As Long

If CB_Chant.ListIndex = -1 Then Exit Sub

y = 11
With Sheets("StockS")
  For k = 2 To .Range("B65536").End(xlUp).Row
     If .Cells(k, 2) = CB_Chant Then
        Sheets("G_Chant").Cells(y, 2) = CDate(Format(.Cells(k, 1), "dd/mm/yyyy"))
        Sheets("G_Chant").Cells(y, 3) = .Cells(k, 2)
        Sheets("G_Chant").Cells(y, 4) = .Cells(k, 5)
        Sheets("G_Chant").Cells(y, 5) = .Cells(k, 6)
        Sheets("G_Chant").Cells(y, 6) = .Cells(k, 5) * .Cells(k, 6)
        y = y + 1
     End If
  Next
End With

Unload Me
Sheets("G_Chant").Activate

End Sub

A+

 

[Azuder]

Re : Problème de boucle

Je test ton code ce soir en rentrant chez moi. Merci d'avoir répondu 🙂

 

[Azuder]

Re : Problème de boucle

Ton code fonctionne parfaitement. J'ai compris où mon erreur était.

Merci beaucoup.