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 !