Sujet Précédent Sujet Suivant

Input Annulation : Problème de code

Résolu/Fermé
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 19 mars 2021 à 18:01
yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 - 21 mars 2021 à 18:31
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 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 Ambassadeur 1 568
19 mars 2021 à 20:50
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 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
20 mars 2021 à 19:01
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 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 1 568
20 mars 2021 à 19:08
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 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1 > yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025
21 mars 2021 à 14:10
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 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 1 568 > CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023
21 mars 2021 à 18:31
peux-tu alors marquer la discussion comme résolue?
0
Réponse 3 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
21 mars 2021 à 11:50
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 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
21 mars 2021 à 14:05
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 après mise en veille
Shaverguy -
Shaverguy -

17 réponses
2ND ECRAN "Input not supported"
cath -
cath -

2 réponses
Annulation des modifications apportées à votre ordinateur :(
Tentin -
Super.Mario -

1 réponse