Bonjour a tous
Dans une feuille (Feuil1)
J'ai une cellule A1 qui doit contenir une date, pour remplir cette date je
me sert d'un inputbox.
J'ai donc mis dans le code d'activation de la feuille ce qui suit:
Dim DateCalendrier
DateCalendrier = Inputbox("Taper votre date!")
If Range("A1").Value = ""
Range("A1").value=DateCalendrier
End If
Jusque là pas de problème tout fonctionne bien lorsque j'active la feuil1
mais si je me déplace dans une autre feuille et que je reviens sur la feuil1
il s'affiche a nouveau l'inputbox, hors je veux que celui ci fonctionne
uniquement si la cellule A1 et vide une fois la date dans la cellule il ne
doit plus s'afficher.
Que dois-je faire?
Meric pour vos réponses
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
1 seule ligne suffira pour tout faire en même temps dans le worksheet_Activate
Private Sub Worksheet_Activate() If IsEmpty(Range("A1")) Then Range("A1").Value = InputBox("Taper votre date!") End Sub
A+
Bonjour a tous Dans une feuille (Feuil1) J'ai une cellule A1 qui doit contenir une date, pour remplir cette date je me sert d'un inputbox. J'ai donc mis dans le code d'activation de la feuille ce qui suit:
Dim DateCalendrier DateCalendrier = Inputbox("Taper votre date!") If Range("A1").Value = "" Range("A1").valueÚteCalendrier End If
Jusque là pas de problème tout fonctionne bien lorsque j'active la feuil1 mais si je me déplace dans une autre feuille et que je reviens sur la feuil1 il s'affiche a nouveau l'inputbox, hors je veux que celui ci fonctionne uniquement si la cellule A1 et vide une fois la date dans la cellule il ne doit plus s'afficher. Que dois-je faire? Meric pour vos réponses
Bonjour,
1 seule ligne suffira pour tout faire en même temps dans le
worksheet_Activate
Private Sub Worksheet_Activate()
If IsEmpty(Range("A1")) Then Range("A1").Value = InputBox("Taper votre
date!")
End Sub
A+
Bonjour a tous
Dans une feuille (Feuil1)
J'ai une cellule A1 qui doit contenir une date, pour remplir cette date je
me sert d'un inputbox.
J'ai donc mis dans le code d'activation de la feuille ce qui suit:
Dim DateCalendrier
DateCalendrier = Inputbox("Taper votre date!")
If Range("A1").Value = ""
Range("A1").valueÚteCalendrier
End If
Jusque là pas de problème tout fonctionne bien lorsque j'active la feuil1
mais si je me déplace dans une autre feuille et que je reviens sur la feuil1
il s'affiche a nouveau l'inputbox, hors je veux que celui ci fonctionne
uniquement si la cellule A1 et vide une fois la date dans la cellule il ne
doit plus s'afficher.
Que dois-je faire?
Meric pour vos réponses
1 seule ligne suffira pour tout faire en même temps dans le worksheet_Activate
Private Sub Worksheet_Activate() If IsEmpty(Range("A1")) Then Range("A1").Value = InputBox("Taper votre date!") End Sub
A+
Bonjour a tous Dans une feuille (Feuil1) J'ai une cellule A1 qui doit contenir une date, pour remplir cette date je me sert d'un inputbox. J'ai donc mis dans le code d'activation de la feuille ce qui suit:
Dim DateCalendrier DateCalendrier = Inputbox("Taper votre date!") If Range("A1").Value = "" Range("A1").valueÚteCalendrier End If
Jusque là pas de problème tout fonctionne bien lorsque j'active la feuil1 mais si je me déplace dans une autre feuille et que je reviens sur la feuil1 il s'affiche a nouveau l'inputbox, hors je veux que celui ci fonctionne uniquement si la cellule A1 et vide une fois la date dans la cellule il ne doit plus s'afficher. Que dois-je faire? Meric pour vos réponses
STEN83
Merci pour la rapidite de ta reponse -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Bonjour,
1 seule ligne suffira pour tout faire en même temps dans le worksheet_Activate
Private Sub Worksheet_Activate() If IsEmpty(Range("A1")) Then Range("A1").Value = InputBox("Taper votre date!") End Sub
A+
Bonjour a tous Dans une feuille (Feuil1) J'ai une cellule A1 qui doit contenir une date, pour remplir cette date je me sert d'un inputbox. J'ai donc mis dans le code d'activation de la feuille ce qui suit:
Dim DateCalendrier DateCalendrier = Inputbox("Taper votre date!") If Range("A1").Value = "" Range("A1").valueÚteCalendrier End If
Jusque là pas de problème tout fonctionne bien lorsque j'active la feuil1 mais si je me déplace dans une autre feuille et que je reviens sur la feuil1 il s'affiche a nouveau l'inputbox, hors je veux que celui ci fonctionne uniquement si la cellule A1 et vide une fois la date dans la cellule il ne doit plus s'afficher. Que dois-je faire? Meric pour vos réponses
Merci pour la rapidite de ta reponse
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Bonjour,
1 seule ligne suffira pour tout faire en même temps dans le
worksheet_Activate
Private Sub Worksheet_Activate()
If IsEmpty(Range("A1")) Then Range("A1").Value = InputBox("Taper votre
date!")
End Sub
A+
Bonjour a tous
Dans une feuille (Feuil1)
J'ai une cellule A1 qui doit contenir une date, pour remplir cette date je
me sert d'un inputbox.
J'ai donc mis dans le code d'activation de la feuille ce qui suit:
Dim DateCalendrier
DateCalendrier = Inputbox("Taper votre date!")
If Range("A1").Value = ""
Range("A1").valueÚteCalendrier
End If
Jusque là pas de problème tout fonctionne bien lorsque j'active la feuil1
mais si je me déplace dans une autre feuille et que je reviens sur la feuil1
il s'affiche a nouveau l'inputbox, hors je veux que celui ci fonctionne
uniquement si la cellule A1 et vide une fois la date dans la cellule il ne
doit plus s'afficher.
Que dois-je faire?
Meric pour vos réponses
Merci pour la rapidite de ta reponse -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Bonjour,
1 seule ligne suffira pour tout faire en même temps dans le worksheet_Activate
Private Sub Worksheet_Activate() If IsEmpty(Range("A1")) Then Range("A1").Value = InputBox("Taper votre date!") End Sub
A+
Bonjour a tous Dans une feuille (Feuil1) J'ai une cellule A1 qui doit contenir une date, pour remplir cette date je me sert d'un inputbox. J'ai donc mis dans le code d'activation de la feuille ce qui suit:
Dim DateCalendrier DateCalendrier = Inputbox("Taper votre date!") If Range("A1").Value = "" Range("A1").valueÚteCalendrier End If
Jusque là pas de problème tout fonctionne bien lorsque j'active la feuil1 mais si je me déplace dans une autre feuille et que je reviens sur la feuil1 il s'affiche a nouveau l'inputbox, hors je veux que celui ci fonctionne uniquement si la cellule A1 et vide une fois la date dans la cellule il ne doit plus s'afficher. Que dois-je faire? Meric pour vos réponses
