Discussion :

[gilles06]

Bonjour a tous, \

Je cherche la maniere (sous vba) a identifier une ligne sous Excel qui soit groupee ou en sous groupe d'un groupe ?
Est-ce possible ? et si oui , comment faire ?

Merci

[Singular]

La cellule groupée aura sa propriété Merged à True.

Si tu connais ton groupe (Range), tu peux savoir si la cellule en fait partie en utilisant:

Code :

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

1
2
3
4
5
6
7
8
' c est la cellule supposément groupée et rng est le groupe qui pourrait contenir c
 
Dim rngResultat as Range
 
rngResultat = Intersect(rng,c)
 
' Renvoit True si c est contenu dans rng
Iif(rngResultat Is Nothing, True, False)

[gilles06]

Merci pour la reponse, mais ca ne fonctionne pas. En fait je scanne toutes les cells de mon fichier. Il y a plusieurs groupes et sous-groupes et je veux identifier chaque cell a savoir si elle fait partie d'un groupe ou sous groupe ? Si je regarde la valeur de c.MergeCells elle est tj a False, meme si la cell fait partie d'un sous groupe.
Comment faire ?

Merci

[Singular]

Ok. Je crois comprendre qu'il ne s'agit pas de savoir si une cellule est 'Merged' (groupée, en français), mais plutôt de savoir si une cellule se trouve parmi un ensemble de cellules groupées de façon logique.

La fonction Application.Intersect() sert à celà.

Par exemple, la fonction Iif() dans:

Code :

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

Iif((Intersect((Range("A1:A3"),Range("A2")) Is Nothing),False,True)

devrait toujours renvoyer True.

[gilles06]

Merci Simgular,

Je ne connaissais pas cette fonction.
Mais le probleme c'est que je ne connais pas les groupes et sous groupes, je les decouvre au fur et a mesure que je scanne le fichier, et j'affecte une valeur particuliere si c'est un groupe ou si c'est un sous groupe. D'ou mon probleme.
J'ai une idee qui semble fonctionner, c'est en utilisant les "indents", mais pour ca je dois formater en amont mon fichier.

[Singular]

Donnes-moi un exemple de données...?

[gilles06]

Voila un exemple

[Singular]

Voici ton classeur modifié en exemple.

J'ai nommé des groupes et sous groupes de lignes (en les sélectionnant puis Insertion/Noms/Definire).

Tu peux essayer les macros que j'ai faites (InfosSurLignes et TesterGroupe).

[gilles06]

Merci Singular,

Je regarde et reviens vers toi plus trad.

[gilles06]

Merci beaucoup, le probleme est resolu.