Séparer les données d'une cellule
Bonjour,
Je travaille actuellement sur un fichier dans lequel j'ai une colonne où les cellules contiennent plusieurs données (n codes référence) séparées par un point-virgule.
Je souhaite par une macro séparé ces codes références, créer une nouvelle ligne pour chacun des codes référence et recopier les données de la ligne d'origine.
Seulement je ne vois pas comment m'y prendre, sachant que les cellules de cette colonne peuvent avoir n codes de références.
Je joins un fichier afin que cela soit plus claire.
Je sollicite votre aide, en vous remerciant d'avoir pris le temps de me lire.
Bonsoir
Pour séparer tes références, utilise SPLIT :
tablo = Split(Cells(3, 4), ";")
MsgBox tablo(0)
MsgBox tablo(1)Tu fais cela pour toutes tes lignes
les msgbox pour que tu voies le résultat
A+
Bonsoir,
Merci M12 pour ton test, c'est parfait !
Encore merci et bonne soirée
Bonjour
Voila une macro test
a toi de la modifier
Sub Test()
For L = 3 To 11
Range("F" & L).Value = Split(Range("D" & L).Value, ";")(0)
Next
End SubA+
Maurice