probleme de code

[blacsap]

salut
j'ai repris la lecon 6 pour decouvrir 1 valeur dans 1 colonne
quand je met 1 valeur en B1 existante dans la colonne A ca marche
met quand cette valeur n'est pas dans la colonne a ca m'ecrit "variable objet ou variable de bloc With non defini"
comment je peux faire pour soit ne plus avoir ce message ou soit qui il es 1 message m'indiquant que cette valeur n existe pas
merci d'avance
@+
Blacsap

 

[ZON]

Bonsoir à tous,

blacksap tu peux faire comme suit :

Sub Action1()
Dim C As Range
Dim x As Range
Set x = Cells(1, 2)
If x = "" Then Exit Sub 'si la cellule B1 est vide (fin de la macro)
'Selection de toute la colonne A
With Columns(1)
Set C = .Find(What:=x.Text)
End With
If Not C Is Nothing Then C.Select 'on sélectionne la cellule trouvée
else Msgbox"Pas de valeur "
End if
End Sub


A+++

 

[blacsap]

re
ZOn j'ai essayé ton code met ca me marque "erreur de compilation:Else sans IF"
merci de me donner 1 coup de pouce
@+
Blacsap

 

[ZON]

Re,


désolé le C.select doit être à la ligne
...
If Not C Is Nothing Then
C.Select 'on sélectionne la cellule trouvée
else Msgbox"Pas de valeur "
End if
..

A+++

 

[blacsap]

re
merci beaucoup ZON ca marche )))))
@+
blacsap