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
- Formule exel - Guide
- Microsoft a bloqué l'exécution des macros car la source de ce fichier n'est pas approuvée ✓ - Forum Excel
- Liste deroulante exel - Guide
- Exel 2013 - Télécharger - Tableur
- Macros word - 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
240
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
240
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