Discussion :

[kourria]

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

[olodin]

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?

[COCONUT2]

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?
.....

[ilcocodrillo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[COCONUT2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ilcocodrillo]

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

[COCONUT2]

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

[COCONUT2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[COCONUT2]

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