XL 2013 EClater une cellule en plusieurs lignes sur plusieurs colonnes

[al.usa3193@hotmail.com]

Bonjour à tous,

Je ne suis pas experte dans tout ce qui macro et c'est un peu du charabia pour moi 🙂 🙂
Je souhaiterais eclater les données d'une cellule sur plusieurs lignes svp, je vous joins mon fichier!!!

Merci de votre aide ....🙂

 

[Staple1600]

Bonjour le fil, le forum, job75

Ce n'est pas mon convertisseur mais celui de Microsoft 😉

Celui que tous les possesseurs d'Excel devaient installer à la sortie d'Excel 2OO7.

Je crois que depuis 201O le bug persiste et signe car si tu réenregistre ton*.xls (qui effectivement me permet de lancer la macro associée au CommandButtopn) en *.xlsm que je retélécharge puis le convertisse de nouveau, le problème resurgira.

Enfin tout ceci est moins perturbant que l'absence de retour de la demanderesse depuis le message#5 qui elle n'est pas sous 2003.

 

[job75]

Bonjour le fil, le forum,

Bien sûr on peut aussi ajouter des renvois à la ligne (vbLf) où l'on veut dans le texte en C2.

Par exemple ici après les nombres suivis d'un espace, c'est très simple :

Private Sub CommandButton1_Click()
Dim c As Range, s, t$, i%
Application.ScreenUpdating = False
Rows("3:" & Rows.Count).Delete 'RAZ
Rows("3:" & Rows.Count).WrapText = False 'pas de renvoi à la ligne
For Each c In [A2:B2,D2:G2] 'plage à adapter
  s = Split(Replace(Replace(c, vbLf, " "), " %", "%"))
  If c <> "" Then c(2).Resize(UBound(s) + 1) = Application.Transpose(s)
Next c
Set c = [C2] 'cellule à adapter
If c <> "" Then
  t = c
  For i = 0 To 9
    t = Replace(t, i & " ", i & vbLf) 'renvoi à la ligne à la place de l'espace
  Next
  c = t 'nouveau texte en C2
  s = Split(t, vbLf)
  c(2).Resize(UBound(s) + 1) = Application.Transpose(s)
End If
Columns("C").AutoFit 'ajustement largeur
Rows(2).AutoFit 'ajustement hauteur
End Sub

Fichiers (3 bis).

Bon week-end.

 

[job75]

Bonjour le forum,

En introduisant des vbCrLf on peut revenir ensuite à l'état initial, fichiers (3 ter).

Bon dimanche.

 

[Staple1600]

Bonjour le fil, le forum, job75

Futé ce coup-là 😉
ThisWorkbook.Names.Add "LL", Columns("C").ColumnWidth

Bravo, l'artiste !