Realiser une recherche sur une variable "range"

Bonjour j'aimerais réaliser une condition en vba:


Voila le principe:
Je possède une variable de type range (appelé TATA) qui n'est pas fixe (pas fixe, cad que le nombre d'information dans la variable range peut être plus ou moins grand, il n'est pas connu)

Et je voudrais creer cette condition:
- exécuter le "programme A" lorsque l'une des informations information de la variable range "TOTO" est identique à la cellule A3
- si l'information de la cellule A3 n'est pas compris dans la variable TOTO, je passe à la cellule du dessous A4 et ainsi de suite jusqu a que je trouve la bonne cellule


Avez vous idee pour faire la recherche sur les variables de type range?.

Merci

Code:

---

Je possède une variable de type range (appelé TATA)

---

cette variable représente donc une plage de cellule, dans ce cas tu peux boucler sur ta plage (pas testé) :

Code:

---

1 2 3 4 5 6 7

for each Macellule in tata for i = 1 to cells(65536,1).end(xlup).row if Macellule.value = cells(i,1) then programme1 end if next i next macellule

---

Edit : bonsoir, pas sur d'avoir compris, mais parfois une réponse lance les explications...

bonjour Esmax666 le forum pas claire tous ca. donne plus de details si tu veus quelqu'un t aide ou quelqu' une beaucoup de possibilitées une boucle , find evenementielle , tablo, ect...

ps oups bonjour alex plus vif que moi pour comprendre a+ leti:oops:

ici je dois rajouter une variable "macellule"?
Je renseigne ou la cellule A3 car je ne souhaite pas realiser la recherche dés la première ligne, mais la 3eme

Pour être clair dans une feuille excel je réalise plusieurs filtre et ensuite il me reste encore 3-4 lignes
j'ai besoin que d'une ligne et de la bonne.
Pour savoir quelle ligne est la bonne je dois encore realiser une recherche sur les cellules de la colonnes A à partir de la ligne 3
Pour realiser la recherche il faut que que regarde chaque cellule A3 puis A4 pour savoir si la valeur de la cellule A4 est contenu dans le range TOTO
et si oui je continu mon programme (pour faire un copier)
et si non je continu sur la cellule d en dessous


Voila Merci

Bonsoir,

comme le dit Laetitia détail nous un peu ce que tu veux faire.

Citation:

---

Je renseigne ou la cellule A3 car je ne souhaite pas realiser la recherche dés la première ligne, mais la 3eme

---

Tu remplaces ici :

Code:

---

1 2	for i = 3 to cells(65536,1).end(xlup).row if Macellule.value = cells(i,1) then

---

Edit : si tu as un peu de code n'hésite pas a donner des exemples

voila j'ai un peu detaillé, desolé si je m'exprime mal :/

Dans ce cas le mieux serait peut être de faire une boucle sur ton range et de faire un find pour trouver la cellule correpondante.

PS: Je doit y aller a+.

Edit:

Citation:

---

voila j'ai un peu detaillé, desolé si je m'exprime mal

---

Aucun soucis, le tout pour avancer est que l'on arrive a bien comprendre.

J'ai pas trop compris la methode

Alors pour detailler le plus possible
Je possède sur ma "feuilleA" des références que je souhaite sauvegarder sous la variable range "TOTO". les variable que je souhaite sauvegarder ont un nombre de ligne aleatoire alors voila ce que je fais

Code:

---

1 2 3 4 5

Sheets(feuilleA).Activate DerniereligneA = Range("C65536").End(xlUp).Row For Num = 7 To DerniereligneA Liste(Num) = Cells(Num, 3).Value Next Num

---

ensuite je passe a la feuilleB je realise des filtre et il me reste 3-5 ligne (c'est aleatoire)
et parmi ces lignes je souhaiterais faire une recherche sur la cellule A3, cad que je regarde si la valauer de la cellule A3 est identique a l'une des valeur enregisterer dans le range

Code:

---

1 2 3

Windows(feuilleB).Activate for i = 3 to cells(65536,1).end(xlup).row ....

---

-----------------------------

Si pense avoir trouvé une methode plus simple

Methode 2
Réaliser un filtre sur l'ensemble des variable du range? cela est possible?
Je viens de trouver une fonction pour creer un filtre sur 2 variable, a voir si cela est possible d'augmenter le nombre de variable?

Code:

---

1 2	Selection.AutoFilter Field:=13, Criteria1:="=*AA*", Operator:=xlOr, _ Criteria2:="=*BB*"

---

Un exemple perso avec Find à adapter :

Code:

---

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

Set MaPlage = F1.Range("F2", Range("F65536").End(xlUp))   For Each MaCellule In MaPlage   MaRecherche = MaCellule.Value   With F2.Columns("D:D") Set cell = .Find(What:=MaRecherche, LookIn:=xlValues, LookAt:=xlPart) End With If Not cell Is Nothing Then Dim i As Integer For i = 1 To 30 MaCellule.Offset(, 15 + i).Value = F2.Cells(cell.Row, MaColonne.Column + i) Next End If   Next MaCellule

---

ok merci je vais voir ca,
mais la methode avec le filtre n'est pas plus simple ?

Code:

---

1 2 3

Selection.AutoFilter Field:=13, Criteria1:="=*'Liste(7)'*", Operator:=xlOr, _ Criteria2:="=*'Liste(8)'*", Operator:=xlOr, _ Criteria2:="=*'Liste(9)'*"

---