[VBA] Eclater une donnée
Jet
-
onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention -
onesdf Messages postés 375 Date d'inscription Statut Membre Dernière intervention -
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 :-)
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 :-)
Configuration: Windows XP Mozilla
2 réponses
-
Avec les données en A1 :
Sub EclateMoi() Tableau = Split(Range("A1"), ";") Chiffres = Tableau(0) IP = Tableau(1) LaDate = Tableau(2) End Sub -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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,";")
