Bouton modifier , j'ai 100 textbox comment faire une boucle

Bonjour à tous, j'ai un probleme je sais pas pourquoi mais je n'arrive pas a faire une boucle pour mes textboxs pouvez vous maider

Private Sub CommandButton3_Click()
MsgBox ("Avant de vouloir ajouter , vérrifiez bien que vous avez appuyer sur le bouton clear")
'Pour le bouton Nouveau associé
Dim L As Integer

 If MsgBox("Confirmez-vous l'insertion de ce nouveau  ?", vbYesNo) = vbYes Then
 L = Sheets(Feuil1).Range("a4").End(xlDown).Row + 1 nt

 Range("A" & L).Value = ComboBox1
 Range("B" & L).Value = ComboBox2
 Range("C" & L).Value = TextBox1
'debut 2015
 Range("BS" & L).Value = TextBox69
Range("BT" & L).Value = TextBox70
 Range("BU" & L).Value = TextBox71
 Range("BV" & L).Value = TextBox72
 Range("BW" & L).Value = TextBox73
 Range("BX" & L).Value = TextBox74 
 Range("BY" & L).Value = TextBox75
 Range("BZ" & L).Value = TextBox76
  Range("CA" & L).Value = TextBox77
 Range("CB" & L).Value = TextBox78
 Range("CC" & L).Value = TextBox79
 Range("CD" & L).Value = TextBox80
 Range("CE" & L).Value = TextBox81
Range("CF" & L).Value = TextBox82
 Range("CG" & L).Value = TextBox83
 Range("CH" & L).Value = TextBox84
 Range("CI" & L).Value = TextBox85
 Range("CJ" & L).Value = TextBox86
 Range("CK" & L).Value = TextBox87
 Range("CL" & L).Value = TextBox88
  Range("BZ" & L).Value = TextBox89
  Range("CA" & L).Value = TextBox90
 Range("CB" & L).Value = TextBox91
 Range("CC" & L).Value = TextBox92
 Range("CD" & L).Value = TextBox93
 Range("CE" & L).Value = TextBox94
Range("CF" & L).Value = TextBox95
 Range("CG" & L).Value = TextBox96
 Range("CH" & L).Value = TextBox97
 Range("CI" & L).Value = TextBox98
 Range("CJ" & L).Value = TextBox99
 Range("CK" & L).Value = TextBox100
 Range("CL" & L).Value = TextBox101
 Range("CF" & L).Value = TextBox102
 Range("CG" & L).Value = TextBox103
 Range("CH" & L).Value = TextBox104
 Range("CI" & L).Value = TextBox105
 Range("CJ" & L).Value = TextBox106
 Range("CK" & L).Value = TextBox107
 Range("CL" & L).Value = TextBox108 

Merci pour vos idées

Bonjour, au lieu d'utiliser Range("ab" & variable) vous pouvez faire le contraire, Cells(ligne,colonne) où la variable sera dans la partie colonne au lieu de ligne, c'est l'idéal pour boucler.

Pour les textbox

Controls("TextBox" & i)

idem, avec une variable i incrémentable vous pouvez looper sur beaucoup de textbox

Merci pour ta réponse rapide , je fais le test avec 100 textboxs mais ca ne marche pas

Private Sub CommandButton4_Click()
'Pour le bouton Nouveau contact
Dim Ligne As Long
Dim L As Integer
Dim I As Integer

 If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo) = vbYes Then
 L = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide'
 Range("A" & L).Value = ComboBox3
 Range("B" & L).Value = ComboBox4
For I = 1 To 100
If Me.Controls("textbox" & I).Visible = True Then
Ws.Cells(Ligne, I + 2) = Me.Controls("textbox" & I)
End If
Next I
 End If

MsgBox ("SECTEUR d'activité ")

With Ws.Range("C2:d10")
            .NumberFormat = "0"
            .Value = .Value
End With
End Sub

Bonjour

Dans ton code tu initialise L :

L = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1

Ensuite tu utilise Ligne :

Ws.Cells(Ligne, I + 2) = Me.Controls("textbox" & I)

Cela m'étonne que l'interpréteur ne râle pas

je comprends pas comment régler le probleme

Bonjour

Remplaces L par Ligne

Private Sub CommandButton4_Click()
'Pour le bouton Nouveau contact
Dim Ligne As Long
Dim I As Integer

  If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo) = vbYes Then
    Ligne = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1  'Pour placer le nouvel enregistrement à la première ligne de tableau non vide'
    Range("A" & Ligne).Value = ComboBox3
    Range("B" & Ligne).Value = ComboBox4
    For I = 1 To 100
      If Me.Controls("textbox" & I).Visible = True Then
        Ws.Cells(Ligne, I + 2) = Me.Controls("textbox" & I)
      End If
    Next I
  End If

  MsgBox ("SECTEUR d'activité ")

  With Ws.Range("C2:d10")
    .NumberFormat = "0"
    .Value = .Value
  End With
End Sub

Pas testé car pas de support

Si pas ça

Il peut y avoir problème car au vu de ton code il y a 3 feuilles

ActiveSheet quand tu utilises

   Range("A" & Ligne).Value = ComboBox3
    Range("B" & Ligne).Value = ComboBox4

Tu utilises aussi Sheets("Feuil1")

et enfin tu utilises Ws.Cells(Ligne, I + 2)

Cela peut (et doit) être la même, à vérifier

Encore merci pour ton aide Benzaii c'est la deuxieme fois