déclaration et test de la variable

[Eric D]

Bonjour,

Et oui on est Dimanche et je ne suis pas parti me coucher.
Mon nouveau Pb est le suivant:
Comment dois-je déclarer ma variable X sachant qu'elle correspond au contenu d'une cellule et que celle-ci est tjs numérique, et comment faire mon test pour savoir si elle est <=> 16.
J'avais : Dim X as integer
X = target.value
mais là il me met un default de variable objet ???
et plus loin j'ai if X < 16 then...
if X = 16 then...
if X > 16 then...
Merci pour votre aide.
Eric D

 

[tirex28]

Re : déclaration et test de la variable

Bonsoir,

Le probleme vient du fait que ta variable target n'est pas initialisée.

Dim X As Integer

Set Target=Range("A1") 'Reference a adapter

X=Target.Value
Select Case x
    Case Is > 16
        Instructions
    Case 16
        'Instructions
    Case Is < 16
        'Instructions
End Select

Cordialement,
Tirex28

 

[Dan]

Re : déclaration et test de la variable

Bonjour,

Petit complément à Tirex28, si la variable X est toujours numérique et inférieure à 255, déclare la comme ceci = Dim X as byte.

A te lire

Dan