Commande inputbox

Francis -  
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 ?
A voir également:

1 réponse

skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   54
 
Tu veux qu'il y ai plus de champs ?

Soit tu fais plusieur imput box qui se suivent.

Soit tu fait un Userform
0