Créer des procédures avec une boucle

Bonjour,

Comment éviter de taper ce code 970 fois ?

Private Sub Image1_Click()
    UserForm1.TextBox1.Value = Feuil1.Range("C" & Image1.Tag).Value
End Sub

Private Sub Image2_Click()
    UserForm1.TextBox1.Value = Feuil1.Range("C" & Image2.Tag).Value
End Sub

Private Sub Image3_Click()
    UserForm1.TextBox1.Value = Feuil1.Range("C" & Image3.Tag).Value
End Sub

Private Sub Image4_Click()
    UserForm1.TextBox1.Value = Feuil1.Range("C" & Image4.Tag).Value
End Sub

Private Sub Image5_Click()
    UserForm1.TextBox1.Value = Feuil1.Range("C" & Image5.Tag).Value
End Sub

Je voudrais faire quelque chose comme ça mais bien évidement ça ne marche pas :

For i = 1 To 970
    Private Sub "Image" & i & "_Click"()
UserForm1.TextBox1.Value = Feuil1.Range("C" & Me.Controls("Image" & i).Tag).Value
    End Sub
Next

Bonjour,

Ci-joint un fichier texte avec les 970 procédures

Et le code VBA ayant permis de le générer.

Pour éviter d'avoir ce type de code redondant, Il faudrait passer par des contrôles dynamiques (un peu complexe).

Sinon, l'idée de progammation automatique est assez innovante et intéressante.

Bonne journée

Bouben

Waow !!!

Je peux te dire que je vais le garder précieusement ce fichier, ça va me changer la vie !

Un grand MERCI à toi !!!!!!