Excel VBA basique / Recherche

Résolu
Razaii -  
Bonjour à tous,

Je rencontre un petit problème de Syntax dans le VBA.

Sub Renvoie2()
Dim rngTrouve As Range

With Sheets("Forecast")
Set rngTrouve = .Cells.Find(Range("A3").Value, Lookat:=xlWhole)
If rngTrouve Is Nothing Then
MsgBox "Référence non valide."
Else
.Select
rngTrouve.Select
End If
End With
End Sub

Il faudrait que mon bouton ne cherche que dans la colonne A de la "Sheets" Forecast et non dans la feuille entière.

Comment puis-je écrire cela ? xlbycolumn ?

Merci d'avance pour votre aide et bonne journée.

Cordialement,



--
Je ne cherche pas à gagner ma vie, je l'ai déjà. (Boris Vian )

3 réponses

  1. Razaii Auteur
    Merci eriic, merci Theo.R !

    Les deux solutions fonctionnent.

    Je vous souhaite une bonne après-midi.

    Je ne cherche pas à gagner ma vie, je l'ai déjà. (Boris Vian )
    1
    1. eriiic Contributeur
      Bonjoue,

      .[A:A].Find(...)
      eric
      1
      1. Theo.R
        Bonjour,

        Perso, j'utilise la recherchev sous vba de la manière suivante (et je n'ai jms eu de pb avec) :

        Dim R As Variant
        R = Application.VLookup(VALCHERCHEE,PLAGE,NUMCOLARENVOYER,False)
        If IsError(R) Then
        MsgBox "Valeur non retrouvée dans la PLAGE"
        Else
        MsgBox R
        End If

        Il te suffit de remplacer les noms en MAJ par tes valeurs et remplacer les MsgBox par les actions que tu désires faire selon le résultat de la recherche.

        Bonne continuation,
        1