XL 2010 Supprimer lignes de plusieurs feuilles via dictionnaire

cp4 · 30 Avril 2020

Bonjour,

Je me tourne vers vous car je suis bloqué. J'utilise le code ci-dessous pour supprimer des lignes d'une seule feuille.

VB:

With Sheets("MaFeuille")
   Dim a, m As Integer
   a = d1.Keys
   For m = UBound(a) To LBound(a) Step -1
    .Rows(a(m)).Delete
   Next m
End With

Cependant, cette fois-ci j'ai récupéré dans un dictionnaire le nom de la feuille et la ligne à supprimer.
J'avoue être bloqué pour mener à bien cette opération.
J'ai réaffecté le dictionnaire dans 2 tableaux Tlig=d1.keys (n° de ligne) et Tfeuil=d1.items (nom de l'onglet).
Merci pour votre aide.

pierrejean · 30 Avril 2020

Bonjour cp4
A tester:

VB:

a = d1.Keys
   b = d1.items
   For m = UBound(a) To LBound(a) Step -1
    Sheets(b(m)).Rows(a(m)).Delete
   Next m

pierrejean · 30 Avril 2020

Bonjour cp4
A tester:

VB:

a = d1.Keys
   b = d1.items
   For m = UBound(a) To LBound(a) Step -1
    Sheets(b(m)).Rows(a(m)).Delete
   Next m

cp4 · 30 Avril 2020

Bonjour PierreJean,

C'est parfait. J'avais la solution sous mes yeux et je n'y ai pas du tout penser.
Merci beaucoup. Toute ma gratitude et ma reconnaissance.

Bonne soirée.

XL 2010 Supprimer lignes de plusieurs feuilles via dictionnaire

cp4

XLDnaute Barbatruc

pierrejean

pierrejean

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires