[VBA] excel _Formulation d'une action dans une boucle avec variable_Besoin d'aide

Version imprimable

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:

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:

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

Essaie :

Code:

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

15/06/2006, 07h37
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

Code:

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

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

Code:

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