Recherche en vba message d'erreur
Résolu
chrismeun
Messages postés
91
Date d'inscription
Statut
Membre
Dernière intervention
-
m@rina Messages postés 27709 Date d'inscription Statut Modérateur Dernière intervention -
m@rina Messages postés 27709 Date d'inscription Statut Modérateur Dernière intervention -
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
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
-
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 ???"
