Eclatement cellule

[BRUNO62]

Bonsoir,
J'ai besoin d'aide.
A partir d'une macro que j'ai récupéré sur le site.

Je souhaite à partir d'une cellule A récupéré les données et les éclater dans B,C et D.
Merci.
A+

 

[Victor21]

Re : Eclatement cellule

Bonsoir, BRUNO62.

Essayez :

sub kaki()
For i = 2 To Range("A65000").End(xlUp).Row
    Cells(i, 1).TextToColumns Destination:=Cells(i, 2), DataType:=xlDelimited, OtherChar:= _
        " ", FieldInfo:=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 9), _
        Array(6, 9), Array(7, 9))
    Next
End Sub

L'enregistreur de macros est notre ami 😉

 

[DoubleZero]

Re : Eclatement cellule

Bonjour, BRUNO62, Victor21 🙂, le Forum,

Une autre suggestion :

Option Explicit
Sub Extraire()
    Application.ScreenUpdating = 0
    Range("b2:b" & Range("a65536").End(xlUp).Row).FormulaR1C1 = "=LEFT(RC[-1],10)*1"
    Range("b2:b" & Range("a65536").End(xlUp).Row).NumberFormat = "m/d/yyyy"
    Range("c2:c" & Range("a65536").End(xlUp).Row).FormulaR1C1 = "=MID(RC[-2],12,2)"
    Range("d2:d" & Range("a65536").End(xlUp).Row).FormulaR1C1 = "=MID(RC[-3],15,2)"
    With Columns("B:D").SpecialCells(xlCellTypeFormulas, 23)
        .Value = .Value
    End With
    Application.ScreenUpdating = -1
End Sub

A bientôt 🙂

 

[Staple1600]

Re : Eclatement cellule

Bonjour à tous

Pour le plaisir de croiser 00 et Victor21, j'ajoute les endives
(même si c'est spécieux le dimanche matin en lieu et place des croissants)

Pour finir, si j'étais moi, pour cette extraction je ferai comme Victor21, la macro en moins
Car sinon à quoi il sert le menu Données/Convertir !
Il marche très bien sans macros à la mimine 😉

Bon dimanche à tous

Sub ExtraireAvecDesEndives()
Dim dl&
Application.ScreenUpdating = 0
dl = Cells(Rows.Count, 1).End(xlUp).Row - 1
With Range("B2").Resize(dl)
    .FormulaR1C1 = "=LEFT(RC[-1],10)*1"
    .NumberFormat = "m/d/yyyy"
    .Offset(, 1).FormulaR1C1 = "=MID(RC[-2],12,2)"
    .Offset(, 2).FormulaR1C1 = "=MID(RC[-3],15,2)"
    With .Resize(, 3).SpecialCells(-4123, 23)
       .Value = .Value
    End With
End With
 Application.ScreenUpdating = -1
End Sub

 

[DoubleZero]

Re : Eclatement cellule

Re-bonjour, bonjour, Staple1600 🙂

... j'ajoute les endives...

Pour qui n'aime pas les endives attaquées par les limaces 😡 :

Option Explicit
Sub Extraire_avec_des_endives_sans_trou_because_limaces()
    Application.ScreenUpdating = 0
    With Range("b2:b" & Range("a65536").End(xlUp).Row)
        .FormulaR1C1 = "=IF(RC[-1]="""","""",LEFT(RC[-1],10)*1)"
        .Value = .Value
        .NumberFormat = "m/d/yyyy"
        .Offset(, 1).FormulaR1C1 = "=IF(RC[-2]="""","""",MID(RC[-2],12,2))"
        .Offset(, 2).FormulaR1C1 = "=IF(RC[-3]="""","""",MID(RC[-3],15,2))"
    End With
    With Columns("B:D").SpecialCells(xlCellTypeFormulas, 23): .Value = .Value: End With
        Application.ScreenUpdating = -1
End Sub

A bientôt 😀😀

 

[Staple1600]

Re : Eclatement cellule

Re

00: (😉)
Excel 2007, tu as.
Alors, il pourrait te manquer des lignes avec cette vielle habitude, survivance des années Excel 2003 et inférieur 😉

With Range("b2:b" & Range("a65536").End(xlUp).Row)

Avec le

dl = Cells(Rows.Count, 1).End(xlUp).Row - 1

(Les lignes ne viendront pas à manquer 😉)

PS: Les limaces c'est plein de protéines
(n'oublie pas, que dans moins de 50 ans, nous devrons tous être entomophages, alors autant commencer par les limaces 😉 )

 

[mapomme]

Re : Eclatement cellule

Bonjour DoubleZero, Staple1600, à tous, 🙂

Bon! l'une c'est les limaces, l'autre les insectes et tous les deux les endives. C'est manifestement une coalition pour nous gâcher le goût des croissants au beurre de ce petit matin ensoleillé de dimanche.

Bon dimanche à tous !

PS: et celui qui me verra déjeuner d'une tartine à la confiture de doryphores n'est pas encore né!

 

[Staple1600]

Re : Eclatement cellule

Re

mapomme

et celui qui me verra déjeuner d'une tartine à la confiture de doryphores n'est pas encore né!

son cousin lui est déjà né 😉
et il faudra bien trouver des protéines...

PS: Dans 50 ans, que sera devenu Excel ?

En attendant à défaut de ses cellules, [FONT=Verdana, Arial, Tahoma, Calibri, Geneva, sans-serif]BRUNO62 a du s’éclater grave, car il n'est ici réapparu 😉
[/FONT]Si tu nous entends, fais nous savoir si tu as opté pour la macro ou pour Données/Convertir (qui devrait être, à mon sens, le choix premier dans ce cas de figure)

 

[BRUNO62]

Re : Eclatement cellule

Bonjour Victor21, DoubleZero,Staple1600,Mapomme

Merci, à tous.
Désolé du retard, j'ai eu quelques soucis..........
Encore, merci et bon dimanche.

 

[BRUNO62]

Re : Eclatement cellule

Re, bonjour à tous

Grand merci à DoubleZero,Staple1600, c'est OK.
Bon dimanche.

 

[DoubleZero]

Re : Eclatement cellule

Re-bonjour, bonjour, mapomme 🙂,

... celui qui me verra déjeuner d'une tartine à la confiture de doryphores n'est pas encore né!
Regarde la pièce jointe 299393

J'applaudis de mes quatre sabots !

Mieux vaut manger des fleurs... comme celle-ci, non ?

​

A bientôt 😀😀