Erreur d'execution '9' "l'indice n'appartient pas à la selection"

Bonjour;

J'ai un problème avec un code assez simple, qui parait correct, le voici:

Je saisi une donnée dans la cellule F7 de la feuille("Accueil") et elle doit être enregistrée dans la colonne B de la feuille ("Données")

Sub Add()
Dim i As Integer
i = Sheets("Données").Range("B1000").End(xlUp).Row + 1 ' Le débogage s'arrête sur cette ligne
Sheets("Données").Cells(i, "B").Value = Sheets("Accueil").Range("F7").Value
sheet1.Range("F7").Value = ""
MsgBox "Vos données ont été enregistrées", vbInformation
End Sub

Bonjour,

Jusqu'à cette ligne signalée en erreur, pas d'erreur détectée de mon côté (j'espère que la feuille "Données" existe bien, et surtout que le nom de l'onglet est bien identique au nom donné dans la macro, et qu'il n'y a pas un espace en trop dans le nom de la feuille, à vérifier)

Par contre ici, sheet1.Range("F7").Value = "", ne faut -il pas remplacer Sheet1 par "Sheets("Accueil")?

Cdlt

Bonjour

Ta feuille: c'est " Données", "Données" ou... bref regarde bien le nom de ta feuille

Mieux. Clic sur l'onget, choisi renommer, et copie le nom exact...

A+ François