impossible annuler action sur un bouton de cde

[gds35]

Bonjour a tous mes AMIS du forum et bon WE .

J'ai un USF pour l'impression d'un document avec 2 boutons OUI NON , et je desire que si la Cellule A1 = INIT le bouton NON ne puisse etre utilise et indiquer par msgBox pourquoi . Comment faire ???? Merci de votre aide
Cordialement GDS35

 

[Staple1600]

Re : impossible annuler action sur un bouton de cde

Bonjour

A mettre dans le code de l'UserForm

[font=Courier New][color=darkblue]Private[/color] [color=darkblue]Sub[/color] UserForm_Initialize()
CommandButton1.Enabled = _
IIf(Feuil1.Range("A1") = "INIT", [color=darkblue]False[/color], [color=darkblue]True[/color])
MsgBox IIf(CommandButton1.Enabled = [color=darkblue]False[/color], _
"CommanButton Inactif", "CommanButton actif")
[color=darkblue]End[/color] [color=darkblue]Sub[/color][/font]

 

[gds35]

Re : impossible annuler action sur un bouton de cde

Salut STAPLE1600 , d'abord GRD MERCI de ton Aide ,
J'ai Incorporé , ton exemple ds mon Prg de cette facon .....
Private Sub BOUTONIMPNON_Click()
'
IMPRIMANTE.Hide
'
If Range("A1").Value = "" Then
'
IMPRIMANTE.Hide
SAVETAT.Show
'
End If
'
End Sub

Private Sub BOUTONIMPOUI_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
IMPRIMANTE.Hide
SAVETAT.Show
End Sub
Private Sub UserForm_Initialize()
'
' PAS DE CROIX
'
Pasdecroix Me
'
' INVALIDER LE BOUTON IMPRESSION = NON SI
' ETAT DE FRAIS PERSONNALISE NON SAUVEGARDER
'
BOUTONIMPNON.Enabled = _
IIf(ETFRDEP.Range("A1") = "INIT", False, True)
MsgBox IIf(BOUTONIMPNON.Enabled = False, _
"UN ETAT de FRAIS PERSONNALISE N'A PAS ETE CREE" & vbCrLf & _
"EDITER LE PRESENT ETAT" & vbCrLf & _
"ATTENTION !!! CET ETAT NE SERA PAS SAUVEGARDE", vbInformation + vbYesNo, _
"ETAT PERSO NON CREE")



End Sub

Lors de l'exécution j'ai une erreur "NB argument incorrects ou affectation de propriéte
incorrect , je ne vois d'ou cela provient . As tu une Idees ????
Cordialement GDS35

 

[Staple1600]

Re : impossible annuler action sur un bouton de cde

Re


Dans ton classeur tu as une feuille dont le codename est :ETFRDEP ?

 

[PAD]

Re : impossible annuler action sur un bouton de cde

Bonjour gds35, Staple1600,

Je ne suis pas très fort en la matière mais c'est la première fois que je vois des IF avec 2 i

A bientôt Pad

Oupss. Staple1600, tu réponds plus vite que ton ombre... 😉

 

[gds35]

Re : impossible annuler action sur un bouton de cde

Merci PAD de ton aide , Staple1600 ,
effectivement ma feuille principale l'onglet se nomme " ETFRDEP ,
Il y a relation ????
Cordialment GDS35

 

[Staple1600]

Re : impossible annuler action sur un bouton de cde

Re

Gd35: C'est l'onglet qui se nomme ETFRDEP ?

Si oui essaie alors Worksheets("ETFRDEP").Range("A1")
à la place ETFRDEP.Range("A1")


Pour PAD
IIF existe bien
pour t'en convaincre
ALT+F11 + F1

Iif, fonction
Renvoie l'un ou l'autre de deux arguments selon l'évaluation d'un expression.
Syntaxe
IIf(expr, truepart, falsepart)
La syntaxe de la fonction IIf comporte les arguments nommés les suivants :
Élément Description expr Expression à évaluer. truepart Valeur ou expression renvoyée si la valeur de expr est True. falsepart Valeur ou expression renvoyée si la valeur de expr est False.

Remarques
La fonction IIf évalue toujours truepart et falsepart, même si elle ne renvoie qu'un seul de ces arguments. Vous devez donc être particulièrement attentif à certains effets secondaires indésirables de cette fonction. Par exemple, si l'évaluation de falsepart engendre une division par zéro, une erreur se produit même si la valeur de expr est True.

 

[Lii]

Re : impossible annuler action sur un bouton de cde

Bonjour Tous

problème de test, à essayer le

...
BOUTONIMPNON.Enabled = IIf(ETFRDEP.Range("A1") = "INIT", False, True)
If ETFRDEP.Range("A1") = "INIT" Then
MsgBox "UN ETAT de FRAIS PERSONNALISE N'A PAS ETE CREE" & vbCrLf & _
"EDITER LE PRESENT ETAT" & vbCrLf & _
"ATTENTION !!! CET ETAT NE SERA PAS SAUVEGARDE", vbInformation + vbYesNo, _
 "ETAT PERSO NON CREE"
End If

Explication condensée :
IIf( …, 1, 2), cette fonction correspond à la formule SI(…; 1 ; 2) mais nécessite le 1 et le 2 !

 

[PAD]

Re : impossible annuler action sur un bouton de cde

Re bonjour le fil,

Merci pour ta réponse Staple1600, je ne suis pas très calé en VBA, et grâce à toi je vais me couché encore une fois moins bête.

Merci encore Staple1600


A bientôt Pad

 

[gds35]

Re : impossible annuler action sur un bouton de cde

Merci à tous cela fonctionne correctement , j'ai un autre soucis .
Je fais appel à Excel procédure Application.Dialogs(xlDialogSaveAs) et je cherche à tester le bouton annuler si clic je veux sortir ( EXIT SUB) Avez vs la aussi une idée ??? Merci
Cordialement GDS35

 

[gds35]

Re : impossible annuler action sur un bouton de cde

DESOLE MES AMIS , j'ai mal dormi cette nuit , mais pas encore réveillé j'ai trouvé la solution , "mais BD mais c'était bien sur " If ActiveWorkbook.Saved = False Then
BON DIMANCHE

Cordialement GDS35