Suppression de lignes variables : "La méthode Delete de la classe Range a échoué"

Bonjour à toutes et tous,


J'ai besoin de supprimer un nombre de lignes variable dans un tableau et je me heurte systématiquement à la même erreur :
Pièce jointe 577197

Voici un résumé de ce que mon code est censé faire :
- ouvrir un autre classeur
- comparer la taille d'un certain tableau (déclaré comme Tableau) dans le classeur cible et d'un tableau vide dans mon classeur original
- insérer des lignes en plus ou supprimer les lignes en trop
- copier les données du classeur cible vers le classeur original

Je bloque sur la partie "Supprimer les lignes en trop avant copie"

Voilà mon bout de code qui pose problème ;

Code:

---

1 2 3 4 5 6 7 8 9 10

If DiffLine > 0 Then   With FOEHNNY_onglet_PE .Activate .Rows((FirstLinePE + 8) & ":" & (FirstLinePE + DiffLine - 1)).Select Selection.EntireRow.Delete End With   End If

---

L'erreur pointe systématiquement sur la méthode Delete. J'ai tenté des variantes mais aucune n'a fonctionné, i.e. le même message d'erreur a été généré.
J'ai tenté de remplacer

Code:

---

Selection.EntireRow.Delete

---

par :

Code:

---

1 2 3 4 5

Selection.Delete ou FOEHNNY_onglet_PE.Rows((FirstLinePE + 8) & ":" & (FirstLinePE + DiffLine - 1)).Delete ou Rows(Selection.Row).Delete shift:=xlUp

---

également par une boucle For qui ferait du

Code:

---

Rows(i).Delete

---

mais peine perdue...

J'avoue que là, je sèche... Je me débrouille de façon expérimentale avec VBA mais je n'en ai qu'une connaissance extensive.

Merci d'avance à ceux qui pourront m'aider !

Bonjour,

Tout d'abord, en VBA il faut éviter les Select (c'est inutile).
Ton code s'écrit :

Code:

---

1 2 3

If DiffLine > 0 Then FOEHNNY_onglet_PE.Rows((FirstLinePE + 8) & ":" & (FirstLinePE + DiffLine - 1)).EntireRow.Delete End If

---

La raison de l'echec peut être multiple.
- Vérifie les valeurs de FOEHNNY_onglet_PE, de FirstLinePEet et de DiffLine
- l'onglet ne serait-t'il pas protégé ?
- la plage supprimée appartient-t'elle à une matrice ?
- ...

Hello !

Si tu veux garder ton format avec les .Select pourquoi ne pas utiliser Selection.ClearContents ! Ca marche bien mais laisse des cases blanches à la place de supprimer la ligne. A voir si ça fonctionne !

Bisous

Citation:

---

Envoyé par Patrice740

Bonjour,

Tout d'abord, en VBA il faut éviter les Select (c'est inutile).
Ton code s'écrit :

Code:

---

1 2 3

If DiffLine > 0 Then FOEHNNY_onglet_PE.Rows((FirstLinePE + 8) & ":" & (FirstLinePE + DiffLine - 1)).EntireRow.Delete End If

---

La raison de l'echec peut être multiple.
- Vérifie les valeurs de FOEHNNY_onglet_PE, de FirstLinePEet et de DiffLine
- l'onglet ne serait-t'il pas protégé ?
- la plage supprimée appartient-t'elle à une matrice ?
- ...

---

Bonjour Patrice

Oui, pardon, les Select sont un résidu de ma tentative de trouver l'erreur, je vérifiais quelle plage de données était sélectionnée. Merci pour la correction.
Pour ce qui est de tes pistes :
- j'ai vérifié pas à pas mes valeurs, a priori pas de problème de ce côté (j'utilise le FOEHNNY_onglet_PE juste avant)
- j'ai lancé un FOEHNNY_onglet_PE.Unprotect juste avant dans mon code

Citation:

---

- la plage supprimée appartient-t'elle à une matrice ?

---

Quand tu parles de "matrice" tu veux dire un tableau déclaré dans l'onglet en question ?
Oui, c'est le cas. Je cherche à supprimer des lignes recouvrant deux tableaux côte-à-côte, même.
Ça pose problème ?

@Ticroso

Salut ! Non, je ne tiens pas particulièrement aux Select
Par contre, je tiens à supprimer mes lignes en trop ! (pas seulement effacer le contenu)

Citation:

---

Envoyé par Minimilaze

@Ticroso

Salut ! Non, je ne tiens pas particulièrement aux Select
Par contre, je tiens à supprimer mes lignes en trop ! (pas seulement effacer le contenu)

---

Peut être qu'en raisonnant à l'inverse cela pourrait fonctionner ! Je m'explique : au final tu cherche à supprimer ce qu'il y a en trop, ce qui revient à garder ce qui est nécessaire non ? Pourquoi pas copier dans une autre feuille ce qui t'intéresse puis la renommer et supprimer la première feuille ?

Citation:

---

Envoyé par Ticroso

Peut être qu'en raisonnant à l'inverse cela pourrait fonctionner ! Je m'explique : au final tu cherche à supprimer ce qu'il y a en trop, ce qui revient à garder ce qui est nécessaire non ? Pourquoi pas copier dans une autre feuille ce qui t'intéresse puis la renommer et supprimer la première feuille ?

---

Ce n'est pas idiot, mais à terme mes onglets contiendront vraiment beaucoup beaucoup de données. Recopier à chaque lancement de macro quasiment l'ensemble de mes données, ce n'est pas jouable en terme de temps d'exécution.
Pour comprendre ce que je cherche à faire, j'ai besoin en gros de redimensionner un tableau (dans mon fichier original) à la taille d'un autre tableau (dans mon fichier cible) pour en faire ensuite un copié-collé en utilisant la méthode DataBodyRange.
Or, il est possible que mon tableau original soit plus grand que mon tableau cible. D'où la nécessité de supprimer les lignes excédentaires avant de faire la copie.

Citation:

---

Envoyé par Minimilaze

Quand tu parles de "matrice" tu veux dire un tableau déclaré dans l'onglet en question ?
Oui, c'est le cas. Je cherche à supprimer des lignes recouvrant deux tableaux côte-à-côte, même.
Ça pose problème ?

---

Que je parlais de matrice je parlais d'une formule matricielle sur plusieurs cellules

Par contre, si tu as 2 tableaux structurés cote à cote, tu ne peux pas supprimer des lignes entières, il faut supprimer les lignes d'un tableau et celles de l'autre séparément.

Et conserver les Select c'est franchement contre productif (les ajouter pour détecter l'anomalie du code est une bonne méthode)

Citation:

---

Envoyé par Patrice740

Que je parlais de matrice je parlais d'une formule matricielle sur plusieurs cellules

Par contre, si tu as 2 tableaux structurés cote à cote, tu ne peux pas supprimer des lignes entières, il faut supprimer les lignes d'un tableau et celles de l'autre séparément.

Et conserver les Select c'est franchement contre productif (les ajouter pour détecter l'anomalie du code est une bonne méthode)

---

OK, je ne savais pas pour les tableaux.
Du coup, je viens de tester la suppression tableau par tableau et ça fonctionne. J'ai réussi à réduire mes tableaux.

Merci beaucoup pour le coup de main ! Je passe le sujet en "Résolu" !