Discussion :

[jopont]

Bonjour,
Dans le code ci-dessous, j'ai une erreur d'exécution '13' sur For Each c in [ticket].

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$C$8" Then
    Set d = CreateObject("Scripting.Dictionary")
    For Each c In [ticket]: d(c.Value) = "": Next c
    Target.Validation.Delete
    Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
  End If
    If Target.Address = "$D$8" Then
    Set d = CreateObject("Scripting.Dictionary")
    For Each c In [Engin]: d(c.Value) = "": Next c
    Target.Validation.Delete
    Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
  End If
 
End Sub

Cette erreur est-elle due à [ticket] ?
Merci

[Menhir]

Cette erreur est-elle due à [ticket] ?

C'est quoi [ticket] ?

Tu devrais déclarer tes variables, en particulier c, pour qu'elles aient un type défini.

[jopont]

Bonjour,

[ticket] est un nom défini, il correspond à un range.
J'ai déclaré c as range, et j'ai toujours la même erreur.

[Menhir]

Lorsque le plantage se produit, quelle est la valeur de c ?
Que contient la case qu'il référence ?

[jopont]

La case qu'il référence est du texte.

[unparia]

Bonjour
Je ne comprends pas car l'inscription dans un dictionnaire avec ce code ne devrait normalement pas générer d'erreur, quel que puisse être le contenu de c (y compris si en erreur)
Si, par contre on cherche a afficher ce contenu (et non à alimenter un dictionnaire), alors là oui, nous aurions une erreur 13 si c est en erreur. Mais pas en uniquement abondant le dictionnaire.

[halaster08]

Bonjour,
[ticket] est un nom défini, il correspond à un range.

D'où vient cette syntaxe?
Pour utiliser des plages nommées, l'enregistreur de macro donne Range("nom_de_la_plage").