If cod = Range("IV6").Value Then.......

[Evelynetfrancois]

bonjour à tous
je bloque .....

mon code d accés fait référence à la valeur d'une cell (iv6)

cod = InputBox(" Code d'accès obligatoire pour toutes modifications des paramêtres ", " Accès protégé")

If cod = Range("IV6").Value Then.......

SI IV6 est égale à du ALPHA ça fonctionne
par contre , si c est du numerique ca file à ........end if

pourquoi ???

bonne aprem à tousss

E et F

 

[joss56]

Re : If cod = Range("IV6").Value Then.......

Salut

Parce que Inputbox renvoie une chaîne. Pour la conversion:

cod=val(cod) ou
cod=val(inputbox( etc...)

Jocelyn

 

[Pierrot93]

Re : If cod = Range("IV6").Value Then.......

Bonjour E et F

peut être comme ceci :

Dim cod
cod = InputBox(" Code d'accès obligatoire pour toutes modifications des paramêtres ", " Accès protégé")
If cod = CStr(Range("IV6").Value) Then MsgBox "ok"

bon après midi
@+

 

[Evelynetfrancois]

Re : If cod = Range("IV6").Value Then.......

MERCI Jocelyn et pierrot93
la formule de joss me parait trés bien !! elle fonctionne
je note çade suite

bon aprem
un grand merci a vous deux
E et F

 

[Pierrot93]

Re : If cod = Range("IV6").Value Then.......

Re, bonjour joss

attention le code de Joss renverra 0, si ton code est de l'alpha...

@+

 

[d.ryba]

Re : If cod = Range("IV6").Value Then.......

Bonjour E et F

peut être comme ceci :

Dim cod
cod = InputBox(" Code d'accès obligatoire pour toutes modifications des paramêtres ", " Accès protégé")
If cod = CStr(Range("IV6").Value) Then MsgBox "ok"

bon après midi
@+

oui voir

Dim cod as String

 

[joss56]

Re : If cod = Range("IV6").Value Then.......

Re Pierrot,

C'est juste...Merci de tes précisions

Jocelyn

 

[Evelynetfrancois]

Re : If cod = Range("IV6").Value Then.......

RE
Ha oui en effet , c est soit alpha soit numerique
et c'est vrai que pour mon cas ça peut être les deux .....d'ou mon post
donc j'opte pour ta version pierrot !!!!!
trop fort ., merci pour tout

E et F