Erreur D'exécution'1004' La méthode Delete de la classe Range a échoué.

Bonjour,

Je fais face à un code d'horreur pour une formule, qui fonctionne plusieurs fois dans mon code mais pour une raison que je ne peux comprendre, lors ce que j'ai une donnée dans ma cellule BB2, le message d'erreur m'apparait. Voici une partie de mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

'9B If Range("R2").Value > 0 Then Range("AA3").Value = Range("R2").Value Range("R2", "S2").Delete shift:=xlShiftUp Else If Range("X2").Value > 0 Then Range("AA3").Value = Range("X2").Value Range("X2", "Y2").Delete shift:=xlShiftUp Else MsgBox ("Manque d'autobus 9B") End If End If '9C Split If Range("AP2").Value > 0 Then Range("AA10").Value = Range("AP2").Value Range("AP2", "AQ2").Delete shift:=x1ShiftUp Else If Range("BB2").Value > 0 Then Range("AA10").Value = Range("BB2").Value Range("BB2", "BC2").Delete shift:=x1ShiftUp Else If Range("R2").Value > 0 Then Range("AA10").Value = Range("R2").Value Range("R2", "S2").Delete shift:=xlShiftUp Else If Range("X2").Value > 0 Then Range("AA10").Value = Range("X2").Value Range("X2", "Y2").Delete shift:=xlShiftUp Else MsgBox ("Manque d'autobus 9C") End If End If End If End If

---

L'erreur arrive à la ligne 20. Touvez-vous un problème à mon code?

Bonjour,
pour Range, il faut mettre les 2 points au lieu de la virgule,
en exemple

Code:

---

Range("R2":"S2")

---

il faut la remplacer sur tous les Range("…:...")
Bonne journée à tous

Bonjour,

Ne serait-ce pas plutôt

Code:

---

Range("R2:S2")

---

Cdlt

Bonjour

Code:

---

MsgBox Range("BB2", "BC2").Address & vbCrLf & Range("BB2:BC2").Address

---

montre que ce n'est pas la syntaxe utilisée qui est en cause ici.
La cause est probablement autre et ailleurs que dans le seul code montré.

Bonjour,

Salut Unparia.

Citation:

---

MsgBox Range("BB2", "BC2").Address & vbCrLf & Range("BB2:BC2").Address

---

C'est ce que j'allais mentionner.

Le fait est que notre ami a codé

Code:

---

x1ShiftUp

---

au lieu de

Code:

---

xlShiftUp

---

A remplacer dans toute la procédure (CTRL + H, "x1S", "xls").

D'autre part, je ne peux que donner 2 conseils:
- Attacher les Objets Range à leur feuille parent, en utilisant éventuellement le bloc With
- Un bloc Select Case contribuerait à une meilleure lisibilité

Citation:

---

Envoyé par ARTURO83

Bonjour,

Ne serait-ce pas plutôt

Code:

---

Range("R2:S2")

---

Cdlt

---

autant pour moi,
j'ai été trop vite

Bonjour,

Citation:

---

autant pour moi,
j'ai été trop vite

---

Comme Unparia, que je salue au passage, je ne suis pas d'accord.
L'argumentation reste valable.

Par ailleurs, c'est, au moins, le 1 dans la valeur de propriété Shift qui provoquait une erreur.
Il est codé "x 1(le chiffre) ShiftUp" au lieu de " x l(comme "LacdeGardeenItalie").

Essaie de rechercher "x1"(le chiffre) dans la procédure. Tu constateras ainsi la mauvaise syntaxe.

Merci à tous vous êtes géniaux!

J'ai toujours cru que xlShiftUp s'agissait d'une fois shift up, plutôt xl Shift Up. Donc, je vais me coucher moins niaiseux ce soir. :P


Toujours mille et une fois merci pour votre aide.:D

Salut

Autres conseils en plus de ceux de MarcelG:

Option Explicit devrait toujours figurer en entête de module! L'erreur de saisie aurait été immédiatement trouvée car la déclaration des variables devient alors obligatoire et au lancement du code, le VBE aurait bloqué en surlignant le mot mal orthographié.

De plus, toujours saisir les mots du VBA en minuscules. A la validation de la ligne, les mots bien orthographiés et donc reconnus par le VBE prennent les majuscules là où il faut, et ceux qui sont mal orthographiés restent en minuscules. Avec un (tout petit) peu d'habitude, on repère les problèmes avant qu'ils ne surgissent.


Pour avoir Option Explicit au début de chaque nouveau module, il faut aller dans Outils/Options/Editeur et cocher la case "Déclaration des variables obligatoire". Pour les anciens modules, ajouter (éventuellement) la ligne à la main en tout début de module.

Bonsoir à vous, Bonsoir le Forum,

Hé salut Pierre.

J'avais oublié Option Explicit, en effet.

A ce sujet, il peut y avoir d'autres options intéressantes.
Par exemple

Code:

---

Option Compare Text

---

évite de distinguer les majuscules et les minuscules.
Mais cette précaution est moins fondamentale que la déclaration de variables.

Allons plus avant.
Tu faisais référence au VBE.
La déclaration de variable doit bannir les Variant. Le seul exemple que je connaisse concerne les Array.
On en voit trop.
Cette précision dans la déclaration permet une saisie des propriétés et méthodes plus aisées si les options d'éditeur sont toutes cochées.

Par exemple;
On voit trop souvent

Code:

---

Dim mondico

---

Je préfère

Code:

---

1 2	Dim mondico As Scripting.Dictionary

---

(à condition d'activer la référence adéquate)
Je la préfère également à la déclaration en Objet.

Quant à la saisie, personnellement, je la préfère en majuscules.
Les codes finalisés étant rédigés, du moins pour une large part, en minuscules, la reconnaissance par le VBE est plus évidente.
C'est juste mon avis.

A Ciao. Si vedremo piu tardi.
:P

Citation:

---

Envoyé par MarcelG

[...]
J'avais oublié Option Explicit, en effet.[...]

---

Avec Option Explicit, le problème était trouvé en même pas une seconde ^^. Et dire que j'ai encore lu dernièrement quelqu'un qui soutenait que ce n'était pas toujours important... :roll:

Citation:

---

Envoyé par MarcelG

[...]

Code:

---

Option Compare Text

---

[...]

---

Perso, j'aime pas. Ca empêche une réutilisation du code dans un module qui ne contiendrait pas l'option. A la limite, dans un module de classe, pourquoi pas, mais je préfère travailler systématiquement sans ce truc. Si je ne veux pas la différenciation, sur une comparaison par exemple, j'utilise l'une ou l'autre de ces lignes de code.

Code:

---

1 2 3 4 5

Dim A As String Dim B As String   If UCase(A) = UCase(B) Then If StrComp(A, B, vbTextCompare) = 0 Then

---

Les fonctions de manipulation de texte de VBA ont systématiquement l'argument permettant de travailler avec ou sans la différenciation de casse. Ca m'évite de me poser la question "quelle est l'option de comparaison"?... De plus, l'option vaut pour tout le module mais uniquement pour le module. Ca veut dire que la même ligne de code pourrait produire un résultat différent dans deux modules différents du même projet. Je trouve que c'est perturbant et source d'erreur d'avoir un code qui ne produit pas toujours le même résultat. Et j'aime par dessus tout la systématisation en programmation.

Avec Option Compare Binary (ou pas d'option, car c'est l'option par défaut)
Pièce jointe 510117

Avec Option Compare Text
Pièce jointe 510121


C'est comme le Option Base, je n'aime pas l'utiliser, pour les mêmes raisons de "non-portabilité" du code. Il y a suffisamment de possibilités de déterminer la base d'un tableau ou d'un array sans figer cette base dans les options de compilation du module, pour moi. D'autant plus que de (trop) nombreuses d'exceptions ne respectent pas Option Base. Je pense notamment à:

• Array(...) qui tient compte de l'option;
• vba.Array() qui part toujours de 0;
• tablo = range("a1:a1000") qui part toujours de 1;
• Split() qui part toujours de 0.

Avec Option Base 0 ou sans option (car option par défaut): Dim t(5) renvoie un tableau de 6 lignes. Avec Option Base 1, t(5) renvoie un tableau de 5 lignes. Je préfère piloter cela moi-même de façon explicite: dim t(0 to 5) ou dim t(1 to 5) ou encore dim t(25 to 50) ou dim t(-10 to 10) si je préfère commencer à un indice i qui me convient pour x raisons.


Cela dit, chacun ses choix et ses préférences (alors que pour Option Explicit, je pense qu'il ne s'agit vraiment pas de choix pour qui veut coder de façon professionnelle.)

Citation:

---

Envoyé par MarcelG

[...]
La déclaration de variable doit bannir les Variant.
On en voit trop.
Cette précision dans la déclaration permet une saisie des propriétés et méthodes plus aisées si les options d'éditeur sont toutes cochées.
[...]

---

Je suis moins catégorique car parfois, tu n'as pas le choix. Il faut d'ailleurs noter que vb.net a introduit le type Dynamic qui correspond au Variant de VBA. Par exemple, seule une variable Variant peut être Null, ce qui a tout de même des avantages dans une série de situations, alors que les types tels que String ou Long initialisent la variable lors de la déclaration. Or, une chaine vide ou 0 peuvent avoir une autre signification que Null ou Empty. C'est notamment le cas lorsque tu récupères des données d'Access qui permet Null comme valeur de donnée. Par exemple, si tu as une variable reprenant le nombre de jours de maladie d'une personne, 0 veut dire qu'elle a 0 jours, là où Null veut dire "je n'ai pas l'info"... Cela dit, d'accord pour dire que c'est à utiliser avec parcimonie dans des cas bien délimités.

Par exemple, j'ai une fonction générique qui renvoie un ListRow d'un tableau structuré sur base d'un identifiant. L'identifiant peut être du texte, un entier long ou une date. Sans Variant, je devrais proposer 3 paramètres optionnels (un par type de données), alors que As Variant me permet de passer la valeur cherchée à la fonction générique qui, par définition, ne sait pas ce qu'elle va recevoir comme type de données.

Code:

---

Function GetListRow(Table As ListObject, ColumnName As String, Value As Variant) As ListRow

---

Citation:

---

Envoyé par MarcelG

[...]Je la préfère également à la déclaration en Objet.[...]

---

On n'a pas toujours le choix. Si tu travailles en Late Binding, tu seras obligé de déclarer les variables As Object. Avec certains objets Excel, c'est également le cas, par exemple si tu cherches une feuille sur base de son nom, car il n'y a pas d'objet As Sheet, la classe Sheet n'étant pas instanciable et ne pouvant être utilisée que par ses classes dérivées. Si tu veux boucler sur toutes les feuilles, tu n'as pas d'autre choix que Dim sh As Object... For Each sh In ThisWorkbook.Sheets

Citation:

---

Envoyé par MarcelG

[...]
Quant à la saisie, personnellement, je la préfère en majuscules.
Les codes finalisés étant rédigés, du moins pour une large part, en minuscules, la reconnaissance par le VBE est plus évidente.[...]

---

Chacun ses choix ;) En tout cas, nos deux techniques de saisie montrent qu'il est important de ne pas essayer de saisir "comme ce sera écrit", car choisir nos méthodes permet de mettre en évidence les fautes de frappe.

Bonjour le Forum, Bonjour (quand même) Pierre,

Merci pour ces précieux compléments.
Tu vois, à juste titre, ces notions avec plus de hauteur.
Pour ma part, je me réfère à mes développements réalisés ces 10 dernières années.

La déclaration d'objet que j'ai mentionné faisait seulement référence aux dictionnaires.
Ce qui, je présume, ne change rien à ce que tu avances.

Citation:

---

tu n'as pas d'autre choix que Dim sh As Object... For Each sh In ThisWorkbook.Sheets

---

J'en prends note.
(Pour ma part, j'ai toujours effectué cette déclaration en Sheet).

En espérant que ces échanges puissent servir à nos amis du Forum.

Bonne journée à tous.

Citation:

---

Envoyé par MarcelG

[...]
(Pour ma part, j'ai toujours effectué cette déclaration en Sheet).[...]

---

Dubitatif je suis... (ou alors on ne se comprend pas)

Pièce jointe 510209



Travaillerais-tu sur Mac? Dans cette autre discussion, Transitoire m'a fait remarqué une différence entre Mac et Windows relative au modèle objet de VBA. Il en va peut-être de même pour la déclaration As Sheet. Sur Windows en tout cas, le As Sheet n'est pas accepté.

Dubitatif, je le suis aussi.

En effet, je confirme l'erreur que tu signales pour une déclaration en Sheet

Mais.

La déclaration en Worksheet ne pose pas de problème

Code:

---

1 2 3 4 5 6 7 8 9

Sub essai_déclar()   Dim sh As Worksheet   For Each sh In Worksheets Debug.Print sh.Name Next sh   End Sub

---

aucune erreur.

Question: Pourquoi la déclaration en Sheet (pour la collection Sheets) est-elle acceptée, non celle en Worksheet (pour la collection WorkSheets)?

Sauf erreur,
La différence entre la collection Sheets et celle Worksheets est que la 1ère comporte les feuilles graphiques.

Dois-je en déduire que cette différence de déclaration provienne de cette différence de collection?

(Je dois dire que je travaille exclusivement sur la collection Worksheets.)(sous Windows PC, Office 2016.)

A plus donc.

Citation:

---

Envoyé par MarcelG

[...]
Question: Pourquoi la déclaration en Sheet (pour la collection Sheets) est-elle acceptée, non celle en Worksheet (pour la collection WorkSheets)?[...]

---

Je ne comprends pas ta question car en fait, c'est l'inverse de ce que tu dis qui est: As Sheet n'est pas permis et on doit utiliser As Object, et As Worksheet est permis mais renvoie un objet Worksheet.

Si donc tu veux boucler sur tous les onglets d'un classeur (feuilles de calculs, feuilles de graphique, feuilles de boite de dialogue,...), tu n'as d'autre choix que d'utiliser une variable de type Object, car tu ne peux utiliser ni un objet Worksheet, ni un objet Chart, ni un objet DialogSheet (plus du tout utilisé aujourd'hui, je suppose).

Code:

---

1 2 3 4 5 6

Dim sh As Object   For Each sh In Sheets ... ... Next sh

---

Cela dit, n'étant pas dans la tête des ingénieurs de Microsoft, je ne saurais pas te dire pourquoi ils ont créé la classe Sheet non instanciable, ni pourquoi ils n'ont pas créé une interface ISheet :roll:

Oui, je me suis emmêlé les pinceaux. C'est l'inverse qu'il fallait comprendre. Worksheet autorisé, non Sheet..

J'ai bien acté ton explication.
Au demeurant, comme toi, je me pose la - dernière - question quant à la différence de traitement des 2 classes (Point de détail, j'aurais employé le terme "Collection").

A plus tard.

Point de détail (quoique): la collection, c'est

• SheetS (pour toutes les feuilles) qui contient des objets (Mais qui aurait pu contenir des objets Sheet, s'ils existaient);
• WorksheetS (pour les feuilles de calcul) qui contient des objets Worksheet;
• ChartS (pour les feuilles de graphique), qui contient des objets Chart.

Je pense qu'en programmation, chaque terme à son importance...

Ciao

J'ai lu trop vite.
Je croyais avoir aperçu un S d'où ma remarque, qui, en définitive, rejoint la tienne. (J'avais lu l'espace Microsoft à ce sujet).

Ciao également