recherche en vba message d'erreur Résolu/Fermé

Question

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

Configuration: Windows XP / Internet Explorer 6.0

m@rina · Answer

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

Recherche en vba message d'erreur

1 réponse

Discussions similaires