[VBA] Eclater une donnée

Fermé
Jet - 5 juin 2008 à 12:00
onesdf Messages postés 375 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 17 octobre 2008 - 10 juin 2008 à 16:50
Bonjour,

je réalise actuellement une macro sous VBA (ça fait 2 ans que j'y ai pas touché, je vous raconte pas la galére :D ).
J'aurais besoin d'éclater une donnée de type "chiffre;Ip;date" de 1 à 3 colonnes.
La date fait toujours le même nombre de caractére mais pas le chiffre ni l'IP.

Si quelqu'un a une idée du comment faire et avec quelles fonctions (sans obligatoirement me faire le code, mais la démarche) ?

Merci à vous :-)

2 réponses

onesdf Messages postés 375 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 17 octobre 2008 120
10 juin 2008 à 16:50
Avec les données en A1 :
Sub EclateMoi()
    Tableau = Split(Range("A1"), ";")
    Chiffres = Tableau(0)
    IP = Tableau(1)
    LaDate = Tableau(2)
End Sub
1
yg_be Messages postés 23338 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 novembre 2024 Ambassadeur 1 551
10 juin 2008 à 15:50
faire une boucle qui parcoure la colonne de départ
pour chaque valeur :
chiffre=left(valeur,instr(valeur,";")-1)
reste=right(valeur,len(valeur)-instr(valeur,";")
IP=left(reste,instr(reste,";")-1)
date=right(reste,len(reste)-instr(reste,";")
0