Discussion :

[forum2015]

Bonjour à tous,

Lorsque je compile mon code, une erreur 1004 : "erreur définie par l'application ou par l'objet" apparait et surligne en jaune la ligne suivante :

Code :

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

Sheets("Nuevos informaciones").Range(Cells(3, 1), Cells(number_of_line, number_of_column)).ClearContents

Je ne vous communique pas le reste du code car il est long (450 lignes) et j'ai moi-même passé un temps fou aujourd'hui à vérifier que tout fonctionne. Et tout fonctionne parfaitement, à part cette ligne qui est la dernière ligne de mon programme.

Pour info, number_of_line est une variable déclarée en début de module et dont la valeur est 18.
number_of_column est de même une variable déclarée en début de module et dont la valeur est 56.
Nuevos informaciones est le nom de la feuille en question !

Je ne comprends pas pk le code ne marche pas, et encore moins pourquoi il me renvoit cette erreur sachant que j'ai essayé le code suivant et il fonctionne parfaitement :

Code :

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

Sheets("Nuevos informaciones").Range(Cells(1, 1), Cells(6,1)).ClearContents

Par contre, le code suivant ne marche pas non plus :

Code :

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

Sheets("Nuevos informaciones").Range(Cells(3, 1), Cells(18, 56)).ClearContents

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Cela signifie vraisemblablement que la feuille Nuevos informaciones n'est pas la feuille active quand tu lances la procédure.
Cette syntaxe ira mieux mais je n'ai pas testé.

Code :

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

1
2
3
 With Sheets("Nuevos informaciones")
 .Range(.Cells(3, 1), .Cells(number_of_line, number_of_column)).ClearContents
 End With

Il serait prudent également de préciser le classeur parent de la feuille, qui est ThisWorkbook si la feuille Nuevos informaciones est dans le même classeur que celui où le code VBA est présent.

[illight]

Bonjour Philippe,


je comprend pas pourquoi la feuille devrait être active, quel est le rapport ?

Par curiosité, si on écrit ça :

Code :

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

Sheets("Nuevos informaciones").Range(Sheets("Nuevos informaciones").Cells(3, 1),Sheets("Nuevos informaciones").Cells(number_of_line, number_of_column)).ClearContents

ça marcherait non ?

[Menhir]

Pour compléter le très bonne réponse de Philippe Tulliez, il faut que tu comprennes que les Cells que tu mets dans ton Range sont des objets indépendant du Range. Elle ne prennent pas implicitement le même parent (la Worksheeet de Range). Il faut leur préciser de nouveau (sauf si elle ont comme parent ActiveSheet qui est le parent implicite de Cells).

Le With du code de Philippe crée un parent implicite provisoire qui est appelé chaque fois qu'un objet commence par un ".".

je comprend pas pourquoi la feuille devrait être active, quel est le rapport ?

Parce que la feuille active est le parent implicite de l'objet Cells, celui auquel il se réfère si rien n'est précisé.
Or, comme visiblement forum2015 souhaite que ses Cells fasse référence à des cellules de "Nuevos informaciones", il faudrait que ce soit cette feuille qui soit active pour que ça fonctionne.

[Philippe Tulliez]

Bonjour Olivier,

je comprend pas pourquoi la feuille devrait être active, quel est le rapport ?

Loic vient de donner l'explication détaillée à la question que tu poses.
Et oui le code que tu as affiché fonctionnera également mais il est plus élégant (et plus rapide au passage) de l'insérer dans un bloc With ...End With
Pour t'en convaincre, fais tourner cette petite procédure quand la feuille nommée Feuil1 est active, cela fonctionnera sans aucun problème. Ensuite fais le test sur la feuille nommée Feuil2. Une erreur 1004 va être provoquée.

Code :

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

1
2
3
Sub test()
 Worksheets("Feuil1").Range(Cells(2, 2), Cells(4, 4)) = "Excel"
End Sub

[illight]

Je n'avais jamais rien compris à cette utilisation du With, qui pour moi était plus pour faire des lignes inutiles qu'autre chose.
Avec cette exemple, je comprend mieux à quoi sert foncièrement son utilisation, qui est finalement et comme tu le dis, beaucoup plus élégante

Merci en tout cas à vous 2 pour ces explications

[Marc-L]

Bonjour,

ce n'est pas une question d'élégance (elle vient plutôt avec l'indentation ou un style d'écriture)
mais bien d'efficience, affranchissant aussi de l'utilisation de variables objet à tout va …

Exemple dans cette discussion : post #17 à comparer avec le suivant puis le #20 avec le #22 …




_________________________________________________________________________________________________
Aller vers l'essentiel, penser objet …