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

Chris57 · 16 Mars 2011

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 · 16 Mars 2011

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

Bonsoir Chris57

Un truc comme ça ?

Code:

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 · 16 Mars 2011

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.

Code:

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 · 16 Mars 2011

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

Merci les amis !!!!!!

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

Chris57

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Etienne2323

XLDnaute Impliqué

Chris57

XLDnaute Occasionnel

Discussions similaires

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

Chris57

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Etienne2323

XLDnaute Impliqué

Chris57

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency