Boite dialogue excel2003
nul
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'ai un soucis avec la boite que j'ai créer. Elle ne m'affiche pas dans les cellules ce que je lui demande.
Voici le code:
Private Sub OK_Click()
Dim regime1 As String
Dim regime2 As String
Dim regime3 As String
If CheckBox1.Value = False Then
regime1 = "X"
Else
regime1 = ""
End If
If CheckBox2.Value = False Then
regime2 = "X"
Else
regime2 = ""
End If
If CheckBox3 = False Then
regime3 = "X"
Else
regime3 = ""
End If
If CommandButton1 Then GoTo Feuil2
End If
REGIMES.Hide
range(a3).Value = regime1
range(b3).value=regime2
range(c3).value=regime3
End Sub
Private Sub Annuler_Click()
REGIMES.Hide
M'est il possible de renvoyer sur une autre feuille les cases qu' il doit remplir et comment si jamais ?
Merci par avance.
j'ai un soucis avec la boite que j'ai créer. Elle ne m'affiche pas dans les cellules ce que je lui demande.
Voici le code:
Private Sub OK_Click()
Dim regime1 As String
Dim regime2 As String
Dim regime3 As String
If CheckBox1.Value = False Then
regime1 = "X"
Else
regime1 = ""
End If
If CheckBox2.Value = False Then
regime2 = "X"
Else
regime2 = ""
End If
If CheckBox3 = False Then
regime3 = "X"
Else
regime3 = ""
End If
If CommandButton1 Then GoTo Feuil2
End If
REGIMES.Hide
range(a3).Value = regime1
range(b3).value=regime2
range(c3).value=regime3
End Sub
Private Sub Annuler_Click()
REGIMES.Hide
M'est il possible de renvoyer sur une autre feuille les cases qu' il doit remplir et comment si jamais ?
Merci par avance.
