Commande inputbox
Francis
-
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai déjà la commande suivante :
Private Sub Workbook_Open()
If IsEmpty(Sheets("Suivi de mandat").Range("E6").Value) Then
Dim d1
d1 = InputBox(" Veuillez inscrire l'année que vous produisez", "Fin d'année", "2012")
Range("B10") = d1
End If
End Sub
Mais je veux ajouter des champs comment faire ?
J'ai déjà la commande suivante :
Private Sub Workbook_Open()
If IsEmpty(Sheets("Suivi de mandat").Range("E6").Value) Then
Dim d1
d1 = InputBox(" Veuillez inscrire l'année que vous produisez", "Fin d'année", "2012")
Range("B10") = d1
End If
End Sub
Mais je veux ajouter des champs comment faire ?
