XL 2016 Convertir en vba

Usine à gaz · 22 Janvier 2019

Bonjour à toutes et à tous,

J'ai un nouveau souci que je ne parviens pas à résoudre et, bien évidemment, je me tourne vers vous

J'ai tous les jours besoin d'utiliser la conversion.
Globalement, pas de souci car j'écris le code à l'aide d'excel.
voilà ce que ça donne :

Code:

Sub Converti()
    Selection.TextToColumns Destination:=Range("N1197"), DataType:=xlDelimited _
        , TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), TrailingMinusNumbers:=True
End Sub

Mon souci est sur la sélection des cellules à convertir
Les éléments proviennent d'un copier/coller et c'est donc la sélection qu'il faut convertir
c'est sur cette ligne : Selection.TextToColumns Destination:=Range("N1197"), DataType:=xlDelimited _

le Range("N1197") me pose problème car je ne sais pas écrire que c'est la Sélection et non "N1197"

Auriez-vous la solution ?
Je joins un fichier test.
Avec mes remerciements,
Je vous souhaite à toutes et à tous une bonne fin de journée,
amicalement,
arthour973

vgendron · 22 Janvier 2019

bonjour

euh.. comme ceci?

VB:

Sub Converti()
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited _
        , TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), TrailingMinusNumbers:=True
End Sub

Usine à gaz · 22 Janvier 2019

Bonjour Vgendron,

Merci pour ce code
ça fonctionne super bien.
amicalement,
arthour973

XL 2016 Convertir en vba

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires