Discussion :

[Alaindhu]

Bonjour,

Je cherche à appeler la variable ligneBrouillon dans la procédure d'un UF nommée Private Sub CmdEnre_Clic :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public ligneBrouillon As Long
 
Sub ModeBrouillon()
 
        ligneBrouillon = InputBox("Renseignez le numéro de la ligne d'entretien à modifier ?", "Mode brouillon")
 
            'SIGNALETIQUE
 
            UFsaisie.TxtDate = Range("B" & ligneBrouillon)
 
        Affichage
 
End Sub

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub CmdEnre_Click()
Dim ligne As Long
Dim i As Long
Dim ctrl As Control, ctrlerr As Control
Dim erreur As Boolean
 
With UFsaisie
Call ligneBrouillon
 
    If TxtNom <> "" And TxtPrenom <> "" Then
 
    ligne = Range("B2").CurrentRegion.Rows.Count + 2 'pour commencer en ligne 4
 
                If ligneBrouillon = "" Then
                        InjectionDonnees
                    Else: InjectionDonneesBrouillon
                End If
 
            ThisWorkbook.Save
 
                If LblObli.Visible = True Then
                    LblObli.Visible = False
                End If
 
            On Error Resume Next
                Select Case MsgBox("Voulez vous imprimer le formulaire?", vbQuestion + vbYesNoCancel, "Impression du formulaire")
                    Case Is = vbYes
                        Unload UFsaisie
                        With Sheets("IMPRESSION EEA")
                        .PrintPreview
                        End With
                        remiseAzero
                        RemiseAzeroCompetences
                        UFsaisie.Show 0
 
                    Case Is = vbNo
                        remiseAzero
                        RemiseAzeroCompetences
 
                    Case Is = vbCancel
 
                End Select
 
    Else
    LblObli.Visible = True
'End If
 
    End If
End With
End Sub

Mais j'ai ce message d'erreur, avez vous une idée du problème svp? "erreur de compilation procédure attenue, non une variable"

Merci de votre aide

[Menhir]

Il faut mettre ta déclaration et ton Sub ModeBrouillon() dans le même module que Sub CmdEnre_Click().

Tu peux aussi transformer ton Sub ModeBrouillon() en fonction qui renverrait la valeur de cette variable.

Je pense que tu as fait une erreur en écrivant :

Code :

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

Call ligneBrouillon

Il serait sans doute plus juste d'écrire :

Code :

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

Call ModeBrouillon

Puisque Call sert à appeler des Sub et des fonctions et non des variables.

[Alaindhu]

Merci pour ta réponse.

[EDIT]
J'ai réussi à ne plus faire bugger en déclarant la variable public dans le code de l'UF:

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
Public ligneBrouillon As Long
 
 
'''''''''''''''''''''''''''''''''''''''''''BOUTON ENREGISTRER'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub CmdEnre_Click()
Dim ligne As Long
Dim i As Long
Dim ctrl As Control, ctrlerr As Control
Dim erreur As Boolean
 
    If TxtNom <> "" And TxtPrenom <> "" Then
 
    ligne = Range("B2").CurrentRegion.Rows.Count + 2 'pour commencer en ligne 4
 
                If ligneBrouillon = "" Then
                        InjectionDonnees
                    Else: InjectionDonneesBrouillon
                End If
 
            ThisWorkbook.Save
 
[...]
End Sub

La variable est définie par un inputbox qui se trouve dans un module:

Code :

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

1
2
3
4
5
6
7
8
Public Sub ModeBrouillon()
 
        ligneBrouillon = Application.InputBox("Renseignez le numéro de la ligne d'entretien à modifier ?", "Mode brouillon")
 
            'SIGNALETIQUE
 
            UFsaisie.TxtDate = Range("B" & ligneBrouillon)
[...]

Mais la ou je bloque maintenant c'est que ma variable est égal à VIDE dans une procédure qui est directement dans le code de l'UF:

Code :

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

1
2
3
4
5
6
7
Sub InjectionDonneesBrouillon()
 
            'SIGNALETIQUE
 
            Range("B" & ligneBrouillon) = TxtDate
            Range("C" & ligneBrouillon) = FraCivilite.Tag
            Range("D" & ligneBrouillon) = TxtNom

Je ne comprends pas pourquoi la variable que je saisi dans l'inputbox ne soit pas gardée en mémoire dans une procédure de l'UF.

[Alaindhu]

Faut-il que je fasse l'inputbox dans une fonction ?

[Menhir]

J'ai réussi à ne plus faire bugger en déclarant la variable public dans le code de l'UF:

La variable est définie par un inputbox qui se trouve dans un module:

Code :

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

Public Sub ModeBrouillon()

Je le répète : mets ton Sub ModeBrouillon() dans le même module que le Sub CmdEnre_Click().

[eriiic]

Bonjour,

problème dans le type de la variable aussi :

Code :

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

Public ligneBrouillon As Long

et

Code :

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

If ligneBrouillon = "" Then

Faut choisir...
Comme apparemment tu y mets une chaine alors As String
Laisse As Long et
ligneBrouillon = Application.InputBox("Renseignez le numéro de la ligne d'entretien à modifier ?", "Mode brouillon",type=1)
...
If ligneBrouillon = 0
eric

[Alaindhu]

Un grand merci à vous deux, c'est résolu! en suivant simplement vos suggestions et en testant plusieurs trucs.
Bonne soirée,