Compter nbre de caractères jusqu'au caractère_ par macro

[Chris57]

Bonjour à tous,

je ne retrouve plus l'instruction pour compter le nombre de caractères dans une cellule avant ou après le caractère _

exemple :

70BAT - Consignation ligne 400KV EH70 - REDACTEUR _ DECKER.xls

dans ce cas il y a 54 caractères avant le _ et 11 après

Comment retrouver ça par macro ?

Ou sinon comment récupérer le nom du rédacteur seul (DECKER)

 

[ROGER2327]

Re : Compter nbre de caractères jusqu'au caractère_ par macro

Bonsoir Chris57

Un truc comme ça ?

Sub toto()
Dim x, longueur_avant_le_tiret_bas&, longueur_après_le_tiret_bas&, nom$
  x = Split("70BAT - Consignation ligne 400KV EH70 - REDACTEUR _ DECKER.xls", "_")
  longueur_avant_le_tiret_bas = Len(x(0))
  longueur_après_le_tiret_bas = Len(x(1))
  nom = Trim(Split(x(1), ".")(0))
End Sub

​

ROGER2327
#5101

Dimanche 22 Pédale 138 (Saint Sengle, Déserteur, SS)
26 Ventôse An CCXIX
2011-W11-3T18:17:25Z

 

[Etienne2323]

Re : Compter nbre de caractères jusqu'au caractère_ par macro

Bonsoir Chris57, Roger2327,
voici une autre proposition que celle proposée par Roger2327.

Sub Test()
Dim Cellule As String, Caractere_de_recherche As String, Nom_Fichier As String
Dim Position As Integer

Cellule = Cells(1, 1).Value
'Ou encore : Cellule = "70BAT - Consignation ligne 400KV EH70 - REDACTEUR _ DECKER.xls"
Caractere_de_recherche = "_"
Position = InStr(Cellule, Caractere_de_recherche)
Nom_Fichier = Mid(Cellule, Position + 2, Len(Cellule) - (Position + 1))

End Sub

Cordialement,

Étienne

 

[Chris57]

Re : Compter nbre de caractères jusqu'au caractère_ par macro

Merci les amis !!!!!!