Discussion :

[nikko49]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[SfJ5Rpw8]

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nikko49]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With ... End With

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

[SfJ5Rpw8]

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 .