Discussion :

[Aurélien13140]

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 :

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

VOici mon code (non complet)

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
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

[clementmarcotte]

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 :

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

PUblic Lig as Long

et tu enlèves

Code :

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

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 :

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

 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 :

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

 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.

[Menhir]

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