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
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
Merci pour votre aide !!
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
test nomenclature.xlsm
Partager