Bonjour,

je réalise une macro qui permet de créer un TCD. Jusqu'ici tout va bien.
Je souhaite ensuite grouper certains des items du tableau :

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
'groupement des Test
'tableau avec les nom des tests à regrouper
Dim strGroupe1(2) As String
strGroupe1(0) = "Test A"
strGroupe1(1) = "Test B"
strGroupe1(2) = "Test C"
'tableau dans lequel je mettrais leur adresse
Dim addGroupe1(2)
 
Dim i As Long, j As Long
For j = 0 To UBound(strGroupe1())
    For i = 1 To Activesheet.UsedRange.Rows.Count
        If Cells(i, 1) = strGroupe1(j) Then addGroupe1(j) = Cells(i, 1).Address
    Next i
Next j
 
Range("" & addGroupe1(0) & "," & addGroupe1(1) & "," & addGroupe1(2) & "").Group
Fonctionne bien aussi.

Mais une fois ce groupe créé je n'ai aucune idée de comment le renommer :/
Je n'ai pas trouvé d'argument pour la méthode .Group qui me permettrait de le faire.

Il faudrait que j'aille chercher "Groupe1" dans le texte, mais c'est très hasardeux, surtout que j'ai évidemment plusieurs groupes à créer

Bonne semaine à vous