Commande Workbook_Open
Francis
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 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
A voir également:
- Commande Workbook_Open
- Invite de commande - Guide
- Commande terminal mac - Guide
- Commande dism - Guide
- Commande scannow - Guide
- Masquer commande amazon - Guide
2 réponses
Bonjour,
au pmlus simple:
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.
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.
