1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
Sub Transfo()
'
' Touche de raccourci du clavier: Ctrl+Maj+I
Dim i As Integer
Dim derniereColonne As Integer
On Error GoTo ErrHandler
derniereColonne = ActiveSheet.Range("IV1").End(xlToLeft).Column
For i = 1 To derniereColonne Step 1 'de la 1ère colonne à la dernière colonne remplie
Columns(i).Select 'on sélectionne la colonne i
'on applique la fonction de conversion des données définie par l'enregistrement de la macro
Selection.TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
Next i
MsgBox ("La conversion des données s'est correctement effectuée")
ActiveSheet.Range("A1").Select
ErrHandler: 'gestion des erreurs
If Err.Number <> 0 Then
msg = "L'erreur #" & Str(Err.Number) & " a été générée par " & Err.Source & ". " & Chr(13) & Err.Description
MsgBox msg
End If
End Sub |
Partager