Bonsoir
J'ai une macro qui calcule une clé, le problème et que lorsque la clé, est
inférieure à 10, cela
me donne un caractère.
Ex : 2, je voudrais avoir à la place 02
j'ai donc créé cette macro, mais je pense que l'on peut faire plus propre
Merci
Didier
Private Sub TextBox2_AfterUpdate()
Mavar = 97 - (TextBox2.Value - 97 * Int(TextBox2.Value / 97))
If Mavar < 9 Then
TextBox3.Value = "0" & Mavar
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
CB
TextBox3.Value = Format(Mavar, "00")
Didier Novarin wrote:
Bonsoir J'ai une macro qui calcule une clé, le problème et que lorsque la clé, est inférieure à 10, cela me donne un caractère. Ex : 2, je voudrais avoir à la place 02 j'ai donc créé cette macro, mais je pense que l'on peut faire plus propre Merci Didier
Private Sub TextBox2_AfterUpdate() Mavar = 97 - (TextBox2.Value - 97 * Int(TextBox2.Value / 97)) If Mavar < 9 Then TextBox3.Value = "0" & Mavar End If End Sub
TextBox3.Value = Format(Mavar, "00")
Didier Novarin wrote:
Bonsoir
J'ai une macro qui calcule une clé, le problème et que lorsque la clé, est
inférieure à 10, cela
me donne un caractère.
Ex : 2, je voudrais avoir à la place 02
j'ai donc créé cette macro, mais je pense que l'on peut faire plus propre
Merci
Didier
Private Sub TextBox2_AfterUpdate()
Mavar = 97 - (TextBox2.Value - 97 * Int(TextBox2.Value / 97))
If Mavar < 9 Then
TextBox3.Value = "0" & Mavar
End If
End Sub
Bonsoir J'ai une macro qui calcule une clé, le problème et que lorsque la clé, est inférieure à 10, cela me donne un caractère. Ex : 2, je voudrais avoir à la place 02 j'ai donc créé cette macro, mais je pense que l'on peut faire plus propre Merci Didier
Private Sub TextBox2_AfterUpdate() Mavar = 97 - (TextBox2.Value - 97 * Int(TextBox2.Value / 97)) If Mavar < 9 Then TextBox3.Value = "0" & Mavar End If End Sub
Didier Novarin
Je te remercie beaucoup CB Didier
"CB" a écrit dans le message de news: 4332f601$0$7853$
TextBox3.Value = Format(Mavar, "00")
Didier Novarin wrote:
Bonsoir J'ai une macro qui calcule une clé, le problème et que lorsque la clé, est inférieure à 10, cela me donne un caractère. Ex : 2, je voudrais avoir à la place 02 j'ai donc créé cette macro, mais je pense que l'on peut faire plus propre Merci Didier
Private Sub TextBox2_AfterUpdate() Mavar = 97 - (TextBox2.Value - 97 * Int(TextBox2.Value / 97)) If Mavar < 9 Then TextBox3.Value = "0" & Mavar End If End Sub
Je te remercie beaucoup CB
Didier
"CB" <XX@xx.org> a écrit dans le message de news:
4332f601$0$7853$8fcfb975@news.wanadoo.fr...
TextBox3.Value = Format(Mavar, "00")
Didier Novarin wrote:
Bonsoir
J'ai une macro qui calcule une clé, le problème et que lorsque la clé,
est inférieure à 10, cela
me donne un caractère.
Ex : 2, je voudrais avoir à la place 02
j'ai donc créé cette macro, mais je pense que l'on peut faire plus propre
Merci
Didier
Private Sub TextBox2_AfterUpdate()
Mavar = 97 - (TextBox2.Value - 97 * Int(TextBox2.Value / 97))
If Mavar < 9 Then
TextBox3.Value = "0" & Mavar
End If
End Sub
"CB" a écrit dans le message de news: 4332f601$0$7853$
TextBox3.Value = Format(Mavar, "00")
Didier Novarin wrote:
Bonsoir J'ai une macro qui calcule une clé, le problème et que lorsque la clé, est inférieure à 10, cela me donne un caractère. Ex : 2, je voudrais avoir à la place 02 j'ai donc créé cette macro, mais je pense que l'on peut faire plus propre Merci Didier
Private Sub TextBox2_AfterUpdate() Mavar = 97 - (TextBox2.Value - 97 * Int(TextBox2.Value / 97)) If Mavar < 9 Then TextBox3.Value = "0" & Mavar End If End Sub