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.... 😕

 

[CHALET53]

Re : Déconcatener

bonjour,
Pour H2, par exemple :

=DROITE(H2;(NBCAR(H2)-TROUVE("=";H2)))

 

[Dranreb]

Re : Déconcatener

Bonjour,

=SI(ESTERREUR(CHERCHE("Mesure";H1));"";STXT(H1;CHERCHE("=";H1)+1;255))

 

[DL_13]

Re : Déconcatener

Bonjour

Une autre formule en A3 et à incrémenter vers le bas

=STXT(H3;CHERCHE("=";H3;1)+1;40)

Edit: Désolé déjà donnée

Bonne journée

 

[CHALET53]

Re : Déconcatener

Re,

Popy semble vouloir une macro :

Sub deconcatener()
derligne = Range("H65530").End(xlUp).Row
For i = 2 To derligne
For j = 1 To Len(Cells(i, 8))
If Mid(Cells(i, 8), j, 1) = "=" Then nb = j: j = Len(Cells(i, 8))
Next j
'Stop
Cells(i, 1) = Right(Cells(i, 8), Len(Cells(i, 8)) - nb)
Next i
End Sub

 

[Dranreb]

Re : Déconcatener

Re, bon en VBA, soit.
Mais je l'aurais plutôt écrit dans ce genre:

Sub deconcatener()
derligne = Range("H65530").End(xlUp).Row
For i = 2 To derligne
V = Split(Cells(i, 8).Value, "=")
If V(0) Like "*Mesure*" Then Cells(i, 1).Value = V(1) Else Cells(i, 1).ClearContents
Next i
End Sub

 

[popy]

Re : Déconcatener

Grand merci à vous ca fonctionne très bien mais la macro agit aussi sur les ligne Import_Mesure_x= , ya t-il possibilité pour quelle n'agisse que sur les ligne Mesure_X= ???

Désolé je suis chiant....😛

 

[Dranreb]

Re : Déconcatener

Supprimez l'étoile devant "Mesure*" dans ma version.

 

[popy]

Re : Déconcatener

🙂 !!!

Dernière petite question...... Après je pars en week end...Lol

-Il faudrait que les valeurs ce colle les une à la suite des autres et pas une cellule sur deux.

-Et commencer le collage en A2

 

[Dranreb]

Re : Déconcatener

Comprend pas le premier problème.
pour le deuxième: Cells(i, 2) au lieu de Cells(i, 1)

Ah non, excuses j'avais cru lire colonne B au lieu de A
Là c'est voyons voir sans doute For I=2 to... au lieu de for i=1 to... je n'ai plus les codes sous les yeux en rédigeant ma modif

Bon. Mettez moi donc plutôt entre balises de code votre code actuel

 

[popy]

Re : Déconcatener

Je mets en PJ mon fichier en Rouge le début du collage, je me suis occupé du début du déconcatenage, et en jaune les lignes que je ne veux pas... j'en ai colorer que 4 mais il ne m'en faut aucune....

 

[Dranreb]

Re : Déconcatener

Ah mais vous n'aviez jamais dit que vous vouliez supprimer les lignes qui n'étaient pas de la form "Mesure*="
pour ce faire, au plus simple, rajoutez après la première boucle

For i = derligne To 9 Step -1
   If Cells(i, 1).Value = "" Then Rows(i).Delete
   Next i

Bon week end, je m'en vais aussi.
À bientôt

 

[popy]

Re : Déconcatener

Bonjour,

J'espère que vous avez passé un bon week end!!!

Ton code supprime les lignes qui ne servent pas si j'ai bien compris???

Est-ce qu'il existe un code pour avoir le même résultat sans que les lignes ne soit pas supprimées??

 

[Dranreb]

Re : Déconcatener

Boujour,
Eh Bien... ne pas exécuter ce bout de code qui les supprime.
Mais tu avais mis en jaune des lignes que te ne voulais pas.
Je ne comprend plus.

 

[popy]

Re : Déconcatener

oui c'est pas facile a expliquer.... je voudrai que les que je ne veux pas ne soit pas deconcatener.... Votre code fonctionne trés bien mais du coup il me décale mes autres colonnes.....