Problème d'insertion automatique dans une cellule

Bonsoir,

Alors voilà, après quelques recherches afin de comprendre d'où venait mon erreur dans un bloc de code assez conséquent, j'ai réussi à isoler cette dernière.
En effet, le problème concerne l'insertion d'une valeur dans une cellule d'une feuille Excel à l'ouverture du classeur.

Voici le traitement, tout simple, que je compte faire :

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open()   Worksheets("Feuil2").Cells(Range("A1").End(xlDown).Offset(1, 0).Row, 1) = "test"   End Sub

---

PS : Pour que cela fonctionne, mettre au moins une valeur dans la première cellule de la colonne A. En effet, la fonction utilisée recherche la première cellule non vide de la colonne A (et si toutes les cellules sont vides, ça ne marche pas).

Et malgré tout cela, à l'ouverture de mon classeur, une boite de dialogue me signale l'erreur suivante :

Citation:

---

Erreur d'éxécution 1004
Erreur définie par l'application ou par l'objet

---

Et en cliquant sur débogage, la ligne de mon code ci-dessus est surligné en jaune.

Merci d'avance de vos réponses :)

Bonsoir ?
Et cela ce produit-'il même si tu prends soin d'activer la feuille 2 avant la sauvegarde du fichier?

Bonjour,
C'est tout à fait normal que tu aies une erreur 1004
L'instruction

Code:

---

Worksheets("Feuil2").Range("A1").End(xlDown)

---

est l'équivalent du raccourci clavier Ctrl+flècheBas qui te renvoie à la dernière cellule occupée soit dans ce cas à la dernière ligne de la feuille.
Voir ce code

Code:

---

Debug.Print Worksheets("Feuil2").Range("A1").End(xlDown).Address

---

Dans ton code, tu lui dis d'aller une ligne plus bas (offset(1,0)) que sa dernière ligne d'où erreur.
Je suis d'ailleurs étonné que tu arrives à un résultat s'il y a une donnée à la première ligne parce-que le résultat est le même.
Soit tu vérifies avant s'il y a des données dans la feuille soit tu utilises la méthode de partir du bas vers le haut.

Code:

---

1 2 3

With Worksheets("Feuil2") .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = "Test" End With

---

Moi, je travaille avec la propriété CurrentRegion mais il faut dire que j'organise toujours mes feuilles en partant de A2 avec les étiquettes de colonnes en ligne 1

Code:

---

1 2 3 4

With Worksheets("Feuil2") .Range("A1").CurrentRegion.Offset(1, 0) = "Test" '.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = "Test" End With

---

En fait, l'erreur est principalement due à :
- D'une part, la présence / absence de

Code:

---

With ... End With

---

- D'autre part, comme le disait bbil, il faut faire attention sur quelle feuille on se trouve en quittant le classeur.

Bonsoir,

non en fait l'erreur c'est qu'il faut éviter de travailler sans préciser la feuille concernée .., ton objet Range doit-être toujours précédé d'un objet feuille .