Commande Workbook_Open
Francis
-
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 inscrit la commande suivante :
Private Sub Workbook_Open()
If IsEmpty(Sheets("2010vs2009").Range("B10").Value) Then InputBox " Veuillez inscrire l'année que vous produisez...", "Fin d'année", "2012"
End Sub
Le seul problème c'est que le mot que j'inscrit dans le InputBox ne va pas s'inscrire en B10.
Merci de votre temps
J'ai inscrit la commande suivante :
Private Sub Workbook_Open()
If IsEmpty(Sheets("2010vs2009").Range("B10").Value) Then InputBox " Veuillez inscrire l'année que vous produisez...", "Fin d'année", "2012"
End Sub
Le seul problème c'est que le mot que j'inscrit dans le InputBox ne va pas s'inscrire en B10.
Merci de votre temps
2 réponses
-
Bonjour,
au pmlus simple:
Private Sub Workbook_Open() If IsEmpty(Sheets("2010vs2009").Range("B10").Value) Then annee = InputBox(" Veuillez inscrire l'année que vous produisez...", "Fin d'année", "2012") 'mettre des test si necessaire, pour valider la saisie ' ' Sheets("2010vs2009").Range("B10").Value = annee End If End Sub -
Bonjour,
Essaie avec :
Private Sub Workbook_Open()
If IsEmpty(Sheets("2010vs2009").Range("B10").Value) Then
Sheets("2010vs2009").[B10]=InputBox " Veuillez inscrire l'année que vous produisez...", "Fin d'année", "2012"
end if
End Sub
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
