Déconcatener

[popy]

Bonjour,

Je souhaiterai récupérer par macro certaines valeurs pour ensuite les réutiliser....
J'ai regarder sur le forum les décontatenation mais je trouve pas bohneur... 🙁

Dans mon tableau je colle mes données en colonne H et je souhaite récupérer en colonne A tous les caractères après Mesure_X= .

Mon nombre de valeur en H peut varier.....
PJ: Exemple de fichier

Help me please.... 😕

 

[Dranreb]

Re : Déconcatener

J'ai beaucoup ri. C'est nerveux, le temps de comprendre qu'il manquait juste un nom commun dans 2ième phrase. Si j'ai quand même compris, ".ClearContents" à remplacer par ".Value = Cells(i, 8).Value"
Pas compris le coup des colonnes décalées...

 

[WDAndCo]

Re : Déconcatener

Bonjour le Forum

Ce fil, m’intéresse. Car j'ai un peu compris, un peu seulement le fonctionnement.

Je voudrais à l’aide de cette Macro « deconcatener » le contenu de la colonne S
Le séparateur est le _
Le début est toujours _
Le maximum de colonnes sera de 17 (Attention dans l’exemple le nombre de _ n’est pas respecté !) Voila l'intéret de ce tableau.

Cela à partir de la ligne 2

Je joins un classeur pour être plus clair.

D’avance merci.
Dominique

 

[Dranreb]

Re : Déconcatener

Bonjour.
Ça, ça à l'air pas mal, sauf qu'une ligne mal rédigée passe mal.

Sub Dispatcher()
Dim L As Long
For L = 2 To Range("S65530").End(xlUp).Row
   Cells(L, 1).Resize(, 17).Value = Split(Replace(Mid$(Cells(L, "S").Value, 2), ".xls", "________________"), "_")
   Next L
End Sub

À +

 

[WDAndCo]

Re : Déconcatener

Bonjour le Forum

Merci beaucoup Dranred, pile poil !
Pardon pour le dérangement.

Dominique