Séparer des valeurs numérique dans d'autres cellules

R@chid

XLDnaute Barbatruc

Supporter XLD

• 21 Février 2015

• #2

Re : Séparer des valeurs numérique dans d'autres cellules

Bonjour @ tous,
Voir PJ


@ + +

 

Pièces jointes

• olibelle0101.xlsm

  10.8 KB · Affichages: 44

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 21 Février 2015

• #3

Re : Séparer des valeurs numérique dans d'autres cellules

Merci,

J'ai un peu de mal a avoir votre résultat...
Mes valeurs contiennent une formule OU comment activer la macro ???
Je joint un fichier au cas ou .
Encore merci

 

Pièces jointes

• RecupOlibelle.xlsx

  29.3 KB · Affichages: 39

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 21 Février 2015

• #4

Re : Séparer des valeurs numérique dans d'autres cellules

Bonjour olibelle,0101, bonjour R@chid 🙂

Données convertir (séparateur : "-")
Copier la zone résultat, copier avec transposition.
Avec l'enregistreur de macro (après avoir supprimé les "select" inutiles) cela donne :

VB:

Sub Macro1()


   Range("C46").TextToColumns Destination:=Range("C46"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
    Range("C46:J46").Copy
    Range("B46").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 21 Février 2015

• #5

Re : Séparer des valeurs numérique dans d'autres cellules

AIE,

J'ai du mal pour mon fichier...
Je m'explique mal et j'ai plusieurs cellules à transformer.
Pour être plus clair, j'envoi le fichier original...
J'espere une aide précieuse ... Merci à tous

 

Pièces jointes

• RecupV2Olibelle.xlsx

  49.1 KB · Affichages: 43

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Février 2015

• #6

Re : Séparer des valeurs numérique dans d'autres cellules

Bonjour olibelle0101, R@chid, Patrick,

Code:

Sub Transposer()
[B46].Resize(UBound(Split([C46], "-")) + 1) = Application.Transpose(Split([C46], "-"))
End Sub

A+

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 21 Février 2015

• #7

Re : Séparer des valeurs numérique dans d'autres cellules

Oui, mais j'ai du mal expliquer... Voir dernier fichier.
Car j'ai plusieurs cellules à transformer...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Février 2015

• #8

Re : Séparer des valeurs numérique dans d'autres cellules

Re,

Pour le nouveau problème du post #5 :

Code:

Sub Transposer()
Dim i
For i = 1 To 66 Step 5
Cells(i, 2).Resize(5) = Application.Transpose(Split(Cells(i, 3), "-"))
Next
End Sub

A+

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 21 Février 2015

• #9

Re : Séparer des valeurs numérique dans d'autres cellules

Merci job75, mais ca ne marche pas...
Je n'arrive pas à faire la séparation, car il y a une formule.
A+

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 21 Février 2015

• #10

Re : Séparer des valeurs numérique dans d'autres cellules

Non c'est bon, je ne l'avais pas executé...
Merci à tous... Merci job75
A bientôt

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Février 2015

• #11

Re : Séparer des valeurs numérique dans d'autres cellules

Re,

La colonne C n'est pas nécessaire, on peut utiliser directement les données de la colonne P :

Code:

Sub Transposer()
Dim i, j, s, h
For i = 1 To 66 Step 5 'limites à adapter
  Cells(i, 2).Resize(5) = "" 'RAZ
  j = Application.Match(Cells(i, 1), [P:P], 0)
  If IsNumeric(j) Then
    s = Split(Cells(j + 1, "P"), "-")
    h = IIf(UBound(s) < 4, UBound(s) + 1, 5)
    If h Then Cells(i, 2).Resize(h) = Application.Transpose(s)
  End If
Next
End Sub

A+

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 21 Février 2015

• #12

Re : Séparer des valeurs numérique dans d'autres cellules

Encore merci Job75 😀
C'est vraiment génial...
A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Février 2015

• #13

Re : Séparer des valeurs numérique dans d'autres cellules

Bonjour olibelle0101, le fil,

Fichiers joints avec la fonction macro Excel 4.0 EVALUER utilisée par R@chid.

A+

 

Pièces jointes

• Olibelle fonction EVALUER(1).xlsm

  18.9 KB · Affichages: 30
• Olibelle fonction EVALUER(1).xls

  51 KB · Affichages: 42

Dernière édition: 22 Février 2015

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 5 Mars 2015

• #14

Re : Séparer des valeurs numérique dans d'autres cellules

Merci Job75.
Je reviens du ski et j'approuve la dernière solution.
A+

 

Vote positif 0 Vote négatif