Macro "Recherche V"

[benloco]

Bonjour,

je souhaiterais faire une macro qui pourrait me traduire une RechercheV automatic pour retrouver mes donnees sans avoir aucune formule.

Mon fichier est composé de 2 onlgets
1. Data1
2. 1CB0 test

Il faudrait que je puisse avoir les donnees de la colonne D de l’onglet data1 dans l onglet 1CB0 test dans la ligne 5, selon mes criteres de la ligne 3. ( donnees qui sont aussi sur l’onglet Data1 en colonne A)

Aussi, le nombre de lignes peut changer, il faudrait donc que je puisse aller chercher l information jusqu’a la derniere ligne.


Merci pour votre aide.

 

[Papou-net]

Re : Macro "Recherche V"

Bonjour benloco,

Vois si ton fichier modifié correspond à ton souhait.

J'ai écrit une macro événementielle qui s'exécute automatiquement lors d'un changement intervenu dans une des cellules de la ligne 3 de la feuille '1CB0 test'.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Row = 3 Then Exit Sub
Application.EnableEvents = False
For Each cel In Range("3:3").SpecialCells(xlCellTypeConstants)
  Set trouve = Sheets("DATA1").Range("A:A").Find(cel.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not trouve Is Nothing Then
    Cells(5, cel.Column) = Sheets("DATA1").Range("D" & trouve.Row)
  End If
Next
Application.EnableEvents = True
End Sub

Espérant avoir répondu.

Cordialement.

 

[benloco]

Re : Macro "Recherche V"

Merci pour ta reponse,

Comment je peux faire tourner la macro pour avoir les donnees,

il ny a pas de nom quand je souhaite la faire tourner

Merci

 

[Papou-net]

Re : Macro "Recherche V"

Comment je peux faire tourner la macro pour avoir les donnees,

il ny a pas de nom quand je souhaite la faire tourner

Comme je te le disais, la macro se déclenche automatiquement dès que tu modifies une cellule de la ligne N°3.

Si tu désires la lancer sur ordre, alors il faut que tu recopies le code suivant dans un module standard :

Sub MiseAJour()
For Each cel In Range("3:3").SpecialCells(xlCellTypeConstants)
  Set trouve = Sheets("DATA1").Range("A:A").Find(cel.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not trouve Is Nothing Then
    Cells(5, cel.Column) = Sheets("DATA1").Range("D" & trouve.Row)
  End If
Next
End Sub

et que tu supprimes la macro événementielle.

Cordialement.

 

[benloco]

Re : Macro "Recherche V"

Super,

ca marche bien, jai du juste changé le (3:3) par (3:8)

Merci Merci beaucoup 😉

 

[benloco]

Re : Macro "Recherche V"

je reviens avec une question ,
car quand je lance la macro sur mon fichier, il faut que je soit sur la feuille 1CB0 test, sinon cela ne marche pas.
javais enlever des onglets, mon fichier est composer de plusieur onglets.

Comment puis-je faire ??

Merci bien

 

[Papou-net]

Re : Macro "Recherche V"

je reviens avec une question ,
car quand je lance la macro sur mon fichier, il faut que je soit sur la feuille 1CB0 test, sinon cela ne marche pas.
javais enlever des onglets, mon fichier est composer de plusieur onglets.

Comment puis-je faire ??

Merci bien

Il suffit de rajouter une référence à la feuille '1CB0 test', comme ceci par exemple :

Sub MiseAJour()
With Sheets("1CB0 test")
  For Each cel In .Range("3:3").SpecialCells(xlCellTypeConstants)
    Set trouve = Sheets("DATA1").Range("A:A").Find(cel.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not trouve Is Nothing Then
      .Cells(5, cel.Column) = Sheets("DATA1").Range("D" & trouve.Row)
    End If
  Next
End With
End Sub

Cordialement.

 

[benloco]

Re : Macro "Recherche V"

C a lair de bien marcher

Merci pour ton aide,

bonne journee