[XL-2013] VBA - question simple sur balayage de feuilles excel

Bonjour à toutes et tous,

Sujet simple apparemment mais qui ne fonctionne pas chez moi...

Je voudrais supprimer la ligne 13 par exemple de toutes mes feuilles excel, pour ça je met comme j'ai trouvé PARTOUT sur le net :

Code:

---

1 2 3 4 5 6 7

Sub Modifier_Colonne() Dim WS As Worksheet For Each WS In Sheets Range("D13").Select Selection.EntireRow.Delete Next WS End Sub

---

J'ai même essayé 36.000 noms différents à la place de "Sheets" (comme ThisWorkbook.Worksheets Application.Worksheets )mais y'a rien à faire, les feuilles ne sont pas parcourues. Seule la première feuille a bien la ligne 13 effacée.
De plus en faisant du pas à pas dans mon code, la boucle marche, mais reste à la feuille 1 et ne va pas à 2 /3 /4 ...

Merci pour toute aide

Bonjour,
Lorsqu'on écrit :

Code:

---

Range("A1").Value = "toto"

---

On écrit toto dans la cellule A1 de la feuille ACTIVE. Pour écrire sur les autres feuilles, il faut préciser sur quelle feuille on veut écrire.
Si on applique cela à ton code :

Code:

---

1 2 3 4 5 6

Sub Modifier_Colonne() Dim WS As Worksheet For Each WS In Sheets WS.Range("D13").EntireRow.Delete Next WS End Sub

---

aaahhhhhhhhh d'acc ! merci
Je croyais que ça rendait active la feuille qd on switchait comme ça

Merci !