XL 2010 Supprimer lignes de plusieurs feuilles via dictionnaire

cp4

XLDnaute Accro
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

Réponses
10
Affichages
637

Statistiques des forums

Discussions
297 998
Messages
1 964 984
Membres
200 793
dernier inscrit
marcovit