Discussion :

[Yolande]

Bonjour,
J'espère que l'intulé ne vous paraitra pas trop bizar , j 'ai eu beaucoup de mal à formuler mon problème.

Je souhaite utiliser une action : convertion de donnée sur une colonne ( Donnée / Convertir ), cette action sera paramétré différement en fonction de mon type de colonne.

Lorsque j'enregistre une macro de cette action sur la colonne A( convertir la colonne en Date ) cela me donne le code suivant :

Code :

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

1
2
3
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(0, 4)

J'aimerai pouvoir répéter cette action dans une boucle ou la colonne est une variable
m : compteur du numéro de colonne
counter : nb de colonne
les xxx correspondent au inconu, j avai d abord mis m et m1 mais cela ne fonctionne pas.
Je suis novice en VB

Code :

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

1
2
3
4
5
6
7
8
9
For m = 1 To counter
 
    valeurcellule = Left(ActiveWorkbook.Sheets(1).Cells(1, m).Text, 3)
    If valeurcellule = "DAT" Then
        Columns("XXX").Select
        Selection.TextToColumns Destination:=Range("XXX"),  DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 4)
    End If 
Next m

Mon action a pour but de de convertir la cellule en une vrai date, qui sera reconnu comme tel lors de mon importation access ( sans cette action la colonne est reconnu en tant que texte alors que elle est au format date jj/mm/aaaa, et la seule manipulation qui fontionne pour qu elle soit effectivement reconnue en tant que date sous access c est de convertir la colonne à l aide de l assistant Donée/Convertir), je doit repeter cette opération sur 68 colonne c est pour cela que une macro me serait vraiment utile.

Merci d avance pour toute aide

Yolande

[Vesta]

Essaie :

Code :

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

1
2
3
4
5
6
7
8
9
For m = 1 To counter
 
    valeurcellule = Left(ActiveWorkbook.Sheets(1).Cells(1, m).Text, 3)
    If valeurcellule = "DAT" Then
        Columns(m).Select
        Selection.TextToColumns Destination:=Range(m & "1"),  DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 4)
    End If 
Next m

[Yolande]

Cela ce fonctionne pas, il me dit : "La méthode 'range' de l'objet'_global a échoué .....
Je suis donc toujours à la recherche d'un sauveur .. lol

[random]

Code :

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

1
2
for colo=1 to nombredecolonnes concernées
Columns(asc(colo+64) & ":" & asc(colo+64).Select

[Vesta]

Désolé j'ai fais une ENORME boulette lol
Range (31) c'est dur a trouver lol

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub mm()
For m = 1 To Counter
 
    valeurcellule = Left(ActiveWorkbook.Sheets(1).Cells(1, m).Text, 3)
    If valeurcellule = "DAT" Then
        Columns(m).Select
        Selection.TextToColumns Destination:=Cells(1, m), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 4)
    End If
Next m
 
End Sub