Recuperation de la collection des shapes d'une ligne

Bonjour,

je veux faire une procédure vba qui a comme argument d’entrée la ligne de la page excel

et qui à partir de l'indice de la ligne je peux sauvegarder l’état des shapes.en faite, jai une procédure qui permet la sauvegarde des états de tout les shapes dans un excel et je veux la transformer en une procédure qui travaille par ligne.

Sub case_save()
    Dim Fe As Worksheet
    nbreCheckBox = 0
    Dim S As Shape
    Dim i As Integer
    length = 0
    Set Fe = Worksheets("Estimation")
    i = 0
    For Each S In Fe.Shapes
        If S.Type = 8 Then
        nbreCheckBox = nbreCheckBox + 1
            If S.ControlFormat.Value = 1 Then
                MsgBox S.Name
                length = length + 1
                'Collect.Add (S.Name)
                tableau_checkbox(i) = S.Name
                i = i + 1
            End If

        End If

    Next
    MsgBox tableau_checkbox(0)
End Sub

Bonjour,

Apparemment tu emploi des contrôles issus de la barre outils Formulaire.

La seule façon que je vois pour te situé c'est de travailler sur le nom du checkBox.

Comment sont disposer tes checkbox ?

Une exemple de ton classeur serait plus "parlant".

A+

ci joint le fichier excel

Y a rien dans ton classeur..

Pas de shape, pas de code VBA ..

Salut le forum

Lermite, il y a bien du VBA dans le fichier, regarde en Feuil2

Mytå

Bonjour Mytå,

Oui, ça j'avais vu mais c'est juste l'appel aux procédures qui ne sont pas présentes !

Et les fameux Shapes ne sont pas présent non plus.

A+

les shapes sont en fait les checkbox qui existent dans les colones J K et L,je les creer de façon automatique dans une boucle for.je veux récuperer les indices ligne et colones de ces checkbox afin de pouvoir les utiliser apres dans mon code