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

  • Initiateur de la discussion Initiateur de la discussion dss
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dss

XLDnaute Occasionnel
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
 

Pièces jointes

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
 

Pièces jointes

Bonjour dss, jacky67 😉,

ou bien avec la macro :
VB:
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 dss, jacky67 😉,

ou bien avec la macro :
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour