Discussion :

[esse2016]

Bonsoir à tous,

Nouveau sur le Forum et novice en VBA donc je fais appel à des âmes charitables et experts en la matière pour venir à mon aide. J'espère être dans la bonne rubrique dans cette jungle de discussion/dossiers trop important en volume.

Mon idée :
Selon la valeur de saisie je mets un voyant vert dans OptionButton pour dire c'est ok tu es bien dans l'intervalle [-0.5 ; +0.5] sinon je mets un voyant d'attention de couleur rouge pour signaler un soucis (les MessageBox ne m'intéressent pas).

Mon problème :
Je souhaiterais changer la couleur d'un OptionButton. Le OptionButton.BackColor colorie en fait la mosaïque de fond du bouton (forme carrée), chose dont je ne veux point, mais c'est l'intérieur qui m'intéresse ( je ne sais pas si c'est suffisamment parlant). Je souhaite à partir d'une valeur de TextBox venir modifié la couleur du OptionButton.???? (la couleur interne, le ForeColor???). Mon OptionButton servira uniquement à faire office de témoin vert ou rouge.

Exemple :
si la valeur dans TextBox.value (ou .text) > -0.5 and TextBox.value < 0.5 then OptionButton.??? = couleur du vert peut être RGB (0 , 255, 0)
sinon OptionButton.???? = rouge (je demande si la syntaxe n'est plutôt pas val(TextBox.value) > -0.5 etc...



Alors j'espère que je suis clair.

Merci d'avance pour votre aide.

Au plaisir de vous lire.

[casefayere]

Bonsoir,

(je demande si la syntaxe n'est plutôt pas val(TextBox.value) > -0.5 etc...

et tu n'as pas essayé ?, je te confirme qu'un TextBox renvoie du texte

[esse2016]

Merci CaseFayere,

si bien sur j'ai essayé mais aucune action dans le OptionButton.forecolor ou même OptionButton.backcolor.
D'où première mon doute quant à la syntaxe du val(textbox.value) ou textbox.value ou textbox.text.
Mon second doute est il possible du coup de changer la couleur de optionbutton ?...

[casefayere]

bonjour,
je ne suis pas censé analyser tout ton code mais le problème qui te préoccupe,
cette procédure est la bonne (vérifiée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim valeur As Currency
valeur = TextBox1
If valeur >= -0.5 And valeur <= 0.5 Then
  Image1.Visible = False 'blanc
  Image2.Visible = True 'vert
  Image3.Visible = False 'rouge
ElseIf valeur < -0.5 Or valeur > 0.5 Then
  Image1.Visible = False
  Image2.Visible = False
  Image3.Visible = True
Else
  Image1.Visible = True
  Image2.Visible = False
  Image3.Visible = False
End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.TextBox1=Replace(Me.TextBox1, ".", ",")
If InStr("1234567890-,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
 
 
End Sub

je t'avais dit que j'ai enlevé ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cancel = False

un cadeau pour baliser ton code http://club.developpez.com/aidenouve...es/Balises.gif

[esse2016]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = False
 
If Val(TextBox1.Value) >= -0.5 And Val(TextBox1.Value) <= 0.5 And TextBox1.text <> "" And TextBox1.text <> ".-" And TextBox1.text <> "-." And ComboBox2.text = "TRANSFOC" Then
  Image1.Visible = False
  Image2.Visible = True
  Image3.Visible = False
ElseIf (Val(TextBox1.Value) < -0.5 Or Val(TextBox1.Value) > 0.5) And TextBox1.text <> "" Or TextBox1.text = "-." Then
  Image1.Visible = False
  Image2.Visible = False
  Image3.Visible = True
  Cancel = True
Else
  Image1.Visible = True
  Image2.Visible = False
  Image3.Visible = False
End If
End Sub

fonctionne mieux à présent c'était bien une histoire de type de variable. Je ne veux pas que l'utilisateur puisse saisir un -. ou un .- qui n'a pas de sens dans mon application. Ainsi les voyants s'allument bien.

Par contre le cancel je m'en sert finalement je n'ai pas trouvé mieux mais lorsque je me trouve dans le ElseIf tant que je suis dans mes critères du if alors je ne sors pas de la textbox1. dans ce cas mon voyant est au rouge

Merci en tout cas.

[casefayere]

je regarderai dès que possible car là je ne saurai te répondre

j'y pense, plutôt qu'un OptionButton, n'as-tu pas aussi court d'inserer une forme (un cercle) que tu pourras remplir ? car apparemment, ce que tu demande n'est pas possible

[casefayere]

je regrette, chez moi cette instruction, au hasard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Val(TextBox1.Value)

quand je rentre un nombre décimal me renvoie que la partie entière, c'est pourquoi je préconisai de passer par la variable "As Currency" et as-tu essayé ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.TextBox1=Replace(Me.TextBox1, ".", ",")
If InStr("1234567890-,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

[esse2016]

Non ça ne marche pas

[esse2016]

Insérer un cercle. Boudiou, je ne sais pas où le trouver.

[casefayere]

tu veux cette forme sur une feuille ou un usf ?

[esse2016]

sur un USerForm

[casefayere]

quoi ? le code dans "TextBox1_KeyPress" eh bien rien ne fonctionne comme chez moi, je n'ai aucun problème, je peux même te proposer encore autre chose, dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub separateur()
sepdec = Application.International(xlDecimalSeparator)
End Sub

pour le textbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
separateur
If Chr(KeyAscii) = "." Or Chr(KeyAscii) = "," Then KeyAscii = Asc(sepdec)
End Sub

[esse2016]

Attends la je décroche. Je répète je suis nul en excel je n'y connais rien et je commence le programme depuis mercredi. avec le peu d'expérience je m'en sors honorablement.

Je ne comprends pas pourquoi nous partons sur du contrôle de saisie ? Si tu penses que le contrôle de saisie est en relation avec mon problème je peux toujours tenter ton indication. Alors j'essaye à nouveau avec ta méthode.

[esse2016]

Je pleure ... et j'en rigole ... non ça ne marche pas chez moi. Je suis sous excel 2011 sous mac et au taff c'est du windobe en excel 2013
Doit on s'acharner sur le détail du valeur As currency ? malgré le côté hasardeux dans ton msgBox via Val(textbox1.value)

[esse2016]

je bien envoyer mon code mais par courriel non ?

[casefayere]

je vais regarder mais en ce moment je pense que le mieux est d'inserer 2ou 3 images (un cercle dimensionné blanc, par exemple, rouge, vert) tu les superposent, voir l'option visible = true ou false suivant les conditions requises, mais des essais sont à faire

[esse2016]

Ok CaseFayere, je tenterai par la méthode des images, mais je risque de programmer comme un boeuf.

Sinon il me reste le labelBox (OK en vert et KO en rouge). L'optionbutton est plus du cosmétique mais dommage...



(ps : en parlant d'images sympa ta photo de cépounets...)

[casefayere]

je regardes actuellement pour intégrer une forme (un cercle sans remplissage) qu'on pourra remplir en fonction, ce n'est pas garanti.

eh oui, les champipi sont une récolte

[esse2016]

Oulala, c'est déjà beaucoup de m'avoir aiguillé. Je regarde tout ça demain, la je sature un peu. Et puis je débute il faut bien chercher un peu.

Dans tous les cas : merci CaseFayere !




(Champis, j'en trouve pas mal en octobre : grand amateur)

[casefayere]

j'ai l'mpression que tu ne mets pas tes codes au bon endroit, donc je répète mon avant dernier message

à ce stade, il serait plus efficace que tu envoies un fichier structuré de la même façon mais avec des données bidon