problème pour quitter inputbox

[chtite24]

Bonjour tout le monde,

Je vous explique, j'ai deux feuilles, une de données et une autre à remplir.
J'effectue une boucle pour savoir si la cellule de la première feuille de données est vide ou =0. Si c'est le cas, alors je fais apparaitre une inputbox pour rentrer la données
Cette donnée est ensuite recopiée dans la cellule correspondante sur la deuxième feuille.
Le souci c'est que je n'arrive pas à trouver de code pour fermer mon inputbox lorsque l'on clic sur la croix (et non pas sur le bouton annuler) 😕

Voici mon code, en espérant que vous pourrez m'aider :

If Ws(2).Cells(i, Co - 1) <> "" Then
        If Ws(1).Cells(j, Co) = "" Or Ws(1).Cells(j, Co) = 0 Then Ws(1).Cells(j, Co) = Application.InputBox(prompt:="Tarif non rentré, veuillez entrer un prix ", Type:=1)
        Ws(2).Cells(i, Co) = Ws(1).Cells(j, Co)
        Exit For
End If

Merci d'avance,

Chtite24

 

[Papou-net]

Re : problème pour quitter inputbox

Bonjour Chtite24,

Cette question a déjà été évoquée et solutionnée sur ce forum.

Voici le lien :

https://www.excel-downloads.com/threads/fonctionnement-inputbox.101516/

Bonne journée à toi.

Cordialement.

 

[chtite24]

Re : problème pour quitter inputbox

Bonjour Papou-net,

Merci pour ta réponse,

Effectivement, j'avais déjà vu ce lien, le souci c'est que le code proposé ferme l'inputbox également lorque l'on clic sur "Annuler".
Pour mon cas précis, lorsque je clique sur le bouton Annuler de mon inputBox, je veux continuer l'application.
Il n'y a que si je clic sur la croix rouge que je fermer mon inputbox.

Est-ce possible?

 

[Papou-net]

Re : problème pour quitter inputbox

RE :

Je ne pense pas que ça soit possible, du moins sans entrer dans les entrailles du système.

Le plus simple, à mon avis, est de simuler l'InputBox par un UserForm, comme dans l'exemple ci-joint.

En te souhaitant une bonne journée.

Cordialement.

 

[chtite24]

Re : problème pour quitter inputbox

Cela ne me simplifie pas la tâche.... mais tant pis si c'est la seule solution 🙁

Je te remercie de ta réponse, au moins je vais arrêter de chercher pour rien ^^

Bonne journée également,

Cordialement.