Microsoft 365 Problème bouton annuler InputBox

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
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16