Bonjour à tous,

Et merci d'avance pour votre aide
Mon problème est le suivant, j'aimerais rendre l'arborescence d'une nomenclature automatique, dans le but de pouvoir la modifier et de ne pas la réecrire à la main à chaque fois
Nom : Capture d’écran 2020-01-15 à 12.39.39.png
Affichages : 461
Taille : 36,4 Ko

La macro devrait donc, pour chaque ligne, chercher si la colonne est remplie ou non, et si oui, incrémenter la valeur : 1
Passer à la colonne suivante, ajouter un "." le cas échéant et incrémenter la seconde variable : 1.1
Puis colonne suivante, ajouter un "." le cas échéant et incrémenter la troisième variable : 1.1.1
Etc.

Ca parait tout simple mais je ne m'en sors pas

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
Sub arborescence()
Dim i As Integer 'nomenclature niveau 1
Dim j As Integer  'nomenclature niveau 2
Dim k As Integer 'nomenclature niveau 3
Dim l As Integer 'nomenclature niveau 4
Dim p As String
Dim li As Integer 'ligne
 
i = 1
j = 1
k = 1
l = 1
p = "."
 
 
Sheets("Convoyage de la canne (1-2)").Activate
li = 2
If Cells(li, 3) <> "" Then Cells(li, 7).Value = i
    ElseIf Cells(li, 4) <> "" Then Cells(li, 7).Value = i&p
Merci pour votre aide !!

test nomenclature.xlsm