Déconcatener

C

CHALET53

XLDnaute Barbatruc

• 18 Février 2011

• #2

Re : Déconcatener

bonjour,
Pour H2, par exemple :

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Février 2011

• #3

Re : Déconcatener

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

DL_13

XLDnaute Occasionnel

• 18 Février 2011

• #4

Re : Déconcatener

Bonjour

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

Code:

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

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

Bonne journée

 

Dernière édition: 18 Février 2011

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 18 Février 2011

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Février 2011

• #6

Re : Déconcatener

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

Code:

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

 

Vote positif 0 Vote négatif

P

popy

Guest

• 18 Février 2011

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Février 2011

• #8

Re : Déconcatener

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

 

Vote positif 0 Vote négatif

P

popy

Guest

• 18 Février 2011

• #9

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

 

Dernière modification par un modérateur: 18 Février 2011

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Février 2011

• #10

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

 

Dernière édition: 18 Février 2011

Vote positif 0 Vote négatif

P

popy

Guest

• 18 Février 2011

• #11

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

 

Pièces jointes

• test.xlsm

  42.8 KB · Affichages: 95
• test.xlsm

  42.8 KB · Affichages: 95
• test.xlsm

  42.8 KB · Affichages: 105

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Février 2011

• #12

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

Code:

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

 

Vote positif 0 Vote négatif

P

popy

Guest

• 21 Février 2011

• #13

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??

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Février 2011

• #14

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.

 

Dernière édition: 21 Février 2011

Vote positif 0 Vote négatif

P

popy

Guest

• 21 Février 2011

• #15

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

 

Vote positif 0 Vote négatif