Discussion :

[Minimilaze]

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 :


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 :

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

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 :

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

Selection.EntireRow.Delete

par :

Code :

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

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 :

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

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 !

[Patrice740]

Bonjour,

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

Code :

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

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 ?
- ...

[Ticroso]

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

[Minimilaze]

Bonjour,

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

Code :

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

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

- 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 ?

[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)

[Ticroso]

@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 ?

[Minimilaze]

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.

[Patrice740]

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)

[Minimilaze]

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" !