Bonsoir le forum,
J’ai une chaine de 5 caractères de 4 chiffres avec un slash au milieu, par exemple « 11/12 », et je voudrais simplement que lorsque la valeur des 2 derniers chiffres dépasse « 12 », par exemple 13, 14, 15, 16 etc., ces 2 derniers chiffres s‘effacent en laissant les 2 premiers avec le slash après.
J’ai alors pensé à utiliser la fonction replace avec tous ses paramètres :
Replace( Expression, Find, Replace, [Start], [Count], [Compare] )
TextBox1 = Replace(Right(TextBox1.Text, 2), Right(TextBox1.Text, 2), "", 1, 1, vbTextCompare)
Avec cette formule je dois normalement dire que je veux remplacer :
- dans les 2 derniers caractères de ce qui est entré dans TextBox1
- ces mêmes 2 derniers caractères
- par « rien », autrement dit les effacer
- que l’expression retournée commence au 1e caractère dans les 2 derniers caractères de TextBox1
- que le remplacement s’effectue 1 fois
- avec la méthode vbTextCompare
Mais cette formule efface tout, j’ai dû rater la compréhension d’un des paramètres, mais je ne sais pas lequel, alors si quelqu’un au passage pourrait m’indiquer mon erreur ce serait sympa
Par avance, merci pour l'aide.
J’ai une chaine de 5 caractères de 4 chiffres avec un slash au milieu, par exemple « 11/12 », et je voudrais simplement que lorsque la valeur des 2 derniers chiffres dépasse « 12 », par exemple 13, 14, 15, 16 etc., ces 2 derniers chiffres s‘effacent en laissant les 2 premiers avec le slash après.
J’ai alors pensé à utiliser la fonction replace avec tous ses paramètres :
Replace( Expression, Find, Replace, [Start], [Count], [Compare] )
TextBox1 = Replace(Right(TextBox1.Text, 2), Right(TextBox1.Text, 2), "", 1, 1, vbTextCompare)
Avec cette formule je dois normalement dire que je veux remplacer :
- dans les 2 derniers caractères de ce qui est entré dans TextBox1
- ces mêmes 2 derniers caractères
- par « rien », autrement dit les effacer
- que l’expression retournée commence au 1e caractère dans les 2 derniers caractères de TextBox1
- que le remplacement s’effectue 1 fois
- avec la méthode vbTextCompare
Mais cette formule efface tout, j’ai dû rater la compréhension d’un des paramètres, mais je ne sais pas lequel, alors si quelqu’un au passage pourrait m’indiquer mon erreur ce serait sympa
Par avance, merci pour l'aide.