Sujet Précédent Sujet Suivant

Boucle Excel VBA

Fermé
fafa m - Modifié par pijaku le 16/03/2015 à 12:15
 fafa m - 11 mars 2015 à 12:09
Bonjour,
Je veux transformer de numérique en % une colonne nommée "Taux" dans chaque feuille d'un fichier Excel. Le N° de colonne est différent d'une feuille à l'autre et cette colonne "Taux" n'existe pas dans toutes les feuilles. De plus, j'ai plusieurs fichiers avec un nombre variable de feuilles. J'essaye avec la macro suivante mais cela fonctionne uniquement sur la 1ère feuille : 
   Sub Macro1()
   Dim wSheet
   For Each wSheet In Worksheets
       With wSheet
           Colonne = .Rows(1).Find("Taux", LookIn:=xlValues).Column
       End With
       wColonne = Colonne
       Columns(wColonne).Select
       Selection.NumberFormat = "0.00%"
       Range("A1").Select
       Exit For
   Next wSheet
   End Sub


SVP, quelqu'un peut-il m'aider ? Merci
A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
11 mars 2015 à 11:54
Bonjour,

Essaie comme cela : 
Sub Macro1()
Dim wSheet As Worksheet
Dim Col As Range
    For Each wSheet In Worksheets
        Set Col = wSheet.Rows(1).Find("Taux", LookIn:=xlValues)
        If Not Col Is Nothing Then Col.EntireColumn.NumberFormat = "0.00%"
    Next wSheet
    Set Col = Nothing
End Sub

A+
0
fafa m
11 mars 2015 à 12:09
Cela fonctionne parfaitement ! Merci
0