Erreur 9 je ne trouve pas l'erreur
Bonjour et bonne année,
j'ai une erreur 9 qui pop quand je lance mon programme.
j'ai déjà vérifier que je n'ai pas fait de faut.
voici mon code:
If tbdate = "" Or cbmachine = "" Or cboperation = "" Or tbdetails = "" Or tbduree = "" Then
MsgBox ("Information manquante")
Else
If Sheets("feuil9").Range("f2") = "56" Then
Sheets("feuil9").Range("f2") = tbdate
Else
Sheets("feuil9").ListObjects(1).ListRows.Add
End If
Dlt = Sheets("feuil9").Range("b1048576").End(xlUp).Row
Sheets("feuil9").Range("a" & Dlt) = tbdate
Sheets("feuil9").Range("b" & Dlt) = cboperation
Sheets("feuil9").Range("c" & Dlt) = tbdetails
Sheets("feuil9").Range("d" & Dlt) = tbduree
End If
pouvez vous m'aider?
merci
Bonsoir,
sans fichier, sans code complet, pas évident pour ce début d'année !
Vous êtes sous quelle version d'Excel ? Si 2003 et inférieur alors essayez de remplacer ceci :
Dlt = Sheets("feuil9").Range("b1048576").End(xlUp).Rowpar :
Dlt = Sheets("feuil9").Range("B" & Cells.Rows.Count).End(xlUp).Row@ bientôt
LouReeD
oui voici le fichier
l'erreur est sur chaque ligne qui a sheets("feuil9")
j'ai excel 2019
Ben voilà c'est plus simple !
Votre classeur ne contient pas de d'onglet portant le nom de Feuil9 !
Si Feuil9! est le nom de la feuille sous VBA, c'est le CodeName de la feuille, il suffit donc de le prendre comme variable directement : Feuil9.Range("a" & Dlt) = tbdate
Si vous mettez Sheets("nom de la feuille") alors c'est bien le nom de l'onglet qu'il faut renseigner. Dans votre exemple ce sera "data_Historique", donc :
Sheets("data_Historique")
@ bientôt
LouReeD
Merci beaucoup pour ton aide
effectivement j'ai changer feuil9 par data_historique et ca marche nickel.
Bonne année
@plus