Excel VBA basique / Recherche Résolu/Fermé

Question

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,



Configuration: Windows 7 / Mozilla 11.0

Theo.R · Answer

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,

eriiic · Answer

Bonjoue,

.[A:A].Find(...)
eric

Razaii · Answer

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 )