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...
Voici la sous-routine
Voici le form.
Dans celui-ci je tente de récupérer les variables cjour et cintervalle.
Bon, ou suis-je dans l'erreur.
É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...
Code:
Public cjour As String
Public cIntervalle As String
Sub AnalyseDesServeurs()
Call PeriodedInterrogationVoici la sous-routine
Code:
Sub PeriodedInterrogation()
frmInformations.Show
End SubVoici le form.
Dans celui-ci je tente de récupérer les variables cjour et cintervalle.
Code:
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 SubBon, ou suis-je dans l'erreur.