Erreur d'exécution'-21470248809 80070057)

Bonjour,

en voulant modifier mon fichier, je me retrouve avec une erreur d'exécution Objet spécifié introuvable et ne sais pas du tout quoi faire.

Merci par avance pour votre aide.

Bonjour,

Il vous manque dans votre UserForm les contrôles suivants : Label19 et Label20.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour

il manque le Label 19 & 20 dur dur

   For i = 1 To NbCol
        If i <> 19 And i <> 20 Then
          Me("label" & i) = TblTitre(i, 1)
        End If
   Next i

A+

Maurice

Merci beaucoup pour votre aide, l'erreur est résolue et je peux continuer.

Grand merci

Bonjour

tu peux aussi faire avec un select case

   For i = 1 To NbCol
        Select Case i
            Case 19, 20
            Case Else
                Me("label" & i).Caption = TblTitre(i, 1)
        End Select
   Next i

A+

Maurice