(RESOLU)Un Bouton en double fonction

[chaelie2015]

Bonjour Forum
En premier phase
je souhaite faire afficher deux Caption pour meme bouton selon des cas .

Si les combobox de 1a 9 dans USF1 non vide alors le bouton CommandButton1_Click son CommandButton1.Caption = Valider sinon CommandButton1.Caption = Quitter
SALUTATIONS

 

[ChTi160]

Re : Un Bouton en double fonction

Bonsoir chaelie2015
bonsoir le fil,Le Forum

Pas évident sans fichier (nous faut il imaginer et construire un fichier pour répondre à ta question ?)
sinon un truc du genre ....

CommandButton1.Caption = IIf(1 à 9 <>"" "Valider","Quitter")

Dans l'attente
Bonne fin de Soirée
Amicalement
Jean Marie

 

[chaelie2015]

Re : Un Bouton en double fonction

Bonsoir chaelie2015
bonsoir le fil,Le Forum

CommandButton1.Caption = IIf(1 à 9 <>"" "Valider","Quitter")[COLOR=blue][/COLOR][/highlight ]


Jean Marie[/QUOTE]
Bonsoir Jean marie 
MERCI POUR LA RÉPONSE ET JE CHERCHE CE GENRE DE CODE 
MAIS JE N'AI PAS COMPRIS COMMENT FAIRE POUR REMPLACER 
1 [U]à[/U] 9 
DANS LE CODE VBA
MERCI

 

[chaelie2015]

Re : Un Bouton en double fonction

Bonsoir
ci joint le fichier essai dont je souhaite faire changer le bouton de 'quitter' au 'valider' si touts les combobox sont non vide
merci par avance
salutations

 

[ROGER2327]

Re : Un Bouton en double fonction

Bonjour à tous.

Un essai en pièce jointe.​

Bonne journée.



ℝOGER2327
#8093

Jeudi 12 As 143 (Dispute du signe + et du signe - - fête Suprême Tierce)
23 Brumaire An CCXXIV, 0,0408h - garence
2015-W46-6T00:05:52Z

 

[chaelie2015]

Re : Un Bouton en double fonction

Bonsoir ROGER
MERCI POUR LA REPONSE,C'EST EXACTEMENT CE QUE JE CHERCHAIS, MAIS LORS DE COPIER TON CODE A MON FICHIER J'AI UN BUG
ERREUR D'EXECUTION438
PROPRIETE OUMETHODE NON GEREE PAR CET OBJET
A CE NIVEAU DE TON CODE
........
If Controls(i).Value = "" Then...
.......
merci de m'expliquer ce bug
SALUTATIONS

 

[ROGER2327]

Re : Un Bouton en double fonction

Re...

(...) LORS DE COPIER TON CODE A MON FICHIER J'AI UN BUG
(...)

Je pense que vous voulez dire : « lorsque je copie le code dans un autre fichier...» car le code fonctionne dans le fichier que vous avez fourni.​

(...) ERREUR D'EXECUTION438
PROPRIETE OUMETHODE NON GEREE PAR CET OBJET
A CE NIVEAU DE TON CODE
........
If Controls(i).Value = "" Then...
.......

(...)

Comme vous ne fournissez ni le véritable fichier à traiter, ni son code, je ne vais pouvoir faire que des suppositions.
Nous gagnerions certainement du temps si nous disposions d'autre chose qu'un fichier fictif...

Si la ligne incriminée produit l'erreur 438, c'est que Controls(i) existe bel et bien, mais est un objet sans propriété Value (un objet Frame, ou Label, par exemple). Donc Controls(i) ne peut être un objet ComboBox car un tel objet possède la propriété Value.
Si i est bien tel que 1 ≤ i ≤ 9, j'en conclus que vos ComboBox1, ComboBox2, ..., ComboBox9 ne sont pas indexés par 1 ≤ i ≤ 9 dans la collection Controls.

Si tel est le cas, il vous faut trouver les index de vos ComboBox. Pour ce faire, ajoutez une feuille (que vous pourrez supprimer par la suite) à votre classeur, et, en supposant que votre formulaire réel est bien UserForm1, exécutez la procédure :

​

Sub bbb()
Dim i%, u(-1 To 999, 1)
  u(-1, 0) = "i": u(-1, 1) = "UserForm1.Controls(i)"
  With UserForm1.Controls
    For i = 0 To .Count - 1: u(i, 0) = i: u(i, 1) = .Item(i).Name: Next
    [A1].Resize(1 + .Count, 2).Value = u
  End With
End Sub

Elle vous donnera la liste de vos contrôles avec leur index.

Relevez la liste des index qui vous conviennent et remplacez la procédure CommandButton1_texte par celle-là :​

Sub CommandButton1_texte()
Dim i%, cb()

  cb = Array(1, 2, 10, 3, 4, 5, 6, 7, 8) 'Liste des "bons" index.

  For i = UBound(cb) To 0 Step -1
    If Controls(cb(i)).Value = "" Then Exit For
  Next
  CommandButton1.Caption = IIf(i < 0, "Valider", "Quitter")
End Sub

Voyez l'exemple en pièce jointe.
Mais tout cela fait beaucoup de « si » : il se peut que je n'ai pas été bon devin. Auquel cas il ne vous reste plus qu'à faire l'effort de fournir votre véritable classeur...​

Bonne nuit.


ℝOGER2327
#8094

Vendredi 13 As 143 (Moustaches du Dr Faustroll - fête Suprême Tierce)
24 Brumaire An CCXXIV, 0,1618h - orange
2015-W46-7T00:23:18Z

 

[grisan29]

Re : Un Bouton en double fonction

bonjour Chaelie2015, Roger2327

Chaelie2015 évite d'écrire en majuscule c'est beaucoup plus dur de te lire
chapeau Roger 😎pour ce fichier

Pascal

 

[chaelie2015]

Re : Un Bouton en double fonction

Bonjour ROGER, PASCAL, Forum

Re...
.................
Si la ligne incriminée produit l'erreur 438, c'est que Controls(i) existe bel et bien, mais est un objet sans propriété Value (un objet Frame, ou Label, par exemple). Donc Controls(i) ne peut être un objet ComboBox car un tel objet possède la propriété Value.
...........

Je suis désolé de ne pas donner toutes les détails de mon fichier pour des raisons confidentielles, mais je vous promis que pour les prochaines, je ferai mon possible pour joindre le bon fichier.
concernant mon souci , c’était les Label et les TextBox, tu as raison, encore une fois je suis désolé.
mon souci est résolut (super)
SALUTATIONS