Lister d'apres une cellule identique
sophie1059
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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
A voir également:
- Lister d'apres une cellule identique
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
- Créer une liste déroulante excel - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
3 réponses
Bonjour,
un exemple de code:
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
