Recherche en vba message d'erreur

Résolu/Fermé

chrismeun Messages postés 235 Date d'inscription mercredi 19 avril 2006 Statut Membre Dernière intervention 1 juin 2012 - 19 mars 2011 à 17:18
m@rina Messages postés 20027 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 18 avril 2024 - 19 mars 2011 à 18:39

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

A voir également:

Recherche en vba message d'erreur
Erreur 0x80070643 - Guide
Recuperer message whatsapp - Guide
Message d'absence thunderbird - Guide
Recherche musique - Guide
Google recherche par image - Guide

1 réponse

Réponse 1 / 1

m@rina Messages postés 20027 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 18 avril 2024 11 269
19 mars 2011 à 18:39

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 ???"

Discussions similaires

qu'est-ce que diff message ?

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

Comment reconnaitre si un SMS m'indiquant un message vocal est une arnaque ?

Erreur vidéo inconnue sur le Freebox Player

Discussions similaires

Newsletters