Discussion :

[Vbamateur]

Bonjour à tous,

Ayant parcouru le forum à la recherche d'une solution à mon problème qui est de convertir des dates anglo-saxonnes en dates française, j'ai trouvé le moyen de le faire en passant par:
Données>Convertir puis en changeant au format MJA à l'étape 3.
Cela fonctionne lorsque j'effectue la manipulation manuellement. Seulement ce qui m'intéresse, c'est de le faire par macro sur un certain nombre de colonnes.
Toutefois, lorsque j'utilise l'enregistreur de macro, excel m'écrit cela:

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
    Columns("G:G").Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 3), TrailingMinusNumbers:=True
End Sub

Le soucis, est que lorsque je lance la macro pour le faire sur une autre colonne, cela ne fonctionne pas. Pourriez-vous m'aider sur la syntaxe à adopter pour que cela fonctionne?

Bien cordialement,
Vbamateur.

[BENNASR]

bonjour
modifier ça : Columns("G:G").Select
par par exemple : Columns("G:K").Select
je crois que ca va fonctionner
amicalement

[Vbamateur]

Tout d'abord, merci pour ta réponse rapide.
Le soucis c'est que l'on ne peut pas traiter plusieurs colonnes en une seule fois mais à la rigueur ce détail n'est pas si grave.
Le vrai problème c'est que la conversion ne s'effectue pas quand je lance la macro à l'inverse de lorsque je le fais "à la main".

Bien cordialement,
Vbamateur.

[Invité]

Bonsoir,

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
16
17
18
19
20
 
Sub test()
DateFrGb Columns("G:G")
DateFrGb Columns("F:F")
For i=1 to 10
  DateFrGb Columns(i)
 
Next
 
End sub
 
Sub DateFrGb(plage as range)
'
' Macro1 Macro
 
    plage.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 3), TrailingMinusNumbers:=True
End Sub

[joe.levrai]

Bonjour,

je dis peut être une bêtise (vous avez l'habitude), mais faut pas modifier ça :

Code :

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

plage.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited

pour dynamiser "G1" en fonction de la colonne de plage, comme ça ?

Code :

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

plage.TextToColumns Destination:=plage.Cells(1,1), DataType:=xlDelimited

[Invité]

Bonsoir Joe,
Si tu as raison, un copier coller intempestif, merci pour la correction!