Bonjour à tous,
Je suis en train d'essayer de créer un fil d’Ariane sur Excel. Oui je sais, j'ai de drôles d'idées !
Il faut donc jouer avec les caractères d'une même cellule. J'ai tenté de commencer le code mais j'ai très vite bloqué car je n'arrive pas à compter les caractères de la chaine.
Est-ce que quelqu'un à une idée à suggérer ?
Je joins un exemple car mon résultat est assez difficile à expliquer.
Merci par avance.
A+
Je suis en train d'essayer de créer un fil d’Ariane sur Excel. Oui je sais, j'ai de drôles d'idées !
Il faut donc jouer avec les caractères d'une même cellule. J'ai tenté de commencer le code mais j'ai très vite bloqué car je n'arrive pas à compter les caractères de la chaine.
Est-ce que quelqu'un à une idée à suggérer ?
Je joins un exemple car mon résultat est assez difficile à expliquer.
Merci par avance.
A+
Code:
Sub FilAriane()
For l = 1 To 6
For i = 1 To 6
Sheets("Feuil1").Range("D" & l) = Sheets("Feuil1").Range("D" & l) & _
Sheets("Feuil1").Range("A" & i) & " è "
Next i
Next l
nbCarac = Len(Sheets("Feuil1").Range("D1")) - 10
With Sheets("Feuil1").Range("D1").Characters(Start:=nbCarac, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 23
End With
End Sub