Tester si un Range est "grouper" ?

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 :roll:

Code:

---

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 !

Bonjour

regarde le fonctionnement de ce petit bout de code qui permet de trouver la plage de cellules fusionnées.

le fait de faire un select sur une des cellules de la plage fusionné sélectionne cette plage et il ne reste plus qu'à vérifier que la sélection effective correspond à ce qu'on a demandé.

Code:

---

1 2 3 4 5 6

Sub test() Range("A1").Select If selection.Address <> "$A$1" Then MsgBox "les cellules de la plage" & selection.Address & "sont fusionnées" End If End Sub

---

Si ça te conviens !

Salut AllyKo, zyhacket le forum

AllyKo, pas assez d'infos sur le but à atteindre et l'état des goupement pour aider efficacement, mais

Code:

---

1 2	Range(Cells(1, 41), Cells(1, 41).Offset(0, 200)).Select Selection.Ungroup

---

Les groupement agissant sur les lignes/colonnes et non sur les cellules, je verrais plutôt :

Code:

---

Range(Columns(41), Columns(41+200)).Ungroup

---

Après, c'est une question d'habitude :
on error : première ligne après le titre, traitement des erreurs en dernier avec un resume sortie
le traitement commence par la déclaration des variables et finit par l'adresse de sortie et Exit sub (avec toutes les remises en état Application entre les 2)
mais c'est une question d'habitude 8-) : je préfère sépararer les fonction dans mon code


zyhacket Le groupement(Données>>créer un plan) est différent d'une fusion.
Sinon, l'idée est bonne, mais il vaut mieux éviter les select

Code:

---

1 2 3

Sub test() If Range("A1").MergeCells Then MsgBox Range("A1").MergeArea.Address(0, 0) End Sub

---

A+

Bonjour,

à tester :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub maj_Click() Dim Vale As Integer 'éviter Val qui est le nom d'une fonction de base Vale = Cells(69, 3).Value If Vale = 1 Then On Error Resume Next Range(Cells(1, 41), Cells(1, 41).Offset(0, 200)).Ungroup End If If Vale < 218 Then Range(Cells(1, 41), Cells(1, 41).Offset(0, Vale - 2)).Group Cells(1, 1).Select End Sub

---

en faisant attention au contenu de C69 et avec correction éventuelle donnée par Gorfael.

Merci pour toute ces suggestions ;)