Discussion :

[mazuno]

Bonjour, j'ai besoin d'utiliser la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Rows.Ungroup

pour dégrouper une ligne

je travaille sur un classeur excel assez complexe et vous expliquer le pourquoi du comment serait un peu long et inutile je pense ^^
toujours est il que la ligne en question peut ne pas appartenir à un groupe de ligne, et dans ce cas cette commande génère une erreur, j'ai donc besoin de tester au préalable si ma ligne appartiens ou non à un groupe

j'ai cherché dans mon bouquin sur vba et sur quelques forums sans succès
j'ai tenté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 if isgrouped(...)

et d'autres formes un peu au pif

quelqu'un connait la syntaxe d'un tel test? ou un moyen d'éviter l'erreur et de passer à la commande suivante?

merci de votre aide

bonne journée

[zyhack]

Bonjour

pour le contournement de l'erreur tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
On Error Resume Next 'en cas d'erreur passe à la ligne suivante
Selection.Rows.Ungroup
On Error GoTo 0 'réinitialisation du mode d'erreur

[mazuno]

merci, cela a en effet résolu mon problème
par contre est-ce que si j'ai une erreur dans la suite de mon code, sera-elle ignorée elle aussi?

[zyhack]

re

à partir du moment ou tu met " On Error GoTo 0 " les erreurs suivantes ne sont plus ignorées.

[mazuno]

d'accord très bien merci

[MattChess]

Bonjour mazuno,

tester [...] si ma ligne appartiens ou non à un groupe

Voir la fonction IsGrouped(Cells(1, 1)) et IsInGroupByRow(Range("A1")).

• La première fonction IsGrouped(Range) est dynamique au moment de la demande et dépend de l'état du groupe s'il est développé (expansé) ou réduit (condensé).
• La seconde fonction IsInGroupByRow(Range) est statique. Elle est indépendante de l'état du groupe.

___________

En bas de ce message s'il vous a apporté des éléments de réponse pertinents, pensez également à voter en cliquant sur le bouton vert ci-dessous.