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 !