Savoir le type de la variable

Bonsoir à tous,

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

Code:

---

Dim x as integer

---

Et je la renseigne ainsi :

Code:

---

x = Target

---

Mais le compilateur me sort une erreur :

Citation:

---

Incompatibilité de type

---

Et si je déclare x comme ça :

Code:

---

Dim x

---

L'erreur n'est pas rencontrée. :?

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

Merci.

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

Code:

---

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

---

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:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Dim x x = Target End Sub

---

et pas cela

Code:

---

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. ;)

Bonsoir mercatog, BlueMonkey,

Même avec :

Code:

---

x = Target.Value

---

Ça donne la même erreur 8O

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.

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.

Re,

Un petit exemple en PJ.

Code:

---

x = Val(Target.Value)

---

Ca pose le même problème avec la ligne suivante :

Code:

---

y = Application.Match(x, [N1:N100], 0)

---

Code:

---

Dim y As Integer

---

Re.

Le problème est qu'actuellement la plage "ListSmry" et [N1:N100] sont complètement vide.
Il faut intégrer ce cas de figure dans les tests de la fonction

exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Worksheet_Change(ByVal Target As Range) Dim x&, y& If Target.Address = "$B$1" Then x = Val(Target.Value) y = -1 On Error Resume Next y = Application.Match(x, [N1:N100], 0) 'MsgBox "Type de x = " & x.Type If y < 1 Then MsgBox "Valeur (" & x & ") non trouvée" Else CommandButton1.Caption = "Imprimer " & vbCrLf & "le tableau " & Range("B1") MsgBox x & " trouvé à N" & y Range("N" & y).CurrentRegion.Name = "Print_Area" Range("Print_Area").Select End If End If End Sub

---

Ca marche maintenant.

Merci BlueMonkey.

Mais :

-Comment faire pour que la liste ne se déroule pas lorsqu'elle contient seulement des vides ?

-Et comment résoudre mon problème (Tu le sais déjà :mouarf:) d'avoir de temps en temps : Application.EnableEvents = False qui stop le déroulement du code ?

:P

Content de voir que ça marche. :ccool:

Citation:

---

Comment faire pour que la liste ne se déroule pas lorsqu'elle contient seulement des vides ?

---

Si les lignes se remplissent dans l'ordre, il faut modifier la formule pour la validation de [B2]

Code:

---

=SI($W$6<>"";ListSmry;"""")

---

Citation:

---

Et comment résoudre mon problème, d'avoir de temps en temps : Application.EnableEvents = False qui stop le déroulement du code ?

---

Comme c'est un autre sujet , je vais voir ce que je peux trouver comme solution.

La formule marche seulement pour W6 s'il est pas vide.

Mais si la plage nommée ListSmry contient des vides ils seront listés :aie:

Code:

---

ListSmry = =DECALER(Feuil1!$W$6;;;NBVAL(Feuil1!$W:$W)-1)

---