Boucle sur checkbox

Bonjour à tous

voilà j'ai un petit code pour cocher mes checkbox (110)

globalement la procédure est la suivant :

si la cellule (ligne 10, colonne 10) = 1 alors cocher la checkbox 1

Si la cellule (ligne 10, colonne 10)=2 alors cocher la checkbox 2

ainsi de suite jusq'à 99

ensuite la ligne est variable

Si la cellule (ligne 11, collone 10) = 4 alors cocher la checkbox4

donc j'ai une boucle

au départ j'ai fait le code suivant

If Cells(10, 10).Value = "1" Then
CheckBox1.Value = True
End If

If Cells(10, 10).Value = "2" Then
CheckBox2.Value = True
End If

mais après réflexion ca ne va pas car trop long à remplis alors j'ai pensé à l'ami boucle

Dim i As Integer

Dim k As Integer

Dim checkbox As Control

Sheets("Feuil1").Activate

For i = 10 To 20

For k = 1 To 100

If Cells(10, i).Value = (("Checkbox" & i)) Then

Me.Controls("Checkbox" & k) = True

End If

Next

Next

mais là ca ne fonctionne pas

pour information il ne peut pas y avoir de doublon au niveau de la ligne (cellule i, colonne 10)

si quelqu'un à une idée....

MErci par avance

Bonsoir

Et avec un petit fichier ?

Ci joint un exemple avec un userform

l'exemple est simplifié car beaucoup de département en france

l'idée n'est pas de me faire le code mais de m'orienter car après recherche sur le net je ne vois pas !

merci

Bonjour

Simple comme code

mais ton fichier ne correspond pas à ta 1ère demande

Si cela peut t'aider

Private Sub UserForm_Initialize()
  For j = 10 To Range("I" & Rows.Count).End(xlUp).Row
    Me.Controls("Checkbox" & Range("I" & j)) = True
  Next j
End Sub

vous serez t il possible de mettre le fichier en pj

Cordialement

ps : cela me permettrai de comprendre mieux car là j'ai une erreur objet spécifié introuvable !

j'ai ajouter

dim j as integer

Bonsoir

A voir

Merci j'ai réussi à adapter le code à ma feuille !!!!

cdt

edouard002