USERFORM Probleme touche

Bonjour,

Je ne parviens pas à trouver la solution à mon problème.

Voici ci-dessous mon fichier excel qui répertorie des postes de travail.

Le problème est quand je souhaite modifier un poste, j'ai un message d'erreur qui apparait.

Erreur d'execution '-2147024809 (80070057)':

objet spécifié introuvable

ensuite il me propose le déblocage :

et voici ce que je peux lire

Private Sub Cmd_Modifier_Click()
    flag = 1
    With Worksheets("données")
        ln = Worksheets("données").Range("F4:F" & .Range("F" & Rows.Count).End(xlUp).Row).Find(ComboBox1, lookat:=xlWhole).Row
        For i = 1 To 26
          Worksheets("données").Cells(ln, i) = Controls("TextBox" & i).Value            
          Controls("TextBox" & i).Value = ""
        Next i
        ComboBox1.ListIndex = -1
    End With
    MsgBox "La modification a été prise en compte."
End Sub

Impossible de comprendre pourquoi ça ne fonctionne pas.

Je vous remercie par avance de votre aide.

François

Salut François,

il n'y a pas de TextBox8 (entre autres) alors que tu boucles de 1 à 26

For i = 1 To 26

Worksheets("données").Cells(ln, i) = Controls("TextBox" & i).Value

Controls("TextBox" & i).Value = ""

Next i

A+

bonjour

tu a un problème tu a que 9 textbox et non pas 26

si j'ais bien compris il faux faire un truc comme ca

A+

Maurice

Private Sub Cmd_Modifier_Click()
    flag = 1
    With Worksheets("données")
        ln = Worksheets("données").Range("F4:F" & .Range("F" & Rows.Count).End(xlUp).Row).Find(ComboBox1, lookat:=xlWhole).Row
        For i = 1 To 26
         Select Case i
            Case 2 To 7, 24 To 26
              Worksheets("données").Cells(ln, i) = Controls("TextBox" & i).Value
               Controls("TextBox" & i).Value = ""
         End Select
        Next i
        ComboBox1.ListIndex = -1
    End With
    MsgBox "La modification a été prise en compte."
End Sub

Bonjour,

Merci à vous.

Grace à vos interventions j'ai compris mon problème. J'ai dernièrement modifier le nom des textbox ce qui m'amener a avoir que 7 textbox.

Mais là je viens de redonner les "bon" name au textbox cad textbox8 / Textbox9 / Textbox10 etc

et ca fonctionne