Problème dans utilisant la fonction Find

[arnaud_garou]

Bonjour,

Petit soucis concernant une macro qui devrait rechercher dans deux colonnes que je spécifie, mais qui parfois "sort" de ces deux colonnes...

Voici le code :
Private Sub MacroSearch()

With ActiveSheet.Range("E1:G65536")

If .Find(What:=ChampRecherche, LookIn:=xlValues) Is Nothing Then MsgBox "Pas trouvé" Else .Find(What:=ChampRecherche, LookIn:=xlValues).Activate

End With

End Sub

Comment puis-je limiter ma recherche aux colonnes E et G, ce qui pour l'instant n'est pas le cas?

Merci beaucoup si quelqu'un peut me tirer de là!

 

[Spitnolan08]

Re : Problème dans utilisant la fonction Find

Bonsoir,

Le code que tu fournis limite bien la recherche aux colonnes E à G.
Qu'est ce qui te fait dire le contraire ?

Quelles valeurs peut contenir ChampRecherche ?

Cordialement

 

[Cousinhub]

Re : Problème dans utilisant la fonction Find

Bonsoir,
ta recherche s'effectue des colonnes E à G
pour limiter aux colonnes E et G, mets ce bout de code :

With ActiveSheet.Range("E:E,G:G")

 

[Spitnolan08]

Re : Problème dans utilisant la fonction Find

Re,

bhbh a raison...
Il n'y a pas écrit "E à G" mais "E et G"...
Et dire que je suis en train de me farcir des dizaines de questions de logique pour mon fils où tous les mots comptent... Un "à" lu à la place d'un "Et" et la réponse est fausse...

Cordialement

 

[Staple1600]

Re : Problème dans utilisant la fonction Find

Bonsoir à tous


Une question en passant
Ici on traite l'intégralité des colonnes

With ActiveSheet.Range("E:E,G:G")

Quelle la syntaxe correcte pour traiter les colonnes
mais de la 1àre cellule à dernière cellule non vide?

With ActiveSheet.Range("E1:E" & [E65536].End(xlUP).Row),"G1:G" & [G65536].End(xlUp).Row)

ne fonctionnant évidemment pas

 

[Cousinhub]

Re : Problème dans utilisant la fonction Find

salut staple, t'étais pas loin...

With ActiveSheet.Range("E1:E" & [E65536].End(xlUp).Row & ",G1:G" & [G65536].End(xlUp).Row)

 

[jp14]

Re : Problème dans utilisant la fonction Find

Bonsoir le fil

Pour traiter les deux colonnes il faut définir la plage "E1: D x "

x étant la dernière cellule dans l'une ou l'autre des deux colonnes.
Si les colonnes ne sont pas identiques on peut utiliser
x = Sheets("Feuil1").Cells.SpecialCells(xlCellTypeLastCell).Row
ce qui donnera la dernière ligne de la feuille

JP

 

[arnaud_garou]

Re : Problème dans utilisant la fonction Find

Merci beaucoup pour les suggestions.
Malheureusement ma recherche "sort" toujours des colonnes E et G, même avec le bout de code modifié :
With ActiveSheet.Range("E:E,G:G")

Je m'explique : Lorsque par exemple le ChampRecherche (vient d'un userform) contient la valeur "capital", ma macro va pointer la première cellule contenant "capital" dans les colonnes E et G. Mais lorsque j'utilise le bouton Suivant de mon Userform, il peut arriver que des cases hors colonnes E et G soient sélectionnées, si elles contiennent le mot "capital".

Code de mon bouton Suivant :

Private Sub ButtonSuivant_Click()

With ActiveSheet.Range("E:E,G:G")
Cells.FindNext(After:=ActiveCell).Activate
End With

End Sub​

J'espère avoir mieux explicité le problème, et serais très reconnaissant de voir vos suggestions pour le régler.

Merci!!

 

[Cousinhub]

Re : Problème dans utilisant la fonction Find

Bonsoir,
il te manque le petit point (.) devant Cells => .Cells

Edit : tu dois même pouvoir supprimer Cells, tout en gardant .FindNext