[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 :-)
A voir également:
- [VBA] Eclater une donnée
- Excel compter cellule couleur sans vba - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Find vba - Astuces et Solutions
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
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 586
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,";")
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,";")
