Input Annulation : Problème de code

Résolu
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un soucis avec un bouton annulation d'une inputbox,
faute de pouvoir le supprimer j'ai attaché un code pour en limiter l'impact.

If CellApp = "" Then GoTo Protect

End If

Protect = la protection de la feuille

le problème c'est que je dois remplir une cellule d'un montant = à zéro avant de protéger la feuille ( Cellule g22)

Hélas toutes mes tentatives ont échoué, car les autres if ne s'exécutaient plus correctement.

Existe t il un moyen de neutraliser le bouton annulation, tout en remplissant la cellule G22 avec une valeur quelconque ?

Par avance merci


Configuration: Windows / Chrome 89.0.4389.90

3 réponses

Réponse 1 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 583
 
bonjour,
je pense que tu devrais commencer par nous expliquer ce que tu as mis en place.
peut-être en partageant ton fichier.
ensuite, nous expliquer ton soucis.
0
Réponse 2 / 3
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   1
 
Hélas je ne peux pas partager le fichier ...
Ce qui pourrait m'aider c'est de bloquer la commande "annuler" de l'input box , ou griser le bouton
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583
 
montres-nous alors ton code, ou une partie de ton code.
qu'as-tu essayé pour mettre à zéro?
quel fut le résultat?
0
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   1 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Le Pivert a répondu à mon besoin un grand merci à toi pour ton intérêt.
Mon code pour le bouton annuler était :
If CellApp = "" Then goto protect et le reste des choix ne fonctionnait plus
If CellApp = "" Then Exit Sub avec ce code ça fonctionnait mais plus de protection

Merci de ton aide
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 583 > CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention  
 
peux-tu alors marquer la discussion comme résolue?
0
Réponse 3 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

un exemple à adapter: 

Sub test()
Dim rep As String
Do While Not IsNumeric(rep) Or Val(rep) < 11 Or Val(rep) > 33
 rep = InputBox("Tu m'auras là tant que tu n'auras pas répondu par un nombre entier entre 11 et 33")
Loop
End Sub
0
CHARLYJACK Messages postés 345 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonjour Le Pivert,

et un grand merci à toi ça répond exactement à mon besoin .
C'est bien plus simple pour moi que de devoir réaliser une userform !

Merci beaucoup
0

Discussions similaires

input signal out of range
marlene -
usman000 -

14 réponses
comment désactiver out of range
lzri98 -
jeannets -

3 réponses
No video input
ChouNell -
poupougne13 -

30 réponses
No video input après mise en veille
Shaverguy -
Shaverguy -

17 réponses
no input signal
speedy -
THpPavillon -

12 réponses