Excel VBA basique / Recherche
Résolu
Razaii
Messages postés
85
Date d'inscription
Statut
Membre
Dernière intervention
-
Razaii Messages postés 85 Date d'inscription Statut Membre Dernière intervention -
Razaii Messages postés 85 Date d'inscription Statut Membre Dernière intervention -
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 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,
A voir également:
- Excel VBA basique / Recherche
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
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,
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,
