Recherche une valeur d'une cellule dans une colonne d'une autre feuille

Bonjour à tous,

je suis un debutant en VB j aimerai creer un bouton dans le feuille 1 une fois que je clique la dessus il cherchera dans la colonne (B) de la feuille 2
la valeur de la cellule (G2) de la feuille 1

la feuille 1 et 2 sont dans le meme classeur


je vous remercie de votre aide


KABI

bonjour,

je n'est pas trés bien compri, tu veu cherché une cellule d'une feuille qui elle meme cherche une cellule d'une autre feuille?

La méthode peurt varier en fonction de ce que tu veux faire de la réponse

Est ce que tu veux qu'il dise si il a trouvé ou non?
Est ce que tu veux le texte d'une cellule en fonction de ce qu'il va trouver?
Est ce que tu veux un numéro de ligne?
.....

Voilà un bout de code qui fait une partie du boulot, après à toi de savoir ce que tu veux fair exactement

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() Sheets("Feuil2").Select Columns(2).Select Cells.Find(what:=Sheets("Feuil1").Cells(2, 7).Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=True).Activate   MsgBox "Ligne N° " & ActiveCell.Row, , ActiveCell.Value     End Sub

---

tu cré un bouton ou tu veux et tu lui accroche la macro.

ciao

On peut simplifier le code précédant en éliminant les select

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() Sheets("Feuil2").Columns(2).Cells.Find(what:=Sheets("Feuil1").Cells(2, 7).Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=True).Activate   MsgBox "Ligne N° " & ActiveCell.Row, , ActiveCell.Value     End Sub

---

Tu l'a testé coconut ton code ? Parce que je trouve l'ID sympa mais chez moi il veut rein savoir, ça plante.

Je l'ai intégré dans l'une de mes routines et ca marche plutot bien

je l'ai meme amélioré pour ne pas activer de cellule

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

sub test Dim a As Integer   valid = Worksheets("etat d'avancement").Cells(1, 2)   'Routine pour vérifier qu'on a déjà validé   a = Worksheets("Etat d'avancement").Columns(14).Cells.Find(what:=valid, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=True).Row   If Worksheets("etat d'avancement").Cells(a, 15).Text = "" Then   Else MsgBox ("Vous avez déjà validé ce devis!") Exit Sub End If   End sub

---

Ainsi j'extrais directement le numéro de ligne correspondant à la valeur à chercher .

Pour que ca marche le mieux possible, évitez d'avoir des cellules vides dans la colonne de recherche.