Discussion :

[goraxx31]

Bonjour,
Je reviens vers vous pour un petit soucis de VBA.

Le problème :

J'ai une chaine de caractères dans un label , exemple : TOTO_01_REL.txt (l'extension peut varier , txt,pdf, etc...)
Je voudrais incrémenter le 01, donc le premier nombre en partant de la droite.
Je ne peux pas utiliser les fonctions Left ou Right car les longueurs des noms et extensions des fichiers varient.

Auriez-vous une idée qui me mettrais sur la bonne voie ?

Bonne soirée,

Thomas

[unparia]

Bonjour
Tu peux par exemple et entre autres t('inspirer d'un mécanisme similaire à ceci (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private titi As String
Private Sub CommandButton1_Click()
  If titi = "" Then titi = "TOTO_00_REL.txt"
  tata = Split(titi, "_")
  tata(1) = Format(Val(tata(1) + 1), "0#")
  titi = Join(tata, "_")
  MsgBox titi
End Sub

regarde ce qui se passe en cliquant plusieurs fois

et si tu n'aimes pas les amis split et join, rien ne t'empêche non plus (et toujours entre autres) de t'y prendre ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Private titi As String
Private Sub CommandButton1_Click()
  If titi = "" Then titi = "TOTO_00_REL.txt"
  pos = InStr(titi, "_")
  nb = Format(Val(Mid(titi, pos + 1, 2) + 1), "0#")
  Mid(titi, pos + 1, 2) = nb
  MsgBox titi
End Sub

[patricktoulon]

re
bonsoir
infaillible le regex(expression régulière)
je te propose de l'utiliser de deux façon

tout d'abords supprimer tout ce qui n'est pas numérique du texte en une seule fois c'est beau la vie non ?
1 seule ligne pour la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
 Dim txt As String,
    txt ="TOTO_01_REL.Txt"
    MsgBox chiffre_seulement(txt)
End Sub
 
Function chiffre_seulement(txt As String)
    With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "[a-z-A-Z-_?.]": chiffre_seulement = .Replace(ucase(txt), ""): End With
End Function

Facon n° 2!!!
on peut tout simplement demander le nombre ou !! la suite de nombre présente dans là chaine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test2()
Dim txt As String
    txt ="TOTO_01_REL.Txt"
    MsgBox chiffre_seulementbis(txt)
End Sub
Function chiffre_seulementbis(txt As String)
    With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "(\d+)": Set matches = .Execute(ucase(txt)): chiffre_seulementbis = matches(0): End With
End Function

dans les deux cas en ce qui te concerne elle fonctionne
par contre si un jour tu dois dissocier plusieurs suite de nombre exemple "TOTO_01_REL_356_abcd.Txt"alors préférer la 2d en modifiant le chiffre dans la sélection du matches : ex:matches(1) devrait te donner 356

voila