XL 2016 Problème 1004, déplacement d'une cellule de votre feuille de calcul

[APPRENTI:)]

Bonjour à tous,

Je vous explique mon problème.

J'ai une macro 'Bilan' qui doit transférer une ligne d'un onglet à un autre. Cette macro transfert également des dossiers qui y sont associés.

Tout fonctionnait bien, cependant depuis que j'ai fait évoluer mon tableau, je me suis aperçu qu'un message d'erreur apparaissait et je n'arrive pas à solutionner ce problème bien que le sujet soit largement traité sur le net.

je vous joins mon fichier excel.
Lorsque vous sélectionnez la ligne et appuyez sur le bouton BILAN, le message d'erreur apparaît et donc la macro ne se déroule plus entièrement.

je précise que mes connaissances en VBA sont très limitées

Merci à vous !!! passez une très bonne journée!!

 

[sylvanu]

Bonjour Apprenti,
Auriez vous transformer votre tableau en tableau structuré ?
Car le message d'erreur dit :

Quand avec l'enregistreur de macro on supprime une ligne, on obtient :

Selection.ListObject.ListRows(5).Delete

et non pas comme dans votre code :

Cells(lig, 1).Resize(500).Delete xlUp 'supprime la ligne

Donc je pense que l'erreur est apparue lorsque vous avez transformer la plage en Tableau Structuré.

 

[APPRENTI:)]

Bonjour Sylvanu,

merci de votre retour.

qu'appelez vous tableau structuré?

 

[sylvanu]

Re,
Je pense qu'au début vous n'aviez que des plages de cellules et que votre macro marchait bien.
Puis vous avez sélectionnez votre plage et fait Insertion/Tableau :

Mais un tableau n'est pas une plage avec des couleurs, c'est aussi tout un système très puissant de calcul :

Utilisation de références structurées avec des tableaux Excel - Support Microsoft

Les références structurées facilitent l’utilisation de formules avec des tableaux Excel en remplaçant les références de cellule comme C2:C7 par des noms prédéfinis pour les éléments du tableau.

support.microsoft.com

Tableaux structurés Excel

Tableaux structurés Excel

fauconnier.developpez.com

et je pense, mais ce n'est que supputations, que vos problèmes ont commencés à ce moment .

 

[APPRENTI:)]

D'accord, je comprends.
je ne serais dire si c'est à se moment la.

Je pensais que cela pouvait venir des différents liens que mon tableau a avec d'autres tableaux.

Je me suis aperçu que lorsque que je réduis la ligne à supprimer non pas à 500 mais à 1, ce qui correspond à la 1er Cellule, le message d'erreur disparaît.

Dans cette fameuse 2e colonne, j'ai une donnée de rapport d'avancement de tache qui provient d'autres fichiers excel.

voila ou j'e suis dans ma réflexion....

 

[sylvanu]

Essayez de remplacer :

Cells(lig, 1).Resize(500).Delete xlUp 'supprime la ligne

par

Rows(lig & ":" & lig).Delete Shift:=xlUp

( je me plante ensuite mais pour un problème d'accès à votre BDD, ce qui n'est pas lié )

 

[APPRENTI:)]

merci, j'essai de suite.
Qu'est ce que cela veut dire??

 

[APPRENTI:)]

ça à l'air de fonctionner!!!!
Je n'ai plus de message d'erreur et le reste de la macro s’exécute correctement!!!
Merci à vous!!!

 

[soan]

Bonjour APPRENTI, sylvanu,

Je propose : Rows(lig).Delete Shift:=xlUp

ou : Rows(lig).Delete 3

soan

 

[sylvanu]

Bonjour le fil,
@soan,
Le but n'était pas d'optimiser le ligne de code mais de comprendre pourquoi cela buggué.
Après moult essais, il s'avère qu'il n'est pas permis en VBA d'utiliser cette ligne :

Cells(lig, 1).Resize(500).Delete xlUp

Le tableau étant un tableau structuré, son "resize" est géré directement par XL et n'est pas accessible en VBA par cette manière.
Il suffit d'utiliser ça pour faire disparaître l'erreur :

Cells(lig, 1).Delete xlUp

... c'était juste pour comprendre le pourquoi de l'erreur.

 

[soan]

@sylvanu

Même si le but n'était pas d'optimiser la ligne de code, j'ai voulu
indiquer qu'il est inutile de mettre 2× lig dans cette instruction :

Rows(lig & ":" & lig).Delete Shift:=xlUp

car quand c'est le même lig de part et d'autre du signe ":",
c'est donc juste pour une seule ligne ➯ on peut simplifier
en : Rows(lig).Delete 3

lig n'apparaît qu'une seule fois, et c'est quand même
plus court, pas vrai ?

soan

 

[APPRENTI:)]

Bonjour à vous!

que faut il préférer entre :

Rows(lig).Delete 3
et
Cells(lig, 1).Delete xlUp

merci encore!!

 

[soan]

Bonjour APPRENTI,

Ooops, j'avais abrégé Rows(lig & ":" & lig).Delete Shift:=xlUp
en : Rows(lig).Delete Shift:=xlUp ou Rows(lig).Delete 3

mais comme on supprime la ligne entière, le xlUp est inutile !
donc ça devient tout simplement : Rows(lig).Delete

En fait, c'est utile d'utiliser Shift:=xlUp uniquement pour une plage limitée
de cellules ; exemple : [F5:M5].Delete Shift:=xlUp ou [F5:M5].Delete 3

et aussi, en même temps, s'il y a quelque chose d'autre à gauche ou
à droite qui ne doit pas être « remonté » ; pour le même exemple,
c'est les colonnes A:E à gauche, et par exemple N:R à droite.

Note bien que s'il n'y a rien à gauche ni à droite de la plage « remontée »,
alors Rows(5).Delete aura le même résultat que [F5:M5].Delete 3

Pour ton exemple Cells(lig, 1).Delete xlUp ou Cells(lig, 1).Delete 3 : c'est en
colonne A ➯ si tu n'as rien à droite, ni en colonne B, ni plus à droite, alors
Rows(lig).Delete aura le même résultat ; c'est seulement s'il y a quelque
chose en B ou plus à droite qui ne doit pas être remonté en même temps
que tes données en A que c'est utile d'utiliser Cells(lig, 1).Delete 3 au lieu de
Rows(lig).Delete.

Note aussi que sur la feuille de calcul :

* Rows(lig).Delete est l'équivalent de supprimer la ligne lig (évident)

* Cells(lig, 1).Delete 3 est l'équivalent de : sélectionner la cellule qui est
en colonne A et en ligne lig ; puis : onglet Accueil, groupe Cellules,
commande Supprimer / Supprimer les cellules...

soan

 

[APPRENTI:)]

D'accord!!
Merci Soan maintenant c'est très clair!!