Commande au start up

[fmoore]

Bonjour,

Est-ce qu'il est possible de faire que si j'ouvre mon fichier excel et que dans ma feuille de calcul "2010vs2009" si la cellule B10 est vide qu'il aille une fenêtre qui ouvre avec la question suivante : Veuillez inscrire l'année que vous produisez.

Merci de votre temps !

 

[Pierrot93]

Re : Commande au start up

Bonsoir,

essaye ceci, à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
If IsEmpty(Sheets("2010vs2009").Range("B10").Value) Then MsgBox " Veuillez inscrire l'année que vous produisez..."
End Sub

bonne soirée
@+

 

[fmoore]

Re : Commande au start up

Ceci est ce que j'ai besoins sauf que j'aimerais que dans le dialogue la personne puisse inscrire la date comme 2013.

 

[Eric C]

Re : Commande au start up

Bonsoir le forum
Bonsoir fmoore, bonsoir Pierrot93

Dans ce cas, il suffit de remplacer "MsgBox" par "InputBox".

Bonne soirée

 

[fmoore]

Re : Commande au start up

En ajoutant InputBox sa me met un endroit pour inscrire le mot mais il ce reporte ou ce mot ?

 

[fmoore]

Re : Commande au start up

J'ai inscrit ceci :

Option Explicit
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 est que sa n'inscrit pas le résultat en B10

 

[Pierrot93]

Re : Commande au start up

Bonjour fmoore, Eric,

essaye ce qui suit :

Option Explicit
Private Sub Workbook_Open()
Dim annee As Integer
With Sheets("2010vs2009").Range("B10")
    If IsEmpty(.Value) Then
        annee = Application.InputBox("Veuillez inscrire l'année que vous produisez...", "Fin d'année", "2012", Type:=1)
        If annee > 0 Then .Value = annee
    End If
End With
End Sub

bonne journée
@+