scinder des cellules automatiquement

ROGER2327

XLDnaute Barbatruc

• 5 Juillet 2010

• #2

Re : scinder des cellules automatiquement

bonjour grimat

Je ne sais pas faire ce que vous souhaitez par formule (et je ne dois pas être le seul, compte tenu du nombre de réponses que vous avez obtenu).
Voici une procédure qui pourrait être utile :

Code:

[B][COLOR="DarkSlateGray"]Sub toto()
Dim i&, j&, n&, tmp, oDat, sDat()
   With Sheets("Feuil1")
      oDat = .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown)).Value
   End With
   For i = 1 To UBound(oDat, 1)
      tmp = Split(vbLf & oDat(i, 1), vbLf)
      For j = 1 To UBound(tmp)
         n = n + 1
         ReDim Preserve sDat(1 To 1, 1 To n)
         sDat(1, n) = tmp(j)
      Next j
   Next i
   With Sheets("Feuil2")
      .Range(.Cells(1, 1), .Cells(UBound(sDat, 2), 1)) = WorksheetFunction.Transpose(sDat)
   End With
End Sub[/COLOR][/B]

Vos données étant dans la colonne A de la feuille Feuil1 (à partir de A1), la procédure renvoie le résultat dans la colonne A de la feuille Feuil2.​

ROGER2327
#3861

Samedi 21 Gidouille 137 (Saint Spéculum, confesseur, SQ)
17 Messidor An CCXVIII
2010-W27-1T21:50:08Z

 

Dernière édition: 6 Juillet 2010

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 6 Juillet 2010

• #3

Re : scinder des cellules automatiquement

Bonjour, salut Roger,

Obtenir strictement le résultat demandé par formule n'est pas possible.
En dissociant A1 en A1 et A2, la chaine de caractères se trouvant en A2 sera effacée, puisqu'il faut y saisir une formule.

Il ne reste donc que la macro, dont notre ami Roger t'a donné un exemple.

Par formule il y a bien moyen de dissocier les chaines de caractères.
En B1 : =SUBSTITUE(A1;CAR(10);" ")
formule à copier vers le bas
puis copier - collage spécial valeur de la colonne B sur elle-même
cette colonne étant sélectionnée, menu Données - Convertir - Délimité - cocher "espace" - terminer.
Les chaines de caractères se trouvent dissociées en B1:C1, B2: D2, ...

 

Vote positif 0 Vote négatif

G

grimat

XLDnaute Occasionnel

• 7 Juillet 2010

• #4

Re : scinder des cellules automatiquement

@Roger : par formule, je parlais d une formule excel bete et mechante (par exemple =SI....).

D apres ce que j ai pu comprendre, il est necessaire de passer en VBA, malheureusement je ne touche pas du tout de ce cote la... il n y a aucun autre moyen (meme avec excel 2007?)

merci d avance

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 7 Juillet 2010

• #5

Re : scinder des cellules automatiquement

Re...

grimat à dit:

@Roger : par formule, je parlais d une formule excel bete et mechante (par exemple =SI....).
(...)

Cliquez pour agrandir...

Je n'ai rien de tel en magasin. Désolé...​

ROGER2327
#3864

Lundi 23 Gidouille 137 (Saint Ombilic, gymnosophiste, SQ)
19 Messidor An CCXVIII
2010-W27-3T07:37:37Z

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 7 Juillet 2010

• #6

Re : scinder des cellules automatiquement

Re,

Je ne sais pas comment il faudrait te l'expliquer : par formule dans la même colonne il n'y a pas moyen.
Même avec une formule intelligente et gentille.

 

Vote positif 0 Vote négatif

G

grimat

XLDnaute Occasionnel

• 8 Juillet 2010

• #7

Re : scinder des cellules automatiquement

OK, merci pour vos retours et desole d avoir inciste

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 8 Juillet 2010

• #8

Re : scinder des cellules automatiquement

Re...

grimat à dit:

OK, merci pour vos retours et desole d avoir inciste

Cliquez pour agrandir...

Ne soyez pas désolé, tellement de choses sont possibles avec un tableur qu'on peut tout envisager.
Et c'est peut-être l'occasion de commencer à programmer Excel... les possibilités offertes sont énormes.​

ROGER2327
#3876

Mardi 24 Gidouille 137 (Saint Gris-gris, ventre, SQ)
20 Messidor An CCXVIII
2010-W27-4T11:58:37Z

 

Vote positif 0 Vote négatif