XL 2013 RESOLU Récupérer les données sur une feuille de calcul à l'identique de la fenêtre d'exécution

[dss]

Bonjour,

J'ai une chaine que je souhaite scinder en plusieurs lignes. Le résultat est correct dans la fenêtre d'exécution mais je ne parviens pas à inscrire l'ensemble des lignes sur une feuille de calcul : seule la dernière ligne apparaît.

Je vous joins le fichier avec le code.

Merci de votre aide

Cordialement

 

[Jacky67]

Bonjour,

J'ai une chaine que je souhaite scinder en plusieurs lignes. Le résultat est correct dans la fenêtre d'exécution mais je ne parviens pas à inscrire l'ensemble des lignes sur une feuille de calcul : seule la dernière ligne apparaît.

Je vous joins le fichier avec le code.

Merci de votre aide

Cordialement

Bonjour,
Essaye comme en Pj

 

[mapomme]

Bonjour dss, jacky67 ,

ou bien avec la macro :

Sub Extract_Mots()
Dim tableau
   Application.ScreenUpdating = False
   tableau = Split(Sheets("Feuil1").Range("A1"), "@")
   With Sheets("Feuil2").Range("A1").Resize(UBound(tableau) + 1)
      .EntireColumn.Clear
      .NumberFormat = "@"
      .Value = Application.Transpose(tableau)
   End With
End Sub

 

[dss]

Bonjour dss, jacky67 ,

ou bien avec la macro :

Sub Extract_Mots()
Dim tableau
   Application.ScreenUpdating = False
   tableau = Split(Sheets("Feuil1").Range("A1"), "@")
   With Sheets("Feuil2").Range("A1").Resize(UBound(tableau) + 1)
      .EntireColumn.Clear
      .NumberFormat = "@"
      .Value = Application.Transpose(tableau)
   End With
End Sub

Bonjour,
Avec pas mal de retard, merci de votre aide.
J'avais finalement réussi à trouver la solution par moi-même peu de temps après l'envoi de mon message.
Bonne journée