Discussion :

[apt]

Bonsoir à tous,

Dans un WorkSheet_Change, je déclare une variable x :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim x as integer

Et je la renseigne ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x = Target

Mais le compilateur me sort une erreur :

Incompatibilité de type

Et si je déclare x comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim x

L'erreur n'est pas rencontrée.

Comment peut-on savoir le type de la variable pour la déclarer proprement ?

Merci.

[mercatog]

ça dépends des valeurs entrées par l'utilisateur.
Exemple de double

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
 
If Target.Count = 1 Then
    'x = Val(Target.Value) 'Au cas où le séparateur décimal est le point
    x = Val(Replace(Target.Value, ",", "."))
    MsgBox x
End If
End Sub

[BlueMonkey]

Bonjour,

L'exemple de Mercatog prend en compte le fait que le séparateur décimal d'une valeur numérique soit ','
(ce qui est un cas d'erreur tout à fait possible)

Mais juste pour expliquer pourquoi ceci fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim x
  x = Target
End Sub

et pas cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim x as Integer
  x = Target
End Sub

C'est que dans le premier cas, x est du type Variant (en gros il accepte différent type). Il acceptera donc de recevoir un Range (le type de Target)

Dans le second cas, x est un entier. Et dans ce cas, on ne peut pas affecteur un Range à un entier.
Pour utiliser la valeur du Range, il faut utiliser Target.Value comme dans l'exemple de Mercatog.

[apt]

Bonsoir mercatog, BlueMonkey,

Même avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x = Target.Value

Ça donne la même erreur

La valeur du Target est issue de la valeur d'une liste déroulante insérée dans la feuille.

La liste déroulante est remplie à partir d’une plage nommée "Liste" qui contient des entiers.

[BlueMonkey]

Dans ce cas, le mieux est de vérifier la valeur de de Target.value avec le debugger, en mettant un point d'arrêt dans la fonction.

[apt]

Re,

Un petit exemple en PJ.