Rechercher dans plusieurs plages

Question

J'ai créé une plage de recherche Public Const Plg4 As String = "H6:V6,H31:V31,H56:V56,H81:V81,H106:V106,H131:V131,H156:V156,H181:V181,H206:V206,H231:V231,H256:V256,H281:V281,H306:V306,H331:V331,H356:V356,H381:V381,H406:V406" Mais celle-ci n'est pas assez longue pour contenir toutes les cellules. Donc j'ai eu l'idée de faire une autre ligne avec la fin de la zone et je mets un ' devant la ligne qui ne m’intéresse plus. 'Public Const Plg4 As String = "H406:V406, etc ....." Cela marche car j'ai besoin de la première partie en début d'année et de la deuxième partie en fin d'année. Mais ce n'est pas très pratique. En fait cette zone est appelée par un script dont une partie est : &gt;&gt;début de script Select Case Feuille_de_Travail Case PL6 Set Feuille_Recherche = Sheets(PR6) Case PL5 Set Feuille_Recherche = Sheets(PR5) Case PL4 Set Feuille_Recherche = Sheets(PR4) Case PL3 Set Feuille_Recherche = Sheets(PR3) End Select Set Plage_Recherche = Feuille_Recherche.Range(Plg4) Set Cellule = Plage_Recherche.Find(Cellule_de_Travail.Value, LookIn:=xlValues, lookat:=xlWhole) 'cherche le Sxxx tapé If Cellule Is Nothing Then MsgBox "Attention la valeur cherchée n'existe pas": Exit Sub 'teste s'il trouve ou pas PUIS IL Y A L'ACTION A RÉALISER &gt;&gt;fin de script Je me dit que le plus simple serait de pouvoir avoir les deux plages actives en permanence et de parcourir les deux plages... Comment faire ? Je m'y perds un peu ... Merci...

paritec · Answer

Une question bête sans doute pourquoi recherché dans des zones particulières et non purement et simplement dans la feuille?? sans fichier je dis peut-être une bêtise, mais ?? a+ Papou...

paritec · Answer

Re Bonjour Ripcagou le forum oui c'est normal que tu te perdes un peu!!!! déjà tes variables avec des noms à rallonge ne facilitent pas les choses moi je vois cela beaucoup plus simple avec simplement une boucle de 6 à xxx pas de 25 puisque c'est ce que tu as par contre comme tu n'as mis qu'un bout de ton code, bah je t'ai fait un truc qui certainement ne fonctionnera pas mais avec un fichier ce serait tout de même plus simple !!!! a+ Papou Sub ripcagou() Dim f As Worksheet,i&amp;,cel as range 'là bien sur ton début de procédure Select Case feuille_de_travail Case PL6 Set f = Sheets(PR6) Case PL5 Set f = Sheets(PR5) Case PL4 Set f = Sheets(PR4) Case PL3 Set f = Sheets(PR3) End Select With f For i = 6 To 606 Step 25 Set Cel= .Range(.Cells(i, "H"), .Cells(i, "V")).Find(Cellule_de_Travail, , , xlWhole) If Not cel Is Nothing Then MsgBox "La valeur a été trouvée ligne " &amp; cel.Row &amp; " colonne " &amp; cel.Column, vbCritical, "Trouvée": Exit Sub End If Next i MsgBox "Attention la valeur recherchée n'existe pas", , "Valeur non Trouvée" End With End Sub...

paritec · Answer

Si tu n’es pas capable de relire une de tes macros c’est grave!!! Maintenant de multiplier les variables et de leurs donner des noms à rallonge rend tes codes illisible, c’est pour cela que tu ne peux plus rien comprendre car mettre en set une variable qui elle même dépend d’une variable!!!! Bref fais comme tu l’entends mais là seule chose qui est sure c’est que pour ta recherche une boucle est parfaitement adaptée et règlera le problème de plage à rallonge (comme tes variables) tout est à rallonge Sans fichier je ne peux plus rien faire pour toi A plus Papou...