XL 2010 Supprimer lignes de plusieurs feuilles via dictionnaire

cp4

XLDnaute Barbatruc
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 025
Membres
101 873
dernier inscrit
excellllll