XL 2010 Conversion de texte mais avec des formules

A

Amilo

XLDnaute Accro

• 13 Octobre 2017

• #2

Bonsoir le forum, Fredd,

Si vous avez la version Excel 2010 Pro Plus, vous pouvez passer par le complément Power Query téléchargeable gratuitement sur le site de Microsoft.

Vous pourrez connecter votre tableau et extraire facilement en quelques étapes.
A voir si vous avez déjà la bonne version et si vous êtes éventuellement intéressés par cette solution sans formule à saisir et sans VBA.

Cordialement

 

Vote positif 0 Vote négatif

F

fredd

XLDnaute Occasionnel

• 13 Octobre 2017

• #3

Bonsoir, je suis en train de regarder ce qu'est ce Power Query et comme je bosse dans une grosse boite, je pense que j'ai une version Pro.
Merci

 

Vote positif 0 Vote négatif

F

fredd

XLDnaute Occasionnel

• 13 Octobre 2017

• #4

Amilo à dit:

Bonsoir le forum, Fredd,

Si vous avez la version Excel 2010 Pro Plus, vous pouvez passer par le complément Power Query téléchargeable gratuitement sur le site de Microsoft.

Cordialement

Cliquez pour agrandir...

Merci beaucoup. C'est juste énorme ce truc.
Effectivement, à la maison je peux installer et je verrai au travail pour la mise en oeuvre.
En quelques clique j'ai réussi à faire le découpage et la mise à jour ce fais par rafraichissement.
Ca laisse pas mal de possibilité cet outils.

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 13 Octobre 2017

• #5

Re, effectivement assez pratique pour l'actualisation des données par connexion,
Sinon, personnellement, j'ai installé Power BI Desktop,
Il regroupe un ensemble de compléments : Power Query, Power View, Power Map,
Il y a beaucoup à connaître notamment le langage M avec Power Query et la langage Dax pour Power Pivot etc ....à essayer ou à découvrir

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2017

• #6

Bonjour le fil, le forum

Données/Convertir peut pourtant faire l'affaire
(en biasant un peu avant)

VB:

Sub Convertir()
Dim c As Range
Set c = Selection.Item(1).Offset(, 1)
Selection.Replace What:=" - ", Replacement:="$", LookAt:=xlPart, SearchOrder:=xlByRows
Selection.TextToColumns _
    Destination:=c, _
    DataType:=xlDelimited, Other:=True, OtherChar:="$", _
    FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))
End Sub

Voir résultat ci-dessous (clique sur 'image pour l'afficher en taille réelle)

 

Dernière édition: 14 Octobre 2017

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2017

• #7

Bonjour à tous,

Juste pour le fun, une formule (certes un peu longue) mais analogue pour toutes les cellules. Elle fonctionne jusqu'à 100 termes (si plus de 100 termes, augmenter le 99 dans la formule par 999).

 

Pièces jointes

• fredd- Conversion de texte par formule -v1.xlsx

  11.5 KB · Affichages: 35

Dernière édition: 14 Octobre 2017

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 14 Octobre 2017

• #8

Bon_jour

Des formules ? Oui quand elles sont simples à écrire (par de formulistes) !

Avec une simple macro pour le Tableau nommé Tbo (même avec un nombre très élevé de colonnes) …

VB:

Private Sub CommandButton1_Click()
Dim c As Range, T, n As Byte
  [Tbo].Item(1, 2).Resize([Tbo].Rows.Count, [Tbo].Columns.Count) = ""  'fait le ménage
  For Each c In [Tbo[Texte]]                                                                             'boucle sur les textes
      T = Split(c, "-")                                                                                              'tableau des  mots (sans le -)
      For n = 0 To UBound(T): c(1, n + 2) = Trim(T(n)): Next                          'retour par colonne sans les espaces
  Next
End Sub

Nota : on peut aussi lancer la décomposition d'un nouveau texte saisi avec une

 

Pièces jointes

• Split (VBA).xlsm

  20.8 KB · Affichages: 36

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2017

• #9

Re, bonjour mapomme, Si...

@Si...
Vous avez un problème
Te / xte 1 - Te/xte 2 - Texte- 3 - 4emme
Moi pas

Voir ma jolie copie d'écran et ma macro de mon message précédent

PS:
[pj] Si... j'ai téléchargé et tester ton fichier avant de poster ce message qui n'a rien de frauduleux, nan mais!
[/pj]

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 14 Octobre 2017

• #10

Staple1600 à dit:

USER=162781]@Si...[/USER]
Vous avez un problème
Te / xte 1 - Te/xte 2 - Texte- 3 - 4emme
Moi pas
Voir ma jolie copie d'écran et ma macro de mon message précédent

Cliquez pour agrandir...

Ce n'est pas moi mais le Demandeur qui a un problème : mettre des – là où il ne faut pas c'est mettre les mains au mauvais endroit !

J'aurais mis Texte / 3 mais n'ayant pas plus de renseignements je me dégage de tout responsabilité !

 

Vote positif 0 Vote négatif

F

fredd

XLDnaute Occasionnel

• 14 Octobre 2017

• #11

Ouahouuu!
c'est cool, j'ai plein de matiere à regarder tester et comprendre.
Merci beaucoup.
Et oui les- sans espaces existe vraiments, moi je ne convertie que les données que l'on me donne.
Et là j'ai du tout venant.


Bon week end.

 

Vote positif 0 Vote négatif