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

3 réponses

Réponse 1 / 3
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588

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
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  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
  1. 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
    
    0
  2. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > 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 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
```
0
1. 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

Input Annulation : Problème de code

3 réponses

Discussions similaires

Newsletters