Erreur de type 5 - Première ligne dans tableau
Bonjour a tous,
j'ai créé un tableau dans lequel je rendre des informations par le biais d'un UserForm. Je peux modifier ces information en cliquant dessus. Tout fonctionne correcte quand le tableau est complet mais dès que celle-ci est vide j'ai un message d'erreur de type 5 qui apparait. Pouvez vous m'expliquer ça stp; Merci
Bonjour,
Désolé, mais je n'obtiens pas cette erreur même en vidant le TS
A+
Bonjour, salut JExcel
Je n'ai pas eu non plus l'erreur mais j'ai fait quelques corrections
me.hide masque l'userform mais ne le ferme pas...
A+ François
Bonjour,
Déjà, merci à vous pour les retours. Effectivement le fichier que j'ai envoyé ne permet pas de voir l'erreur de type 5. Du coup, j'ai mis en commentaire le bout de programme Error Goto ErrorHandler et normalement dans le tableau est vide est que je clique sur la target, j'ai l'erreur de type 5 qui est sur la première ligne IF Not intersect
'On Error GoTo ErrorHandler
If Not Intersect(target, tbl.DataBodyRange) Is Nothing Then
For Each ligne In tbl.ListRows 'Pour chaque ligne dans le tableau
If Not Intersect(target, ligne.Range) Is Nothing Then 'Vérifier si la plage target est dans la ligne
With UserForm1 'Remplir le UserForm avec les valeurs de la ligne
.TextBox1.Value = ligne.Range.Cells(1, 1).Value
.TextBox2.Value = ligne.Range.Cells(1, 2).Value
.TextBox3.Value = ligne.Range.Cells(1, 3).Value
.CommandButton1.Enabled = False
.Tag = ligne.Index 'Stocker l'index de la ligne dans le Tag
.Show
End With
End If
Next ligne
Else
MsgBox "la sélection pas valide"
End If
'Exit Sub
'ErrorHandler:
'MsgBox "Tableau vide"