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