Variabilisation macro

[Pol]

Bonjour à tous,

J'ai une petite macro qui applique le format texte sur ma colonne M, je souhaiterais que la macro s'applique à n'importe quelle colonne sélectionnée.

Merci bcp.

Pol.



Sub FormatTexte()
'
' FormatTexte Macro
'

'
Columns("M:M").Select
Selection.TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
End Sub

 

[Pierrot93]

Re : Variabilisation macro

Bonjour,

essaye ceci :

Columns(ActiveCell.Column).TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 2), TrailingMinusNumbers:=True

bon après midi
@+

 

[Pol]

Re : Variabilisation macro

Pierrot,

Le changement de format s'applique mais le résultat s'affiche sur la colonne M alors que je souhaite qui écrase les données de ma colonne sélectionnée.

Merci pour ton aide.

 

[Pierrot93]

Re : Variabilisation macro

Re,

aarf, autant poyur moi :

Columns(ActiveCell.Column).TextToColumns Destination:=Cells(1, ActiveCell.Column), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 2), TrailingMinusNumbers:=True

 

[Pol]

Re : Variabilisation macro

Super!! merci.