Microsoft 365 InputBox : saisir ou modifier le contenu de la cellule cliquée à l'aide de l'InputBox

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche

Pour des besoins dans l'un de mes fichiers de travail, je voudrais saisir ou modifier le contenu de la cellule cliqué à l'aide de l'InputBox :

l'InputBox prenant le contenu de la cellule (vide ou non), je saisi dans l'InputBox,
1 - à la validation, la cellule cliquée prend la valeur de l'InputBox,
2 - si j'annule, la cellule cliquée garde sa valeur (vide ou non).

J'ai fait des recherches (peut-être mal cherché) et des tentatives sans trouver comment coder.
Auriez-vous la solution ?

Un grand merci à toutes et à tous,
Je mets un p'tit fichier test et je continue à chercher.
Amicalement,
lionel

 

[TooFatBoy]

On est d'accord et 49 #posts depuis mon #post 25 pour en arriver là
Nous avons perdu bcp de temps

Oui, alors qu'il suffisait que tu dises simplement "oui" ou "non"...

 

[TooFatBoy]

Je n'ose demander si ma macro fonctionne maintenant qu'il n'y a plus ta macro "format".
J'ai peur de repartir pour au moins 6 heures de galère...

---

En fait ça ne fait pas 6 heures que ça durait cette histoire de macro "format", mais presque 24 heures puisque c'est depuis #35 (c'est-à-dire 40 minutes après la question posée en #25...) que je dis qu'il faut changer son nom !

Extrait de #35 :

Et du coup je te propose quand même un dernier essai de ma part :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim nom$

If Not Application.Intersect(Target, Range("c6:f15")) Is Nothing Then
Application.EnableEvents = False
nom = inPROUTbox.value("saisir ,Modifier ou Annuler", "Ecrire, modifier et OK ou Annuler", format(Target.value, "dd/mm/yyyy hh:mm:ss"))
If nom <> "" Then Target = CDate(nom)
[a1].Select
Application.EnableEvents = True
Exit Sub
End If

End Sub

Pour que ça puisse fonctionner il faut changer, dans le "Module 1", le nom de la macro "format" en autre chose.

 

[Usine à gaz]

Bonjour TooFatBoy, Bonjour Gérard et tous les participants
Bonjour à toutes et à tous

@TooFatBoy : Je suis désolé, je n'ai pas eu de temps ce matin ... ça marche Merci pour ta patience

Par contre, je m'étais trompé de sujet mais notre job75 m'a bien donné la solution sur un autre fil pour le presque même sujet https://www.excel-downloads.com/thr...-le-textbox1-casse-meninges-1-du-we.20066096/
Et comme je n'arrive pas à reproduire ce que tu as fait sur le fichier joint, je lance l'appel aussi à Gérard,
Amicalement,
lionel

 

[TooFatBoy]

Et comme je n'arrive pas à reproduire ce que tu as fait sur le fichier joint, je lance l'appel aussi à Gérard

J'ai pourtant changé seulement deux choses :

- CSTR remplacé par FORMAT (où tu indiques le format sous lequel doit s'afficher la date dans la box),

- Target=nom remplacé par Target=CDATE(nom) puisque tu as dit que ça devait rester des dates et heures dans la feuille (mais je répète qu'une vérification sur la saisie ne serait pas superflue).

 

[Usine à gaz]

Malheureusement, dans le fichier de @job75, ça ne se passe pas dans le code de la feuille mais dans l'UserForm inPROUTbox et ce n'est pas la même chose.
Pour l'instant, je n'ai pas trouvé ..... Je continuerai ce soir

 

[Usine à gaz]

Bonjour soan

Je te remercie pour tes explications qui sont très utiles ainsi que pour celles du #post71.
Fonction inPROUTbox() spécialement réservée pour les bugs nauséabonds de Microsoft ...

Bon sang : PROUT PROUT et PROUT
Vraiment merci
lionel

 

[Usine à gaz]

Bonjour soan

Je te remercie pour tes explications qui sont très utiles ainsi que pour celles du #post71.
Fonction inPROUTbox() spécialement réservée pour les bugs nauséabonds de Microsoft ...

Bon sang : PROUT PROUT et PROUT
Vraiment merci
lionel

Bon sang,
Si je change le nom de l'userForm ... plus rien ne fonctionne

 

[TooFatBoy]

Bon sang,
Si je change le nom de l'userForm ... plus rien ne fonctionne

Aucune raison de changer son nom.

Mais si tu veux absolument le changer, il faut le changer partout dans le code, en particulier pour son appel.

 

[TooFatBoy]

Malheureusement, dans le fichier de @job75, ça ne se passe pas dans le code de la feuille mais dans l'UserForm inPROUTbox et ce n'est pas la même chose.

Essaye de changer la première ligne de la macro Private Sub UserForm_Initialize() du Uesrform inPROUTbox ainsi :

TextBox1.Value = Format(ActiveCell.Value, "dd/mm/yyyy hh:mm")

Juste une remarque : je ne te dis pas que le pseudo menu qui s'affiche ne sert à rein car tu le sais déjà, mais je te signale que le "couper" ne coupe rien...

 

[Usine à gaz]

Bonsoir TooFatBoy
Super ça fonctionne nickel
J'aurais dû y penser à celui-là
Merci à toi encore une fois,
lionel

 

[TooFatBoy]

Je pense que dans la macro Private Sub OkButton_Click() du UserForm inPROUTbox il faut aussi changer la première ligne ainsi :

ActiveCell.Value = CDate(TextBox1)

 

[Usine à gaz]

Je pense que dans la macro Private Sub OkButton_Click() du UserForm inPROUTbox il faut aussi changer la première ligne ainsi :

ActiveCell.Value = CDate(TextBox1)

Re
C'est fait