Discussion :

[juju05]

Je souhaite renseigner une arborescence sur excel par l'intermédiaire de vba.

A chaque niveau de profondeur différent je souhaite préfixer l'information de ma cellule par --

Que puis-je utiliser comme instruction ?

Exemple

Niveau 0 : mon info
Niveau 1 : -- mon info
Niveau 2 : ---- mon info

[Invité]

Bonjour,

Une solution possible avec cette fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Function ChercherLeNiveau(ByVal ChaineATraiter As String) As String
 
Dim I As Integer
Dim J As Integer
 
    Application.Volatile
    ChercherLeNiveau = ""
    If ChaineATraiter <> "" Then
        J = 0
        For I = 1 To Len(ChaineATraiter)
                If Mid(ChaineATraiter, I, 1) = Chr(45) Then J = J + 1
        Next I
        Select Case J
            Case 0
                ChercherLeNiveau = "Niveau 0"
            Case 1
                ChercherLeNiveau = "Niveau 1"
            Case 2
                ChercherLeNiveau = "Niveau 2"
            Case 3
                ChercherLeNiveau = "Niveau 3"
        End Select
    End If
 
End Function

Cordialement.

[Marc-L]

Bonjour, bonjour !

Code :

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

1
2
3
4
Function NivText$(TXT$, NIVEAU%)
         If NIVEAU > 0 Then S$ = String$(NIVEAU * 2, "-") & " "
         NivText = S & TXT
End Function

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo