Erreur d'éxécution 1004 au clic d'une Checkbox

Bonsoir tout le monde.

Je vous sollicite à nouveau sur un problème que je n'arrive pas à résoudre (du moins à comprendre).
J'ai crée un petit code qui me permet via un userform (UF_JTZ) de remplir un tableau ligne par ligne sur une feuille Excel (Parametre) et un commandbutton validant mes données.
La recherche de ligne vide fonctionne bien. La recuperation des données de mes textbox/combobox fonctionne bien également.

Cependant, dès que je clique dans une checkbox, j'ai une erreur :

Citation:

---

Erreur d'éxécution 1004
Erreur définie par l'application ou par l'objet

---

VOici mon code (non complet)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Private Sub userform_activate() ''''''''' RECHERCHE LA PREMIERE LIGNE VIDE POUR Y AFFICHER UN NOUVEL AUDIT ''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Lig As Long Lig = 7 'première ligne à vérifier Do While Not IsEmpty(Sheets("parametres").Range("AP" & Lig)) Lig = Lig + 1 Loop End Sub ''''''''' RECHERCHE QUI A ETE AUDITES ''''''''' '''''''''''''''''''''''''''''''''''''''''''''''' For i = 1 To 5 If ComboBox6 = Sheets("parametres").Cells(i + 3, 4) Or ComboBox7 = Sheets("parametres").Cells(i + 3, 4) Then Sheets("parametres").Cells(Lig, i + 27) = "X" End If Next With Worksheets("parametres") .Hyperlinks.Add Anchor:=.Range("AP" & Lig), _ Address:=TextBox1.Value, _ ScreenTip:="", _ TextToDisplay:=TextBox2.Value End With Unload Me UF_JTZ.Hide End Sub Private Sub CheckBox1_Click() 'N°1 If CheckBox1.Value = True Then 'Si coché ... Sheets("parametres").Cells(Lig, 33).Value = "X" End If End Sub

---

La ligne surlignée est celle affichée par le déboggeur. J'avoue, je seche completement sur ce problème, qui je suis sur est pourtant une erreur toute bête.
Pouvez vous m'éclairer?
Merci

Bonjour,

Si Lig n'est pas déclarée comme une variable publique dans un module standard et qu'elle n'a pas déjà une valeur elle vaut zéro. Et il n'y a pas de ligne zéro dans une feuille de calcul.

Ton Lig de la sub Activate n'est pas accessible dans le code du bouton, parce que c'est une variable locale restreinte à la sub activate.

Je te dirais que tu as quelques voies de contournement.

1) Si tu as déjà un module Standard (Insertion - module) tu mets en Entête du module, en dehors de toute procédure :

Code:

---

PUblic Lig as Long

---

et tu enlèves

Code:

---

Dim Lig As Long

---

Mais, le propre des variables publiques, c'est que dès que la variable publique est modifiée à un endroit, elle est modifiée partout.

2) tu peux "cacher" la valeur de Lig à quelque part ailleurs (fichier .ini, registre, fichier texte...) à partir de ta sub Activate et la "découvrir" dans le code de ton bouton.

3) Une chose qui "marche" en VB.net, mais je ne sais pas si cela marche en VBA. Même que je pense que VBA ne voudra pas


Tu sors ton

Code:

---

Dim Lig As Long

---

de ta procédure activate, et tu la mets en entête avant ta sub activate.

Je mets cela parce que c'est possible en VB.net d'avoir plus d'un

Code:

---

Dim Lig As Long

---

et la portée de la variable peut être modulée selon l'emplacement de la déclaration et même être limitée à quelques instructions particulières comme une boucle ou un bloc if. Mais je ne pense pas que ce soit pareil en VBA.

Comme d'hab', le diable est dans la variable.

En cas de bug dans un code, le premier réflexe doit être de vérifier le contenu des variables, soit en consultant la liste des variables, soit en précédent la ligne bugguée avec une instruction d'affichage comme MsgBox ou Debug.Print (perso, j'ai une préférence pour Debug.Print).