Belle ecriture VBA

[Evelynetfrancois]

bonjour
je vous sollicite pour éviter une écriture un peu 'cochonne)
qui fonctionne certes , mais qui ne me semble pas très académique
Sur un USF j'ai
OptionButton1.ForeColor = &HFF&
puis de 2 a 10
OptionButton2.ForeColor = &H400040
OptionButton3.ForeColor = &H400040
OptionButton4.ForeColor = &H400040
....................................;;;;
OptionButton10.ForeColor = &H400040

comment éviter ces répétitions

MERCI d'avance et tres bonne journée a tous
EetF

 

[G.David]

Salut
je dis peut etre une connerie
mais les couleurs des option bouton sont dans la fenetre peropriété et une fois selectionnée dans cette fenetre tu n'as pas de code qui apparait
Cordialement
G.David

 

[G.David]

euh peut etre veut tu changer en cour de route tes couleurs

for t=& to 10
controls('optionbutton' & t).forecolore= &H400040
next t
si c'est ce que tu veut

G.David

 

[evelynetfrancois]

bonjour G.david
evidement que non tu ne dis pas une connerie !!
tu n'es pas dans mon programme ............
et je fais aussi un peu une demande flou !!!
je te l'accorde .vraiment dsl

j'esplik le principe :
Sur mon USF , losque je clic sur un OptionButton au choix(il y en a 10)
il devient rouge
pendant que tous les autres (donc 9) redeviennent noirs
et ce , pour chaque OptionButton

j'espere etre plus clair
merci beaucoup
E et F

 

[ChTi160]

Salut'E&F
bonjour David
ce code pour 4 optionButton met les 4 au bleu lors de l'initialisation
Private Sub UserForm_Initialize()
Dim ctrl As Control
Dim x As Byte
For Each ctrl In Me.Controls
If TypeName(ctrl) = 'OptionButton' Then
For x = 1 To 4

Controls('OptionButton' & x).ForeColor = &HFF0000

Next
End If
Next
End Sub

puis lorsque le 1 change

Private Sub OptionButton1_Change()

Dim x As Byte

Select Case OptionButton1.Value
Case Is = True
For x = 2 To 4
Controls('OptionButton' & x).ForeColor = &HFF0000
Next
Case Else
For x = 2 To 4
Controls('OptionButton' & x).ForeColor = &HFF&
Next
End Select

End Sub

en espèrant avoir compris et répondu correctement lol
Bonne Journée
Amicalement
Jean Marie

Message édité par: ChTi160, à: 12/04/2005 10:06

 

[G.David]

Salut Chti
bon Oila ce que j'ai pondu

Option Explicit
Dim t As Byte
 _____________________________________
Private Sub OptionButton1_Change()
rouge
End Sub
_______________________________________
Private Sub OptionButton2_Change()
rouge
End Sub
________________________________________
Private Sub OptionButton3_Change()
rouge
End Sub
_________________________________________
Private Sub OptionButton4_Change()
rouge
End Sub
___________________________________________
Private Sub rouge()
    For t = 1 To 4
    If Controls('optionbutton' & t) = True Then
    Controls('optionbutton' & t).ForeColor = &HFF
    Else: Controls('optionbutton' & t).ForeColor = &H80000012
    End If
    Next
End Sub

le code a mettre dans l'USF
pour 4 option (les grand esprits se rencontrent ou plus vraisemblablement on en est au meme niveau de faignantise)
le optionbutton_change affiche la couleur des que l'option est cochée
Cordialement
G.David

 

[evelynetfrancois]

MERCI a vous deux chti160 et G.David
Pour le moment je ne suis pas sur place , alors je ne peux pas tester
mais à la lecture de vos codes,, ca m'a bien l'air bien OK !!
Cependant je vous tiendrez au courant
dans tout les cas de figures
merci beaucoup
bonne a prem
EetF

 

[evelynetfracois]

voila tous est teste........................

c'est exatement ca
une fois de plus vous etes super simpat et efficace
t'ellement content du resultat que j'avais persque envie de vous envoyer mon tit programme....lol

merci tres sincerement a vous deux
EetF

 

[ChTi160]

Salut E& F
Pourquoi!!!!!pas moi je'aime regarder décortiquer pour apprendre
Merci d'Avance
Jean Marie

 

[evelynetfrancois]

bonjour chti160

Voila juste une tite feuille (usf) de saisie
pour rendre 'leur' travail plus agreable !


a plus et encore merci pour toutes vos aides si precieuses
bonne journée
EetF [file name=Matériel_20050413075409.zip size=40602]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Matériel_20050413075409.zip[/file]

 

[ChTi160]

Salut E & F
Bonjour le Forum

toi une habituée Lol tu devrais savoir que les fichier doivent être zippé titre sans accent
ni caractères spéciaux car le lien nous renvoie à la page d'accueil
donc a bientôt
Amicalement
Jean Marie

 

[PascalXLD]

Bonjour le fil

Bon je sais pas pourquoi mais moi avec firefox ça ne me gène pas les accents pour télécharger

Je le remets en pièce jointe au cas où EetF passe plus tard

Sinon j'aime bien ton design sobre de ton UF. C'est tout à fait dans mes goûts

Bonne journée

[file name=Materiel.zip size=40497]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Materiel.zip[/file]

 

[ChTi160]

Salut Pascal
Effectivement avec Firefox pas de problème (j'ai firefox !!!! Lol)
mais j'ai voulu télécharger directement depuis IE donc page d'accueil
mais bon ça servira aux autres
Bonne Journée à toi
Amicalement
Jean Marie

 

[evelynetfrancois]

oups !!! oui j'ai fait la boulette ;dsl ; pitin d'accent ... lolll

merci Pascal76 d'avoir fait suivre .........................
bonne journée a vous deux .et les autres va !
EetF

 

[ChTi160]

Re E&F
merci pour ce Don Lol

je trouve aussi que tu as bien travaillé et que celà est très sobre je pense que tu as déjà un autre projet en cours ,donc nous aurons surement le plaisir de nous croiser sur le forum
Bonne journée
A très bientôt
Jean Marie