inputbox

[chinel]

Salut tout le monde i

j'ai une inputbox qui s'ouvre quand je clique sur le bouton mais peut-on annuler une inputbox voir ceci :

mot = InputBox("pour qui veux-tu imprimer le planning ?") & "*"

quand je mets ok pas de problèmes elle fais sont travail, mais je veux annuler elle le fais quand même !!!!
pourquoi ????


merci de votre aide !

 

[jeanpierre]

Re : inputbox

Bonsoir chinel,

Parce que c'est mal programmé, sans doute.....

Mais sans plus.....

 

[Luki]

Re : inputbox

Bonjour Chinel, salut JeanPierre, le fil

Extrait de l'aide:

Si l'utilisateur clique sur OK ou appuie sur ENTRÉE , la fonction InputBox renvoie le texte contenu dans la zone de texte. Si l'utilisateur clique sur le bouton Annuler, la fonction renvoie une chaîne de longueur nulle ("").

Donc tu dois gérer la chaîne vide renvoyée si tu cliques sur annuler. par ex :

If mot = "" Then Exit Sub

Mais dans ton exemple, tu ne renvoies jamais de chaîne vides à cause de ton & "*" qui fait que même si ton inputbox ne renvoie rien, ta variable "mot" sera toujours au minimum: mot = "*". Dans ce cas ce n'est pas une chaîne vide, donc géré comme une saisie valable.

bonne journée

 

[JNP]

Re : inputbox

Bonjour 🙂,
J'ai rencontré le même genre de problème avec les USF car le fait de fermer l'USF avec la croix en haut à gauche décharge l'USF mais n'arrête pas pour autant la macro en cours. Je l'ai contourné en publiant une variable Cancel dans mon module:

Public Cancel as string

Puis dans mon USF, j'initialise sur "OUI":

Private Sub UserForm_Initialize()
    Cancel = "OUI"
End Sub

Et dans le cas où le clic se fait sur "OK":

Private Sub CommandButton1_Click()
    Cancel = "NON"
End Sub

Il te reste juste à tester Cancel dans ta macro.
C'est un peu plus lourd qu'un InputBox, mais ça fonctionne 😎

 

[pierrejean]

Re : inputbox

bonjour a tous

une suggestion (a partir des infos données par luki 🙂 )

If mot = "" Or mot= "*" Then Exit Sub

 

[Épaf]

Re : inputbox

Bonjour tous,
Montre nous ton code, on pourra arranger ça si la (bonne) solution de PierreJean ne te suffit pas 😉

 

[chinel]

Re : inputbox

merci pierrejean de ton aide !

merci tout le monde !

 

[chinel]

Re : inputbox

Besoin d'aide car cela fonctionne mais bizarrement voici mon code !

Private Sub CheckBox5_Click()
Sheets("Calendrier").Unprotect
If CheckBox5.Value = True Then
Set f = Sheets("Calendrier")
Dim C As Range
mot = InputBox("pour qui veux-tu imprimer le planning ?") & "*"
Set rng = f.Range("A8:N11"): Set rng1 = f.Range("A15:N18")
Set rng2 = f.Range("A22:N25"): Set rng3 = f.Range("A29:n32")
Set rng4 = f.Range("A36:h39"): Set rng5 = f.Range("A43:N47"): Set rngP = Application.Union(rng, rng1, rng2, rng3, rng4, rng5)

Application.ScreenUpdating = False
For Each C In rngP
If Not IsEmpty(C) And Not C Like mot Then C.Font.ColorIndex = 2
If Not IsEmpty(C) And Not C Like mot Then C.Interior.ColorIndex = 2
Next
Application.ScreenUpdating = True
Sheets("Calendrier").Activate
Sheets("Calendrier").Visible = True
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("Calendrier").Range("a2:n47").PrintPreview
Sheets("Calendrier").Visible = False
Application.ScreenUpdating = False
For Each C In rngP
C.Font.ColorIndex = 0
Next
Application.ScreenUpdating = True
CheckBox5.Value = False
If CheckBox5.Value = False Then
End If

End If
End Sub

merci de votre aide !

 

[Luki]

Re : inputbox

re,

Qu'est ce qui fonctionne bizarrement ? 😕

Ne sachant pas ce que tu attends de ta macro, essaie d'être un peu plus précis...

 

[Épaf]

Re : inputbox

Sans aller plus loin, il semble qu'en cas d'édition, tu ne laisses pas le temps au système de réaliser cette édition avant de modifier l'affichage. Tu devrais déjà ajouter DoEvents après chaque sollicitation du système

Sheets("Calendrier").Visible = True
DoEents
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("Calendrier").Range("a2:n47").PrintPreview
DoEvents
Sheets("Calendrier").Visible = False
Application.ScreenUpdating = False

Bonne journée

 

[chinel]

Re : inputbox

Epaf , j'ai mis "DoEvents" mais j'ai une erreur "ERREUR DE COMPILATION; SUB OU FUNCTION NON DEFINIE" et j'ai vu dans ton code une erreur surement de frappe regarde :

Sheets("Calendrier").Visible = True
DoEents
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("Calendrier").Range("a2:n47").PrintPreview
DoEvents
Sheets("Calendrier").Visible = False
Application.ScreenUpdating = False

je ne comprend pas, j'ai surment sauté une étape !


merci de ton aide !