Recherche en vba message d'erreur

[Résolu/Fermé]
Signaler
Messages postés
235
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
1 juin 2012
-
Messages postés
17262
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 octobre 2021
-
Bonjour,

Je voudrais faire une recherche avec cette macro mais j'obtiens le message " l'indice n'appartient pas à la selection alors qu' il se trouve dans la cellule Q1 dans mon exemple!!! quelqu'un peux t'il m'aider?

merci d'avance

Sheets("Facture").Select
Range("A13").Activate
code = ActiveCell
Range("b13").Activate
qte = ActiveCell
Sheets("recapfacture").Select
Range("q1:Ak1").Select
Selection.Find(What:=code, After:=ActiveCell, LookIn:=xlValue, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, _
SearchFormat:=False).Activate

1 réponse

Messages postés
17262
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 octobre 2021
10 637
Bonsoir,

Essaie plutôt ceci

Sub cherche()
Dim code, qte

With Sheets("Facture")
code = .Range("A13")
qte = .Range("B13")
End With

Sheets("recapfacture").Activate
Range("q1:Ak1").Select
Selection.Find(What:=code, LookIn:=xlValues, LookAt:=xlPart).Activate

End Sub
--

m@rina
- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"