Recherche en vba message d'erreur
Résolu
chrismeun
Messages postés
237
Date d'inscription
Statut
Membre
Dernière intervention
-
m@rina Messages postés 23936 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23936 Date d'inscription Statut Contributeur 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
A voir également:
- Recherche en vba message d'erreur
- Recuperer message whatsapp supprimé - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Message supprimé whatsapp - Guide
- Message absence thunderbird - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
1 réponse
Bonsoir,
Essaie plutôt ceci
m@rina
- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"
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 ???"