XL 2019 [Résolu] Problème VBA Find

Phil69970

XLDnaute Barbatruc

• 6 Avril 2022

• #2

Bonjour @lebarbo

lebarbo à dit:

ça fonctionne mais je ne souhaite pas faire ça.

Cliquez pour agrandir...

Alors tu veux faire quoi ?
Nous ne sommes pas devin !

@Phil69970

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 6 Avril 2022

• #3

Bonjour lebarbo, phil69970, le forum

à mon humble avis cela fonctionnera beaucoup mieux comme cela.

VB:

Set Trouve = Sheets("Feuil1").Range(Cells(1, 1), Cells(3, 1)).Find(What:="5200", LookIn:=xlValues _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

votre After:=ActiveCell fait planter dès que la cellule active n'est pas dans la plage de recherche, vous pouvez soit l'enlever ce qui prendra par défaut le début de la plage de recherche, soit le définir vous même au début de la plage de recherche.
Vous pouvez aussi enlever tous les paramètres que vous ne modifiez pas pour la recherche.

Cordialement, @+

 

Dernière édition: 6 Avril 2022

Vote positif 0 Vote négatif

Solution

lebarbo

XLDnaute Occasionnel

• 7 Avril 2022

• #4

Merci Bernard c'est top !
Et désolé Phil pour mon manque de détails.

 

Vote positif 0 Vote négatif

lebarbo

XLDnaute Occasionnel

• 8 Avril 2022

• #5

Bonjour à tous,
Finalement j'ai encore un problème, si j'exécute ma macro sur une autre feuille que la Feuil1, j'ai une nouvelle erreur :

Sub Find()
Set Trouve = Sheets("Feuil1").Range(Cells(1, 1), Cells(3, 1)).Find(What:="5200", LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
Z = Trouve.Row
End Sub

Merci pour votre aide,

 

Pièces jointes

• Find.xlsm

  20.6 KB · Affichages: 2

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 8 Avril 2022

• #6

Bonjour

C'est dû à votre façon de noter les références de cellules, là vous ne précisez pas à quelle feuille se rattachent vos cells
Cela fonctionnera mieux comme cela.

VB:

With Sheets("Feuil1")
    Set Trouve = .Range(.Cells(1, 1).Address, .Cells(3, 1).Address).Find(What:="5200", LookIn:=xlValues _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
End With

Mais personnellement, je trouve plus simple d'appeler directement la plage

Code:

Set Trouve = Sheets("Feuil1").Range("A1:A3").Find(What:="5200")

et mettez vos codes dans des balises </>, ce sera plus agréable à lire.

Bien cordialement, @+

 

Vote positif 0 Vote négatif

lebarbo

XLDnaute Occasionnel

• 8 Avril 2022

• #7

Merci Bernard,
ça fonctionne, je ne connaissais pas.
C'est noté pour le code en balise.
Concernant la simplification, je ne passe pas directement par A1:A3 car mon code est une boucle next avec des variables. Ici je l'ai volontairement simplifié.

Bien à vous,

 

Vote positif 0 Vote négatif