Userform et variable

[siocnarf]

Bonjour,

Étant sur le point de m'arracher les cheveux. Je requiert l'aide d'une âme charitable.

À partir d'un VBA, je créé une variable public puis lance un form afin de saisir des données. Sauf que de retour dans script de base, la variable ne contient pas les valeurs...

Public cjour As String
Public cIntervalle As String

Sub AnalyseDesServeurs()

Call PeriodedInterrogation

Voici la sous-routine

Sub PeriodedInterrogation()

frmInformations.Show
  
End Sub

Voici le form.
Dans celui-ci je tente de récupérer les variables cjour et cintervalle.

Public Sub cboIntervalle_Change()
'Dim cIntervalle

If cboIntervalle.ListIndex = -1 Then Exit Sub
If CByte(cboJour) <= CByte(cboIntervalle) Then

    MsgBox ("L'intervalle doit être plus petit que la date")
    cboIntervalle.Value = 0

End If

cIntervalle = cboIntervalle.Value

End Sub

Public Sub cboJour_Change()
'Dim cjour
cjour = cboJour.Value
If cboJour.ListIndex = -1 Then Exit Sub
'MsgBox (cJour)
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub cmdCancel_Click()
    Canceled = True
    Hide
End Sub

Private Sub cmdOK_Click()
    Canceled = False
    Hide
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "SVP, utilisez le bouton!"
  End If
End Sub

Sub UserForm_Initialize()
Dim i As Byte
Me.StartUpPosition = 2
cboJour.Value = Day(Date)
cboIntervalle.Value = 0

For i = 1 To Day(Date)
    cboJour.AddItem i
Next

For i = 0 To Day(Date) - 1
    cboIntervalle.AddItem i
Next

End Sub

Bon, ou suis-je dans l'erreur.

 

[kjin]

Re : Userform et variable

Bonsoir,
Pour être dispo dans tous les modules, les variables doivent être déclarées dans un module standard.Difficile d'en juger avec ton exemple
A+
kjin