VBA Excel: Comment faire pour exécuter une fonction pour chaque cellule dans une colonne et une boucle dans tous les classeurs?

Voici ce que j'ai à ce jour:

Sub TrimColumnD()
   Dim ws As Worksheet

   For Each ws In ThisWorkbook.Worksheets
   Dim c As Range
        For Each c In ActiveSheet.UsedRange.Columns("D").Cells
            c.Value = WorksheetFunction.Trim(c.Value)
        Next c
   Next ws

End Sub

La fonction trim ne fonctionne que sur les cellules de la première feuille de calcul, mais c'est tout. Des suggestions?

Merci d'avance

Assurez-vous de formater votre code clairement avec une bonne tirets. C'est aussi une bonne idée pour déclarer votre variable au sommet de la sous.

OriginalL'auteur user2510323 | 2013-06-21

  1. 14

    Veuillez modifier cette ligne:

    For Each c In ActiveSheet.UsedRange.Columns("D").Cells

    dans celui-ci:

    For Each c In ws.UsedRange.Columns("D").Cells

    Dans votre code de la boucle interne se réfère à activesheet alors qu'il devrait se référer à la ws variable représentant de la feuille.

    OriginalL'auteur Kazimierz Jawor