Vlookup + autofilter

Bonjour,

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

Code:

---

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

Bonjour

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

Code:

---

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

---

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:

---

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

---

Merci encore une fois

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

Donc

Code:

---

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?

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:

---

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