Microsoft 365 Problème bouton annuler InputBox

  • Initiateur de la discussion Initiateur de la discussion PORCHER
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

PORCHER

XLDnaute Occasionnel
Bonjour à tous et Merci de m'aider une nouvelle fois sur un problème récurrent que je n'arrive pas à résoudre !
Voici le problème : Quand je clic sur Annuler (fenêtre Input Box) il rempli ma cellule "FAUX"
Avez_vous la solution

Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Column = 11 And Target.Count = 1 And Target.Row > 4 Then
affiche_userform Target, UserForm1
With Selection
DéfautSelect = Target.Value
End With
On Error Resume Next
ligne = Target.Row
Reponse = UCase$(Application.InputBox("Entrez la Taille, suivant le Tableau affiché !" & Chr(10) & _
"Ou sélection actuelle (Défaut) ?", "Inversion", DéfautSelect, Left:=10, Top:=100, Type:=1))
If Reponse = "" Then
Cells(ligne, 11) = ""
ElseIf Reponse <> 0 Then
Cells(ligne, 11) = "T " & Reponse
ActiveWorkbook.RefreshAll
End If
End If

Unload UserForm1
Application.ScreenUpdating = True
Application.EnableEvents = True
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
317
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
192
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
569
Réponses
7
Affichages
177
Réponses
2
Affichages
408
Réponses
1
Affichages
354
Retour