recherche nombre

[J_Julie]

Bjr

Voila, (débutante)
J'ai une petite macro ou l'on entre une référence + des infos etc...
Je valide ensuite par un bouton. (OK)
comment puis je tester si la référence qui est entrée est presente dans
dans une feuille

merci

 

[CBernardT]

Bonjour J_Julie,


J'ai l'impression, ou bien je me trompe, que tu n'as pas beaucoup confiance dans la VBA surtout quand tu ne vois pas le résultat de l'action ?

Dans ce cas là, tu peux te faire renvoyer, en fin d'action, par un message le résultat enregistré dans la ou les cellules cibles.

Cordialement

Bernard

 

[J_Julie]

bjr Bernard

Non la confiance est la.
Mais si la reférence n'est pas presente, je souhaite mettre une alerte
dans la macro.

Julie.

 

[porcinet82]

salut Julie,

tu devrais mettre un petit fichier joint afin que tout cela soit plus clair.

@+

 

[JeanMarie]

Bonjour tout le monde

Voici un code, qui permet de rechercher une valeur dans la colonne A.

Public Sub Julie()
Dim vFin As Integer
Dim vPlage As Range
Dim vCherche As Long

'Recherche le N° de la dernière ligne non vide dans la colonne A
vFin = Range('A65536').End(xlUp).Row + 1

'Demande de la valeur à rechercher dans la liste
vCherche = Application.InputBox('Indiquer la valeur à rechercher')

'Ecrit dans la première ligne vide, la valeur à rechercher
'cela permet de supprimer l'erreur VBA, provoquer par la non présence de cette valeur dans la colonne A.
Range('A' & vFin) = vCherche

'Recherche du N° de la ligne qui contient la valeur à rechercher
'Si le N° correspond au à vFin la valeur n'était pas présente
If WorksheetFunction.Match(vCherche, Range('A1:A' & vFin), 0) = vFin Then MsgBox 'Valeur inconnue', 64

'Suppression de la valeur dans la cellule
Range('A' & vFin).ClearContents

End Sub

@+Jean-Marie