macros excel

[redrock]

Bonjour à tous
je recherche une macro pour la manip suivante: jai des référence dans la feuille 2 et je voudrais dans la feuille 1 créer une macro qui aille chercher dans la feuille 2 ce que je lui demande par ex: si j'inscrit US04 en feuille 1( en collone a1 si possible) la macro aille chercher tout les US04 qui se trouve en feuille 2 colonne G et qu'apparaisse tout les données de toutes les colonnes
je sais pas si je suis clair...

MERCI d'avance...

 

[flo2002]

Re : macros excel

bonjour
En effet, je ne comprend pas trop(mais la ca peut venir de moi...), une recherchev ne serait -elle pas suffisante?

 

[JeanMarie]

Re : macros excel

Bonjour

Florent, la fonction RECHERCHEV, ne peut afficher qu'une seule occurence, et Redrock, veut toutes les occurences. Il y a bien des possibilités en formule pour afficher toutes les lignes, mais pas avec cette fonction, Redrock souhaite un code VBA.

Option Explicit

Sub ListeOccurence()
Dim Pos1 As Variant
Dim Pos2 As Variant
Dim I As Integer
[COLOR=YellowGreen][I]'efface le contenu des cellules [/I][/COLOR]
Sheets("Feuil2").Range("A2:IV65536").ClearContents
[COLOR=YellowGreen][I]'Numéro de la première ligne qui contient les données[/I][/COLOR]
Pos2 = 1
[COLOR=YellowGreen][I]'Boucle sur le nombre de "valeurs à tester" qui présente dans la plage de données[/I][/COLOR]
For I = 1 To Application.CountIf(Sheets("Feuil1").Range("A:A"), Range("A1"))
[I][COLOR=YellowGreen]   'Recherche la position de la "valeur à tester"[/COLOR][/I]
   Pos2 = Application.Match(Range("A1"), Sheets("Feuil1").Range("A" & (Pos1 + Pos2) & ":A65536"), 0)
[COLOR=YellowGreen][I]   'Passe l'index Pos2 de relatif en absolue[/I][/COLOR]
   Pos1 = Pos1 + Pos2
   [I][COLOR=YellowGreen]'Copie la ligne[/COLOR][/I]
   Sheets("Feuil1").Range("A" & Pos1).EntireRow.Copy Destination:=Sheets("Feuil2").Range("A" & I + 1).EntireRow
Next I
End Sub

Les données de la feuille de donnée commence sur la ligne.
La cellule contenant la valeur à tester est en cellule A1.

@+Jean-Marie

PS : il y a la possibilité de passer par un filtre automatique, plus rapide, mais ...

 

[flo2002]

Re : macros excel

Donc j'avais mal compris, décidement c'est pas le jour....