Discussion :

[bird007]

Bonjour,

Je ne sais c'est quoi le problème dans ce petit biout de code. pourriez vous m'aider?

Code :

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

1
2
3
4
5
6
7
Sub filtre()
Sheets("Budget").Select
If Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, 6), RB, 1, False) = True Then
Sheets("Riri").Select
Selection.AutoFilter field:=11, Criteria1:="cells(activevell.row,6)"
End If
End Sub

Merci

[Pierre Fauconnier]

Bonjour

Tu dois passer la valeur de la cellule en critère, et donc enlever les guillemets

Code :

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

Selection.AutoFilter field:=11, Criteria1:=cells(activevell.row,6)

[bird007]

Bonjour Pierre Fauconnier
Merci pour ta reponse mais je crois qu'il ya une erreur dans ce bout de code. car quand j'execute avec le F8, ça se bloque à ce niveau

Code :

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

1
2
If Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, 6), RB, 1, False) = True Then
Sheets("Riri").Select

Merci encore une fois

[Pierre Fauconnier]

VLookup fonctionne en VBA comme en Excel, en renvoyant une valeur de cellule.

Donc

Code :

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

If Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, 6), RB, 1, False) = True Then

renverra soit la valeur cherchée (Cells(ActiveCell.Row, 6) si elle est présente dans RB, soit une valeur d'erreur, puisque tu cherches dans la première colonne de RB => je ne comprends pas bien pourquoi tu utilises vlookup.

Si tu veux vérifier que la valeur de Cells(ActiveCell.Row, 6) est présente dans la première colonne de RB, utilise countif() en testant si <>0 ou FIND(...) qui renvoie la cellule contenant ce que tu cherches.

Peux-tu en dire plus sur ce que tu souhaites réaliser?

[bird007]

Bonjour,
Merci pour le temps que tu consacre pour me répondre
Au fait, J'ai deux feuilles et je voulais à chaque fois que j'ai un élement sur une colonne de l'une, le fait de cliquer sur le bouton déclecheur de la macro me permet de filtrer les élements qui font réferences à cette cellule. j'étais totalement à coté de la plaque en utilisant la Vlookup, au fait c'était aussi simple que ça

Code :

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

1
2
3
4
5
6
7
8
9
Sub filtre()
 
    Sheets("Budget").Select
    Set i = Cells(ActiveCell.Row, 6)
    Sheets("Réalisé").Select
       ActiveSheet.Range("$B$7:$X$110").Select
 
    ActiveSheet.Range("$B$7:$X$110").AutoFilter Field:=10, Criteria1:=i
End Sub

Excuse moi pour la confusion, je suis débutante

Merci beaucoup