Selectionner les groupes avec 3 shapes

Bonjour à tous,

J'ai une feuille excel dans laquelle j'ai plusieurs centaines de groupes, mais je peux les classer en 3 grands groupes. Cela dépend du nombre d'élément dans chaque groupe.

Je peux donc faire une boucle de cette façon

for i=0 to ADEFINIR

ActiveSheet.Shapes.Range(Array("Group" & i)).Select

if (FONCTION POUR TROUVER LE NOMBRE d'ELEMENTS dans un groupe ("Group" & i)=3) then

Traitement

End if

Next

Je cherche donc comment déterminer la valeur max de i, et la fonction qui permet de trouver le nombre d'éléments dans un groupe. Qu'en pensez-vous ?

Je vous en remercie,

Bonne journée

Bonjour,

ne sois pas gêné, envoie une copie de fichier

P.

Voici un exemple

Merci pour cette réactivité !

re,

C'est déjà plus clair..

Perso , je ne sais pas comment faire mais d'autres sauront et ne devront pas demander le fichier

P.

Merci en tout cas !

Bonsoir,

 Dim f
 Sub essai()
  Set f = Sheets("feuil1")
  i = 1
  For Each c In f.Shapes
    If c.Type = 6 Then
       Sheets(2).Cells(i, 1) = c.Name
       ListeItemsGroupe i, c.Name
       i = i + 1
    End If
  Next c
End Sub

Sub ListeItemsGroupe(ligne, nomgroupe)
  n = f.Shapes(nomgroupe).GroupItems.Count
  Sheets(2).Cells(ligne, 2) = n
  For j = 1 To n
    Sheets(2).Cells(ligne, j + 2) = f.Shapes(nomgroupe).GroupItems(j).Name
  Next j
End Sub

Ceuzin

Merci pour cette réponse. En revanche, ça ne permet pas de les classer et de les regrouper visuellement.