Commande Workbook_Open

Question

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

f894009 · Answer

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

eriiic · Answer

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.

Commande Workbook_Open

2 réponses

Discussions similaires

Newsletters