Discussion :

[Adakhum]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riaolle]

Bonjour,
Lorsqu'on écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Adakhum]

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

Merci !