Convertir le texte en colonnes dans Excel à l'aide de VBA

Je suis en train de convertir le texte en colonnes à l'aide d'une macro mais je ne suis pas capable de le faire, j'ai essayé d'enregistrer une macro pour atteindre cet objectif, cependant, j'ai quelques questions, puisque le texte des colonnes en fonction VBA s'attend à une sélection, est-il une manière que je peux dinamically choisi disons gamme A7:A50000? ou encore mieux A7:lastnonempty cellule?

Merci,

Pour info, le délimiteur n'est pas important car j'ai besoin de le faire pour convertir un texte en formule

Voici mon code

Range("O6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("O6"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True

Qu'avez-vous essayé? Si vous affichez le code que vous avez utilisé, vous devez immédiatement voir comment faire cela (à moins que j'ai pas du tout compris ta question).
J'ai essayé, mais cela ne fonctionne que si je n'ai qu'une chose sélectionné, je veux faire de la sélection dynamique (A7:A50000? ou encore mieux A7:lastnonempty cellule?)

InformationsquelleAutor user1112251 | 2012-09-14

11

Essayer cette
```
Sub Txt2Col()
    Dim rng As Range

    Set rng = [C7]
    Set rng = Range(rng, Cells(Rows.Count, rng.Column).End(xlUp))

    rng.TextToColumns Destination:=rng, DataType:=xlDelimited, ' rest of your settings
```
Mise à jour: l'événement clic du bouton d'agir sur une autre feuille
```
Private Sub CommandButton1_Click()
    Dim rng As Range
    Dim sh As Worksheet

    Set sh = Worksheets("Sheet2")
    With sh
        Set rng = .[C7]
        Set rng = .Range(rng, .Cells(.Rows.Count, rng.Column).End(xlUp))

        rng.TextToColumns Destination:=rng, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote,  _
        ConsecutiveDelimiter:=False, _
        Tab:=False, _
        Semicolon:=False, _
        Comma:=True, 
        Space:=False, 
        Other:=False, _
        FieldInfo:=Array(Array(1, xlGeneralFormat), Array(2, xlGeneralFormat), Array(3, xlGeneralFormat)), _
        TrailingMinusNumbers:=True
    End With
End Sub
```
Note le .s '(par exemple .Range), ils se réfèrent à la With objet statement
- Bonjour CHris, j'ai essayé votre solution mais j'ai eu ce message d'erreur "Microsoft Excel ne peut convertir une colonne à la fois ... ". Des idées?
- Mis à jour pour tenir compte de la possibilité de la gamme n'est pas la colonne A
- Qui a travaillé comme un charme, je viens de rajouter la Feuille de calcul("Feuille") pas de la plage :), Merci Chris
- Un plus de questions, si je devais le faire pour les 2 colonnes, disons que la colonne A et B, pourrais-je le faire dans un cycle ou je doit exécuter cette procédure 2 fois?
- cela dépendra de vos besoins, que ce soit pourrait fonctionner...
- J'ai essayé d'ajouter un autre bloc de code, mais maintenant avec rng2 = [D], et il n'est pas en mesure de le faire :(, il ne me laissera pas en compte l'ensemble de la nouvelle colonne
- Essayez Set rng2 = [D:D]
- Il semble que, lorsque j'essaie de assing la nouvelle plage de cellules et de la dernière colonne, il se bloque, Set rngCRM = [O6] Set rngCRM = Sheets("Sheet2").Range(rngCRM, Cells(Rows.Count, rngCRM.Column).End(xlUp)) rngCRM.TextToColumns Destination:=rngCRM, DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True Problème vient exactement sur la partie où nous obtenons la dernière colonne
- Set rngCRM = [O6] jeux de rngCRM à O6 sur la feuille active. Utilisation Set rngCRM = Sheets("Sheet2").[O6] au lieu
- (stackoverflow.com/a/10717999/445425) peut aider à comprendre les références de plage
- Il a obtenu, plus qu'une chose et je vais vous laisser seul, ce n'est que de travailler quand je suis dans la feuil2, (mais le buttong est sur la feuille "sheet1"), y a moyen de le faire fonctionner si je clique sur le buttong sur la feuille "Sheet1"?
- voir mise à jour .....
- Merci beaucoup Chris 🙂
InformationsquelleAutor chris neilsen

Si quelqu'un est confronté à problème à l'aide de texttocolumns fonction dans l'UFT. Essayez d'utiliser en dessous de la fonction.

myxl.Workbooks.Open myexcel.xls
myxl.Application.Visible = false `enter code here`
set mysheet = myxl.ActiveWorkbook.Worksheets(1)
Set objRange = myxl.Range("A1").EntireColumn
Set objRange2 = mysheet.Range("A1")
objRange.TextToColumns objRange2,1,1, , , , true

Nous voici à l'aide de coma(,) comme séparateur.

InformationsquelleAutor Bhanupratap Tomar

Vous devez vous connecter pour publier un commentaire.