Commande inputbox

Fermé
Francis - 25 mars 2014 à 17:16
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 - 15 avril 2014 à 16:38
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 ?

1 réponse

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
15 avril 2014 à 16:38
Tu veux qu'il y ai plus de champs ?

Soit tu fais plusieur imput box qui se suivent.

Soit tu fait un Userform
0