Excel VBA basique / Recherche
Résolu
Razaii
Messages postés
90
Statut
Membre
-
Razaii Messages postés 90 Statut Membre -
Razaii Messages postés 90 Statut Membre -
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 )
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
-
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, -
Bonjoue,
.[A:A].Find(...)
eric
-
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 )
