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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| Public Sub AfficherData()
' Afficher les données }
Dim LigF1 As Long }
Dim LigF2 As Long } J'ai compris
Dim derLig As Long }
Dim LigDebGroup As Long }
Dim DataGroup As String }
Dim Plage As Range }
' Dans Feuil1
Sheets("feuil1").Select } J'ai compris
' Récupération de la dernière ligne remplie en colonne A (j'ai compris)
derLig = Range("A65535").End(xlUp).Row
If derLig < 7 Then Exit Sub
DataGroup = "" ( pourquoi rien?)
LigF2 = 5
ligDeb = LigF2 (pourquoi créer une variable ligDeb étant donné qu'elle est tjr égale à LigF2??)
Après je ne comprend quaziment plus rien :-)
' Boucle de la ligne 7 à la dernière
For LigF1 = 7 To derLig
' Si changement de groupe par rapport à la colonne N
' alors saut d'une ligne pour affichage du groupe suivant
If DataGroup <> Range("N" & LigF1).Value Then
' Ligne vide entre chaque groupe
If LigF1 > 7 Then
LigF2 = IIf(LigF2 < ligDeb + 4, LigF2 + 2, LigF2 + 1)
ligDeb = LigF2
End If
' Afficher l'en-tête du groupe
Call AfficherGroupe(LigF1, LigF2)
LigF2 = LigF2 + 2
End If
' Afficher les détails du groupe
Call AfficherDetailGroupe(LigF1, LigF2)
LigF2 = LigF2 + 1
' Valeur du groupe
DataGroup = Range("N" & LigF1).Value
Next LigF1 |
