Macros exel

Fermé
lgamine Messages postés 15 Date d'inscription lundi 23 février 2009 Statut Membre Dernière intervention 2 mars 2009 - 2 mars 2009 à 12:23
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 - 2 mars 2009 à 12:42
slt
slvp je veut creer un macros en exel qui me permet de separer des donne dans un seul colonne dans deux nouveau colonne;les donne sont separer par des /
A voir également:

3 réponses

wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 244
2 mars 2009 à 12:29
Bonjour

il n'y a pas besoin de macro, une formule (même si elle est compliquée) suffit très bien
Voici un classeur avec un formule en colonne et une formule en ligne
Elle est entièrement expliquée
Télécharger le classeur
0
lgamine Messages postés 15 Date d'inscription lundi 23 février 2009 Statut Membre Dernière intervention 2 mars 2009
2 mars 2009 à 12:34
mais le pb que in y entrain de creer un macros globale on on a le pb dans ce truc la .alors je suis besion d'un macros
merci de tt facon
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 244
2 mars 2009 à 12:42
Ok

voici un fonction personnalisée : à placer dans un module (selon la version)
Function Decoupe(Byval Macell as range) as variant
       Dim tablo as variant
       tablo = split(Macell.value,"/")
       Decoupe = tablo
End Function

Utilisation : en b1 : =Index($A1;colonne()-1)
puis tirer vers la droite et enfin vers le bas

une Macro à lancer : à placer dans un module (selon la version)
sub Decoupe()
      dim i as long, j as integer
      dim tablo as variant
      for i = 1 to range("A65536").end(xlup).row
           tablo = split(Range("A" & i),"/")
           for j = 0 to ubound(tablo)-1
                range("B" & i).offset(0,j) = tablo(j)
           next j
      next i
end sub

0