VBA Excel - Conversion nom d'objet en string

bonjour

En prenant l'exemple 3 fourni cela devrait donner :

Public Sub boucle_obj()
Dim o As Integer
For o = 1 To 100     ' à adapter à ton classeur
    Sheets("Feuil1").Shapes("CheckBox" & o + 4).Enabled = True
    Sheets("Feuil1").Shapes("CheckBox" & o + 4).Value = True
Next o
End Sub

Merci pour ta réponse,

En fais mes contrôles étant des tous des checkbox sont sur une autre feuille et je fonctionne avec Target.Value

If Target.Value = 1 Then
Sheets("Feuil1").CheckBox5.Enabled = True
Sheets("Feuil1").CheckBox5.Value = True
End If

If Target.Value = 2 Then
Sheets("Feuil1").CheckBox6.Enabled = False
Sheets("Feuil1").CheckBox6.Value = False
End If

If Target.Value = 3 Then
Sheets("Feuil1").CheckBox7.Enabled = False
Sheets("Feuil1").CheckBox7.Value = True
End If

etc...
C'est simplement pour savoir si c'est possible d'incrémenter automatiquement dans une boucle le numéro du checkbox au lieu de changer le chiffre a chaque fois.

Merci

bonjour

Tu as plusieurs façons de la faire et je t'en mets 3 pour exemple :

Public Sub boucle_obj()
Dim o As Integer
Dim nom As String
Dim obj As Object
For Each obj In ActiveSheet.Shapes
    nom = obj.Name
Next obj
For o = 1 To ActiveSheet.Shapes.Count
    nom = ActiveSheet.Shapes(o).Name
Next o
For o = 1 To ActiveSheet.Shapes.Count
    On Error Resume Next    ' filtre autres controles
    nom = ActiveSheet.Shapes("CheckBox" & o).Name
Next o
End Sub

J'ai supposé que tes contrôles étaient sur la feuille car si tu es dans un formulaire c'est différent.