TXBox avec couleur et Formule

[georgioGD]

Salut à tous, voila,

Je voudrais que dans le fichier ci joint que la text box p/V/Devis soit verte si superieur à TXbox P/V/Base et rouge si si inferieur ex: ligne 16

Et egalement que dans TXBox P/V/base la somme de la colonne H et I se fasse directement dans la macro du remplissage de la TXbox et ce en fonction de la ligne ou se situe le pointeur


Merci à vous

 

[kjin]

Re : TXBox avec couleur et Formule

bonsoir,
Rajoutes les lignes bleues à ton code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Si la plage est fixe ("A9:L20")

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A9:L20")) Is Nothing Then
TextBox1 = "" 'on vide les Textbox
TextBox2 = ""
TextBox1 = Cells(Target.Row, 8) 'Alim des Textbox
TextBox2 = Cells(Target.Row, 10)
[COLOR="Blue"]If TextBox1 <> "" And TextBox2 <> "" Then
TextBox2.BackColor = IIf(CDbl(TextBox2) < CDbl(TextBox1), vbRed, vbGreen)
Else: TextBox2.BackColor = &HFFFFC0
End If[/COLOR]
End If

End Sub

A+
kjin

 

[georgioGD]

Re : TXBox avec couleur et Formule

BONJOUR et Merci

special à Kjin

Je ne comprend pas le code mais cela fonctionne

PAR CONTRE ma question sur la formule est resté sans réponse

Bonne journée au forum

 

[alex67800]

Re : TXBox avec couleur et Formule

Bonjour georgioGD, Kjin,

J'ai du mal à suivre ta demande de formule?
Je ne dois sûrement pas être le seul, d'où la non réponse à cette deuxième question.
Qu'entends tu par là soit un peu plus clair.
Car ton P/V/Devis reprend bien la valeur de la colonne J qui est la multiplication de la
colH et I!!

Met nous un exemple de ce que tu voudrais obtenir.

A te lire donc!

 

[kjin]

Re : TXBox avec couleur et Formule

Bonjour,

Je ne comprend pas le code mais cela fonctionne

'si les 2 textbox <> vides
If TextBox1 <> "" And TextBox2 <> "" Then 
'équivaut à If/Then/Else (on compare les valeurs préalablement converties parce qu'une textbox contient du texte)
TextBox2.BackColor = IIf(CDbl(TextBox2) < CDbl(TextBox1), vbRed, vbGreen)
'sinon couleur blanc en hexa (équivaut à vbWhite)
Else: TextBox2.BackColor = &HFFFFC0

PAR CONTRE ma question sur la formule est resté sans réponse

A la différence d'Alex, que je salue, moi je ne vois pas de question du tout !
A+
kjin

 

[georgioGD]

Re : TXBox avec couleur et Formule

Salut à tous

Comme dab ça déchire MERCI à tous les cadors du site

Pour ma formule je reviendrai et je me vengerai LOL