Sujet Précédent Sujet Suivant

Excel VBA basique / Recherche

Résolu/Fermé
Razaii Messages postés 85 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 5 septembre 2017 - 27 janv. 2016 à 14:28
Razaii Messages postés 85 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 5 septembre 2017 - 27 janv. 2016 à 15:05
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,




A voir également:

3 réponses

Réponse 1 / 3
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
27 janv. 2016 à 14:33
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
Réponse 2 / 3
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
27 janv. 2016 à 14:33
Bonjoue,

.[A:A].Find(...)
eric
1
Réponse 3 / 3
Razaii Messages postés 85 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 5 septembre 2017 13
Modifié par Razaii le 27/01/2016 à 15:06
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