[VBA] Eclater une donnée

Jet -  
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 :-)

2 réponses

Réponse 1 / 2
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120
 
Avec les données en A1 : 
Sub EclateMoi()
    Tableau = Split(Range("A1"), ";")
    Chiffres = Tableau(0)
    IP = Tableau(1)
    LaDate = Tableau(2)
End Sub
1
Réponse 2 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
VBA Excel : sélection d'une plage variable
Pyanitsa -
Mima -

20 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses