inputbox

[jeo]

Bonsoir à tous
Excusé mois de vous poser une question et j’espère trouver une réponse sur votre forum
J’ai créé un inputbox pour entrer des valeur dans des cellule, est il possible d’afficher l’inputbox automatiquement si nous somme en mois de juillet au lieu de cliquer sur un bouton sur la feuille
Merci d’avance

 

[porcinet82]

Salut Jeo,

C'est possible, mais qu'entends-tu par afficher l'inputbox automatiquement, a chaque changement d'une cellule particulière? Des l'ouverture du fihcier?
Donne nous un peu plus de detail, mais pour exemple, le code suivant t'ouvre un inputbox des l'ouverture de ton fichier si on est au mois d'avril (a placer dans le module ThisWorkbook) :

Private Sub Workbook_Open()
If Month(Date) = 4 Then
    InputBox ('Ce que tu veux')
End If
End Sub

@+

Edition : Pas testé a fond, du cou plantage dans le code, donc je le change...

Message édité par: porcinet82, à: 25/04/2006 20:35

 

[jeo]

Bonsoir porcinet82 Bonsoir à tous
Merci pour votre réponse, mais ce n’est pas ça que je cherche
S.V.P regarder le fichier joint
Merci à toutes et à tous [file name=Classeur1_20060425212305.zip size=8336]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060425212305.zip[/file]

 

[bertgrav]

bonsoir,

met ce code là à la place du tien et essaie de changer les dates aux niveau de ton ordinateur, simule le mois de juillet 2006, etc etc...
tu vois apparaitre le message si tu es en juillet 2006 pour mettre le montant dans le case.

chantal

Sub indemnité()
If Month(Date) / Year(Date) = 7 / 2005 Then
Indemnité2005 = InputBox('Entrez le montant de l'indemnité 2005 pour unité 1')
Range('B1').Select
ActiveCell.FormulaR1C1 = Indemnité2005
End If
If Month(Date) / Year(Date) = 7 / 2006 Then
Indemnité2006 = InputBox('Entrez le montant de l'indemnité 2006 pour unité 1')
Range('B2').Select
ActiveCell.FormulaR1C1 = Indemnité2006
End If
If Month(Date) / Year(Date) = 7 / 2007 Then
Indemnité2007 = InputBox('Entrez le montant de l'indemnité 2007 pour unité 1')
Range('B3').Select
ActiveCell.FormulaR1C1 = Indemnité2007
End If
End Sub