Lister d'apres une cellule identique
sophie1059
Messages postés
2
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Débutante dans le domaine, j'ai besoin de votre aide.
J'aimerai ramener dans une feuil2 les résultats correspondants au numero que j'aurai inscri en B1 ( ils peuvent etre plusieurs) . J'ai lister en colones A (a l'infini) des numero et en colonnes C des analyses à effectuer sur ce numero. J'ai fais cette macro mais il ne va me chercher evidamment qu'un seule valeur alors que je voudrai qu'il me le liste toute si il trouve en colonnes A plusieurs numero corespondant à ma demande en B1:
Sub demande()
'
'demande Macro
'
Sheets("feuil2").Select
Sheets("feuil2").Range("D8").Value = WorksheetFunction.VLookup(Sheets("feuil1").Range("B1").Value, Sheets("feuil1").Range("A5:C500"), 3, False)
Aidez moi!
merci
Débutante dans le domaine, j'ai besoin de votre aide.
J'aimerai ramener dans une feuil2 les résultats correspondants au numero que j'aurai inscri en B1 ( ils peuvent etre plusieurs) . J'ai lister en colones A (a l'infini) des numero et en colonnes C des analyses à effectuer sur ce numero. J'ai fais cette macro mais il ne va me chercher evidamment qu'un seule valeur alors que je voudrai qu'il me le liste toute si il trouve en colonnes A plusieurs numero corespondant à ma demande en B1:
Sub demande()
'
'demande Macro
'
Sheets("feuil2").Select
Sheets("feuil2").Range("D8").Value = WorksheetFunction.VLookup(Sheets("feuil1").Range("B1").Value, Sheets("feuil1").Range("A5:C500"), 3, False)
Aidez moi!
merci
3 réponses
-
Bonjour,
un exemple de code:
Sub demande()
Dim plage As Range
'fige ecran
Application.ScreenUpdating = False
'mise en memoire plage
Set plage = Worksheets("feuil1").Range("A4:A500")
Recherche = Worksheets("feuil1").Range("B1").Value
'test si recherche existe
Nb = Application.CountIf(plage, Recherche)
If Nb > 0 Then
'raz plage feuil2
Worksheets("feuil2").Range("D:D").ClearContents
ligdep = 4
plus1 = 0
With Worksheets("feuil1")
'boucle nombre de fois info presente dans colonne
For Cmpt = 1 To Nb
'recherche ligne info
ligdep = .Columns("A").Find(Recherche, .Cells(ligdep, "A"), , xlWhole).Row
'copie valeur feuil2
Worksheets("feuil2").Range("D" & 8 + plus1) = .Cells(ligdep, "C").Value
'incremente pointeur cellule
plus1 = plus1 + 1
Next Cmpt
End With
End If
Application.ScreenUpdating = True
End Sub -
cette ligne ne passe pas
Nb = Application.CountIf(plage, Recherche) -
