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 23437 Date d'inscription Statut Contributeur Dernière intervention - 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

Afficher la suite

A voir également:

Input Annulation : Problème de code
Input ou output ✓ - Forum Audio
Input signal not found ✓ - Forum Matériel & Système
Nous n'avons pas pu terminer les mises à jour annulation des modifications - Forum Windows 10
No video input - Forum Windows
Erreur "nous n'avons pas pu terminer les mises à jour" Windows 10. ✓ - Forum Windows 10

3 réponses

Réponse 1 / 3

yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 586

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.

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

yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 586

montres-nous alors ton code, ou une partie de ton code.
qu'as-tu essayé pour mettre à zéro?
quel fut le résultat?

CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention 1 > yg_be Messages postés 23437 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

yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 586 > CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention

peux-tu alors marquer la discussion comme résolue?

Réponse 3 / 3

cs_Le Pivert Messages postés 8437 Statut Contributeur 730

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

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

Discussions similaires

Ecran BenQ "Input signal out of range"

No video input

comment désactiver out of range

No video input après mise en veille

2ND ECRAN "Input not supported"

Discussions similaires

Newsletters