Macro convertir données de la colonne seléctionnée

[seteak]

Bonjour à tous,

J'aurais une question VBA. J'aimerais créer une macro me permettant de convertir la colonne que j'ai séletionnée. Voici ce que j'ai :

Sub Macro8()
'
' Macro8 Macro

selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

End Sub

Cependant, l'utilisateur pourra selectionner n'importe qu'elle colonne et appliquer la macro...

Merci d'avance!

 

[Robert]

Re : Macro convertir données de la colonne seléctionnée

Bonjour Seteak, bonjour le forum,

Si je crois avoir compris, dans le code, remplace Selection par Columns(x) ou x équivaut au numéro de ta colonne (1=A, 2=B, etc.)...

 

[JNP]

Re : Macro convertir données de la colonne seléctionnée

Bonjour Seteak 🙂,
Pas sûr d'avoir compris 🙄...

Destination:=Cells(1, Selection.Column + 1)

peut-être 😛...
Bonne suite 😎
Ajout : Salut Robert, comme quoi la question est vachement claire 🙄...

 

[seteak]

Re : Macro convertir données de la colonne seléctionnée

Rebonjour et merci pour vos réponses, je n'ai effectivement pas été très clair...désolé.

Lorsque vous selectionner une colonne dans excel 2010 vous pouvez convertir les données en nombre, en texte etc...grace a l'onglet donnée==>convertir. J'aimerais pouvoir éviter de passer par la barre d'outil en créant un bouton qui me permettrait directement de convertir les données de la colonne selectionnée.

J'espere avoir été plus clair!

bonne soirée

 

[JNP]

Re : Macro convertir données de la colonne seléctionnée

Re 🙂,

J'espere avoir été plus clair!

Euh, juste un peu 🙄...
Donc par rapport à ton code de départ, ce que tu veux, c'est que la conversion s'effectue dans la même colonne, c'est ça 😛 ?
Si c'est le cas, mon code était presque bon, il suffit d'ôter le "-1"

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

Bonne suite 😎