bonjour
dans une Userform j'ai une vingtaine de Txtbox ou j'importe des valeurs numériques et si il y a une valeur numérique dans une de ces txtbox elles changent de couleur passant de sans couleur à couleur verte
j'applique le code suivant
pour alimenter ma cellule
----> qs1 = "" -----------> j'efface la valeur précédente
------>qs1.BackStyle = fmBackStyleTransparent ------> pour effacer la dernière couleur liée a la précédente valeur
---->Ts1 = Range("Ae3").Value ----------> je rentre la nouvelle valeur
*****> qs1 = ActiveCell.Offset(0, 30).Value --------> cette cellule doit changer de couleur si il y a un chiffre dedans (ce qui est le cas value =50)
******> If qs1.Value <> "" Then qs1.BackColor = RGB(0, 255, 0) ----> cette formule ne change pas la couleur alors que Value = 50
avez vous une idée pour résoudre mon probleme ?
dans une Userform j'ai une vingtaine de Txtbox ou j'importe des valeurs numériques et si il y a une valeur numérique dans une de ces txtbox elles changent de couleur passant de sans couleur à couleur verte
j'applique le code suivant
pour alimenter ma cellule
----> qs1 = "" -----------> j'efface la valeur précédente
------>qs1.BackStyle = fmBackStyleTransparent ------> pour effacer la dernière couleur liée a la précédente valeur
---->Ts1 = Range("Ae3").Value ----------> je rentre la nouvelle valeur
*****> qs1 = ActiveCell.Offset(0, 30).Value --------> cette cellule doit changer de couleur si il y a un chiffre dedans (ce qui est le cas value =50)
******> If qs1.Value <> "" Then qs1.BackColor = RGB(0, 255, 0) ----> cette formule ne change pas la couleur alors que Value = 50
avez vous une idée pour résoudre mon probleme ?