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 :
J'aimerai pouvoir répéter cette action dans une boucle ou la colonne est une variable
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)
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
Partager