Problème VBA excel
Résolu/Fermé
josh64
Messages postés
56
Date d'inscription
jeudi 6 novembre 2008
Statut
Membre
Dernière intervention
18 janvier 2013
-
29 mars 2011 à 16:32
josh64 Messages postés 56 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 18 janvier 2013 - 30 mars 2011 à 09:17
josh64 Messages postés 56 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 18 janvier 2013 - 30 mars 2011 à 09:17
A voir également:
- Problème VBA excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
Modifié par michel_m le 29/03/2011 à 18:49
Modifié par michel_m le 29/03/2011 à 18:49
Bonjour
Pour le fun
Tu as 2 séparateurs le point et l'underscore
le problème est que tu veux num_annee dans une seule cellule avec le séparateur
d'où une espèce de cascade
la macro est paramétrée pour pouvoir utiliser une boucle
(il y a d'autres solutions)
suivant le cas pour convertir en plusieurs colonnes avec toujours le m^séparateur, tu peux utiliser l'enregistreur de macro avec données-convertir-délimité et l'aménager en supprimant les paramètres non utiles....
par exemple si tout les séparateurs étaient un "_" et ne seraient qu-à cà:
Michel
Pour le fun
Tu as 2 séparateurs le point et l'underscore
le problème est que tu veux num_annee dans une seule cellule avec le séparateur
d'où une espèce de cascade
la macro est paramétrée pour pouvoir utiliser une boucle
(il y a d'autres solutions)
Sub separer(source, cible) separe = Split(source, ".") source.ClearContents separe = Split(separe(0), "_") With cible .Value = separe(0) .Offset(0, 1) = separe(1) .Offset(0, 2) = separe(2) & "_" & separe(3) End With End Sub Sub test() For cptr=1 to 5 separer Range("A" & cptr), Range("B" & cptr) next End Sub
suivant le cas pour convertir en plusieurs colonnes avec toujours le m^séparateur, tu peux utiliser l'enregistreur de macro avec données-convertir-délimité et l'aménager en supprimant les paramètres non utiles....
par exemple si tout les séparateurs étaient un "_" et ne seraient qu-à cà:
Range("A1").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _ OtherChar:="_", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1))
Michel
josh64
Messages postés
56
Date d'inscription
jeudi 6 novembre 2008
Statut
Membre
Dernière intervention
18 janvier 2013
1
30 mars 2011 à 09:17
30 mars 2011 à 09:17
merci beaucoup Michel