Discussion :

[AllyKo]

Bonjour,

est-il possible de tester si un range est déjà groupé ou pas ?

car si j'essaie de dégrouper une sélection qui n'est pas groupé, ça m'indique une erreur ...

merci

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
27
28
29
30
31
32
33
34
35
36
 
Private Sub maj_Click()
 
    Dim val As Integer
    val = Cells(69, 3).Value
 
    On Error GoTo etq_error
 
    If (val = 1) Then
        Range(Cells(1, 41), Cells(1, 41).Offset(0, 200)).Select
        Selection.Ungroup
        Exit Sub
    End If
 
    Range(Cells(1, 41), Cells(1, 41).Offset(0, 200)).Select
    Selection.Ungroup
    Range(Cells(1, 41), Cells(1, 41).Offset(0, val - 2)).Select
    Selection.Group
 
    Cells(1, 1).Select
 
etq_error:
If Err.Number <> 0 Then
    If Err.Number = 1004 Then
        Resume Next
    Else
        MsgBox "erreur " & Err.Number
        GoTo etq_fin_fonction
 
    End If
 
End If
 
etq_fin_fonction:
 
End Sub

j'ai trouvé ça en attendant mais si vous avez une meilleure solution

je prends !