[RESOLUTO]Incrementation la valeur d'un TextBox

[Ilino]

Forum Bonsoir
je vous sollicite a résoudre mon souci le suivant
J’ai deux TextBox 15 et 17 de format Numérique

Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If Not IsNumeric(TextBox15) Then
MsgBox "Le caractère saisi pour le nombre d'exemplaire n'est pas valide"
End If
TextBox15 = Format(Val(Replace(TextBox15, ",", ".")), "00""")
End Sub

ET

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If Not IsNumeric(TextBox17) Then
MsgBox "Le caractère saisi pour le nombre d'exemplaire n'est pas valide"
End If
TextBox17 = Format(Val(Replace(TextBox17, ",", ".")), "00""")
End Sub

Je souhaite conditionner le TextBox 17 par 15
C A D si je saisi une valeur dans 15 (exemple 4) j’aurais automatiquement dans TextBox 17 la valeur 5 (incrémenter en 1)
grazie

 

[Ilino]

Re : Incrementation la valeur d'un TextBox

Re
NB : c'est deux TextBox sont dans un USF
j'ai testé avec ce code

TextBox17.Value= TextBox15.Value +1

SOORY AND GRAZIE

 

[job75]

Re : Incrementation la valeur d'un TextBox

Bonsoir Ilino,

Tes macros nécessitent il me semble plus de précision, alors peut-être ceci :

Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox15) Or IsNumeric(Replace(TextBox15, ".", ",")) Then
  TextBox15 = Format(Val(Replace(TextBox15, ",", ".")), "00")
  TextBox17 = TextBox15 + 1
ElseIf TextBox15 <> "" Then
  Cancel = True
  MsgBox "Le texte saisi pour le nombre d'exemplaires n'est pas valide"
  TextBox15 = ""
End If
End Sub

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox17) Or IsNumeric(Replace(TextBox17, ".", ",")) Then
  TextBox17 = Format(Val(Replace(TextBox15, ",", ".")), "00")
ElseIf TextBox17 <> "" Then
  Cancel = True
  MsgBox "Le texte saisi pour le nombre d'exemplaires n'est pas valide"
  TextBox17 = ""
End If
End Sub

A+

 

[Ilino]

Re : Incrementation la valeur d'un TextBox

Bonjour MAITRE
9a n a pas bien fonctionné quand je saisi une valeur dans le TextBox15 ( ex: 3 ) il s'affiche dans le TextBOx 17 la valeur incrémentée (4) mais une fois je termine la valeur dans le TextBox 17 ELLE revient identique a al valeur de TextBox15 ,,,
A+

 

[job75]

Re : Incrementation la valeur d'un TextBox

Re,

mais une fois je termine la valeur dans le TextBox 17 ELLE revient identique a al valeur de TextBox15

Ce n'est pas possible avec mon code, sauf si tu as d'autres macros dans ton USF.

A+

 

[job75]

Re : Incrementation la valeur d'un TextBox

Re,

Mais peut-être veux-tu que l'incrémentation se fasse uniquement quand TextBox17 est vide :

Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox15) Or IsNumeric(Replace(TextBox15, ".", ",")) Then
  TextBox15 = Format(Val(Replace(TextBox15, ",", ".")), "00")
  If TextBox17 = "" Then TextBox17 = TextBox15 + 1
ElseIf TextBox15 <> "" Then
  Cancel = True
  MsgBox "Le texte saisi pour le nombre d'exemplaires n'est pas valide"
  TextBox15 = ""
End If
End Sub

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox17) Or IsNumeric(Replace(TextBox17, ".", ",")) Then
  TextBox17 = Format(Val(Replace(TextBox15, ",", ".")), "00")
ElseIf TextBox17 <> "" Then
  Cancel = True
  MsgBox "Le texte saisi pour le nombre d'exemplaires n'est pas valide"
  TextBox17 = ""
End If
End Sub

A+

 

[Ilino]

[RESOLUTO]Re : Incrementation la valeur d'un TextBox

Bonsoir Ilino,

Tes macros nécessitent il me semble plus de précision, alors peut-être ceci :

Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox15) Or IsNumeric(Replace(TextBox15, ".", ",")) Then
  TextBox15 = Format(Val(Replace(TextBox15, ",", ".")), "00")
  TextBox17 = TextBox15 + 1
ElseIf TextBox15 <> "" Then
  Cancel = True
  MsgBox "Le texte saisi pour le nombre d'exemplaires n'est pas valide"
  TextBox15 = ""
End If
End Sub

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox17) Or IsNumeric(Replace(TextBox17, ".", ",")) Then
  TextBox17 = Format(Val(Replace(TextBox15, ",", ".")), "00")
ElseIf TextBox17 <> "" Then
  Cancel = True
  MsgBox "Le texte saisi pour le nombre d'exemplaires n'est pas valide"
  TextBox17 = ""
End If
End Sub

A+

Re
grazie Maitre mon souci est résolut , le pblm il était a ce niveau la

TextBox17 = Format(Val(Replace(TextBox15, ",", ".")), "00")

je l'ai corrigé par

TextBox17 = Format(Val(Replace(TextBox17, ",", ".")), "00")

GRAZIE MAITRE

 

[job75]

Re : [RESOLUTO]Incrementation la valeur d'un TextBox

Re,

Ah oui pardon, je n'avais pas complété partout mon copier-coller...

A+

 

[Ilino]

Re : [RESOLUTO]Incrementation la valeur d'un TextBox

MERCI MAITRE JE SUIS TRES CONTENT: cool:
A+