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
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
A voir également:
- Macros exel
- Exel 2013 - Télécharger - Tableur
- Formule exel - Guide
- Macros word - Guide
- Moyenne exel - Guide
- Liste deroulante exel - Guide
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
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
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
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
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
merci de tt facon
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
2 mars 2009 à 12:42
Ok
voici un fonction personnalisée : à placer dans un module (selon la version)
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)
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