Discussion :

[ppfun]

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 :

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

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

[parmi]

Bonjour,

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

Code :

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

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

[ppfun]

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