VBA TABLEAU EXCEL
cs_ZANUS
Messages postés
126
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 février 2007
-
13 févr. 2006 à 08:48
benakim29555 Messages postés 1 Date d'inscription mardi 14 novembre 2006 Statut Membre Dernière intervention 15 novembre 2006 - 15 nov. 2006 à 08:17
benakim29555 Messages postés 1 Date d'inscription mardi 14 novembre 2006 Statut Membre Dernière intervention 15 novembre 2006 - 15 nov. 2006 à 08:17
4 réponses
domsig
Messages postés
125
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
11 mai 2010
13 févr. 2006 à 09:55
13 févr. 2006 à 09:55
bonjour
je propose un truc du style :
1°) trier les lignes sur la colonne F
2°) boucler du début à la fin en faisant un test sur la valeur de la ligne en cours, colonne F, filtrer sur cette valeur et imprimer
3°) passer à la ligne suivante : si c'est la même valeur, on passe à la ligne suivante, si c'est vide on arrête, si c'est une valeur différente on filtre dessus et on imprime.
voilà voilà....
bon courage
je propose un truc du style :
1°) trier les lignes sur la colonne F
2°) boucler du début à la fin en faisant un test sur la valeur de la ligne en cours, colonne F, filtrer sur cette valeur et imprimer
3°) passer à la ligne suivante : si c'est la même valeur, on passe à la ligne suivante, si c'est vide on arrête, si c'est une valeur différente on filtre dessus et on imprime.
voilà voilà....
bon courage
kalobit
Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
2
13 févr. 2006 à 09:58
13 févr. 2006 à 09:58
salut,
Je te propose de charger tous les critères possible dans un tableau
ensuite, tu lance ton impression en bouclant sur le tableau
exemple pour charger les critères :
dim tableau()
dim i as integer
dim j as integer
dim compteur as integer
Fin = range("f65536").end(xlup).row
for each cell in range("f2:f" & fin).cells ' pour chaque ligne de ton tableau
for j = 1 to ubound(tableau) 'On boucle dans le tableau de critère
if tableau(j) = cell.value then goto suite ' si on trouve l'occurence, ligne suivante
next ' sinon
compteur = compteur +1
redim preserve tableau(1 to compteur)
tableau(compteur) = cell.value 'on rajoute le critère dans le tableau
suite:
next
Voilà pour ces quelques lignes.
Le goto est pas super mais bon, ça marche.
Ensuite, il te reste plus qu'à lancer ta macro en bouclant sur tableau pour changer les critères.
@+++
Je te propose de charger tous les critères possible dans un tableau
ensuite, tu lance ton impression en bouclant sur le tableau
exemple pour charger les critères :
dim tableau()
dim i as integer
dim j as integer
dim compteur as integer
Fin = range("f65536").end(xlup).row
for each cell in range("f2:f" & fin).cells ' pour chaque ligne de ton tableau
for j = 1 to ubound(tableau) 'On boucle dans le tableau de critère
if tableau(j) = cell.value then goto suite ' si on trouve l'occurence, ligne suivante
next ' sinon
compteur = compteur +1
redim preserve tableau(1 to compteur)
tableau(compteur) = cell.value 'on rajoute le critère dans le tableau
suite:
next
Voilà pour ces quelques lignes.
Le goto est pas super mais bon, ça marche.
Ensuite, il te reste plus qu'à lancer ta macro en bouclant sur tableau pour changer les critères.
@+++
cs_ZANUS
Messages postés
126
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 février 2007
13 févr. 2006 à 12:34
13 févr. 2006 à 12:34
Re,
Merci, j'essaierai quand j'aurai un peu de temps.
Tchao,
Merci, j'essaierai quand j'aurai un peu de temps.
Tchao,
benakim29555
Messages postés
1
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
15 novembre 2006
15 nov. 2006 à 08:17
15 nov. 2006 à 08:17
je voudrais extraire les donnee` d`un tableaux en excel et envoyer des donnees sur le port RS 232 du pc ?
abdou
abdou