Besoin d'aide sur une boucle en vba dans excel

Version imprimable

Bonjour ,
J'ai besoin de réaliser le code ci dessous pour chaque colonne de la ligne 1 qui est renseignée.

pour etre plus clair , j'ai un probleme de date apres import de donnée et j'ai trouvé ce code pour modifier la date mais je n'arrive pas reproduire l'action sur chaque colonne de la ligne 1

c'est t'a dire dans mon cas de A1 a ?1 ( ? est la derniere colonne avec une date)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Format() ' ' Format Macro ' ' Sheets("Données").Select Range("a1").Select Selection.TextToColumns Destination:=Range("a1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 4), TrailingMinusNumbers:=True Selection.NumberFormat = "m/d/yyyy" Selection.HorizontalAlignment = xlRight End Sub
merci

Bonjour,

Si je comprends bien, ça devrait donner quelque chose comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Sheets("Données").Select
 
    nbColonnes = Cells(1, Columns.Count).End(xlToLeft).Column
 
    For N = 1 To nbColonnes
        Cells(1, N).TextToColumns Destination:=Cells(1, N), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(1, 4), TrailingMinusNumbers:=True
 
        Cells(1, N).NumberFormat = "m/d/yyyy"
        Cells(1, N).HorizontalAlignment = xlRight
    Next

22/04/2014, 20h25
ppfun

merci , j'ai juste fait une petite motif et cela fonctionne .
Merci