Appel de variable

Version imprimable

Appel de variable

Bonjour,

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

Code:

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:

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

19/07/2017, 12h55
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:

Call ligneBrouillon

Il serait sans doute plus juste d'écrire :

Code:

Call ModeBrouillon

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

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:

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:

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:

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.

19/07/2017, 14h28
Alaindhu

Faut-il que je fasse l'inputbox dans une fonction ?
19/07/2017, 17h48
Menhir

Citation:

Envoyé par Alaindhu

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:

Public Sub ModeBrouillon()

Je le répète : mets ton Sub ModeBrouillon() dans le même module que le Sub CmdEnre_Click().
19/07/2017, 18h13
eriiic

Bonjour,

problème dans le type de la variable aussi :

Code:

Public ligneBrouillon As Long

et

Code:

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
19/07/2017, 18h46
Alaindhu

Un grand merci à vous deux, c'est résolu! en suivant simplement vos suggestions et en testant plusieurs trucs.
Bonne soirée,
19/07/2017, 23h33
eriiic

j'avais rédigé un peu vite, il fallait lire :
ligneBrouillon = clng(Application.InputBox("Renseignez le numéro de la ligne d'entretien à modifier ?", "Mode brouillon",type:=1))
C'est pour que la boite n'accepte que des nombres