Separations en plusieurs ligne

  • Initiateur de la discussion Initiateur de la discussion anna
  • 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 !

A

anna

Guest
Bonjour le Forum
j ai aujourd hui une nouvelle enigme:
alors voila j ai deux colonne 'A'= reference et 'B' ou ils ya indique plusieur titre de fichiers separer pas une virgule pour la meme reference A.
je souhaiterai separer les donnees de chaque colonne B de maniere a avoir autant de ligne pour une reference que de titree fichier dans B
un exemple est joint pour etres plus claire.
j'avoue que la ca commence a depacer mes nouvelle connaisance VBA
NB:c une macro que je veut faire.
Merci bcq d'avance.
Anna [file name=Separation_lignes.zip size=2099]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Separation_lignes.zip[/file]
 

Pièces jointes

Bonjour anna, re le forum

🙂

une proposition en pièce jointe :

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim tablo2 As Variant
Dim i, j, n As Byte

tablo = Range('a2:b4')

For i = 1 To UBound(tablo)
    tablo2 = Split(tablo(i, 2), ',')
   
With Sheets('feuil2')
       
For j = 0 To UBound(tablo2)
            n = n + 1
            .Cells(n, 1) = tablo(i, 1)
            .Cells(n, 2) = tablo2(j)
       
Next j
   
End With
Next i
End Sub

Je renvoi les données vers la feuille 2, à toi d'adapter à ton cas

Salut

[file name=Separation.zip size=8365]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Separation.zip[/file]
 

Pièces jointes

Re
apres l'avoir bien adapter ca marche impecablement
vraiment un grannnnnnnnd merci a tout ceux qui font de leur mieux pour nous aider sur ce Forum vous etes les mailleur (speciale dedicace à Hervé 😉
Anna
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
707
Réponses
3
Affichages
1 K
Retour