J'utilise un tableau annuel de suivi avec des colonnes mensuelles,
janvier, février, mars... que je remplis respectivement chaque mois.
J'aimerai que la zone d'impression de mon tableau ne presente que les
colonnes comportant au moins une donnee ( par exemple
janvier-fevrier-mars en ...mars;-). Je suppose que je dois faire ca
avec Decaler dans insertion/nom/definir mais je ne sais pas comment
dire ou le decalage doit s'arreter (derniere colonne comportant au
moins une valeur - hors etiquette et total - disons dans les lignes 2 à
20).
Merci a tous pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?ewhFqpkWGO
Sub Imprime() DerCol = [A2:m10].Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlValues).Column ActiveSheet.PageSetup.PrintArea = [A1:A10].Resize(, DerCol).Address ActiveSheet.PrintPreview End sub
Janvier Février Mars Avril Produit1 100 100 Produit2 100 100 Produit3 100 100 Produit4 100 100 Produit5 100 100 Produit6 100 Produit7 100 Produit8 100 Total 600 700
Cordialement JB
Bonjour,
http://cjoint.com/?ewhFqpkWGO
Sub Imprime()
DerCol = [A2:m10].Find("*", SearchOrder:=xlByColumns,
SearchDirection:=xlPrevious, LookIn:=xlValues).Column
ActiveSheet.PageSetup.PrintArea = [A1:A10].Resize(, DerCol).Address
ActiveSheet.PrintPreview
End sub
Janvier Février Mars Avril
Produit1 100 100
Produit2 100 100
Produit3 100 100
Produit4 100 100
Produit5 100 100
Produit6 100
Produit7 100
Produit8 100
Total 600 700
Sub Imprime() DerCol = [A2:m10].Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlValues).Column ActiveSheet.PageSetup.PrintArea = [A1:A10].Resize(, DerCol).Address ActiveSheet.PrintPreview End sub
Janvier Février Mars Avril Produit1 100 100 Produit2 100 100 Produit3 100 100 Produit4 100 100 Produit5 100 100 Produit6 100 Produit7 100 Produit8 100 Total 600 700
Cordialement JB
Pierre.M
Bonjour JB,
Merci JB, c'est exactement ce qu'il me fallait. Je pensais simplement que c'etait faisable juste en definissant le nom comme pour les tableaux "dynamiques". Est-ce-que je peux utiliser cette methode pour consolider des tableaux "identiques" par TCD sans que ce dernier n'affiche les mois non encore saisis? C'est a dire que chaque fois que je saisie une nouvelle colonne dans un tableau, le rafraichissement du TCD rajoute automatiquement le mois? Sinon y aurait-il une autre methode?
Merci de ton aide.
Pierre
On 2006-04-22 07:34:17 +0200, "JB" said:
Bonjour,
http://cjoint.com/?ewhFqpkWGO
Sub Imprime() DerCol = [A2:m10].Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlValues).Column ActiveSheet.PageSetup.PrintArea = [A1:A10].Resize(, DerCol).Address ActiveSheet.PrintPreview End sub
Janvier Février Mars Avril Produit1 100 100 Produit2 100 100 Produit3 100 100 Produit4 100 100 Produit5 100 100 Produit6 100 Produit7 100 Produit8 100 Total 600 700
Cordialement JB
Bonjour JB,
Merci JB, c'est exactement ce qu'il me fallait. Je pensais simplement
que c'etait faisable juste en definissant le nom comme pour les
tableaux "dynamiques".
Est-ce-que je peux utiliser cette methode pour consolider des tableaux
"identiques" par TCD sans que ce dernier n'affiche les mois non encore
saisis? C'est a dire que chaque fois que je saisie une nouvelle colonne
dans un tableau, le rafraichissement du TCD rajoute automatiquement le
mois?
Sinon y aurait-il une autre methode?
Merci de ton aide.
Pierre
On 2006-04-22 07:34:17 +0200, "JB" <boisgontier@hotmail.com> said:
Bonjour,
http://cjoint.com/?ewhFqpkWGO
Sub Imprime()
DerCol = [A2:m10].Find("*", SearchOrder:=xlByColumns,
SearchDirection:=xlPrevious, LookIn:=xlValues).Column
ActiveSheet.PageSetup.PrintArea = [A1:A10].Resize(, DerCol).Address
ActiveSheet.PrintPreview
End sub
Janvier Février Mars Avril
Produit1 100 100
Produit2 100 100
Produit3 100 100
Produit4 100 100
Produit5 100 100
Produit6 100
Produit7 100
Produit8 100
Total 600 700
Merci JB, c'est exactement ce qu'il me fallait. Je pensais simplement que c'etait faisable juste en definissant le nom comme pour les tableaux "dynamiques". Est-ce-que je peux utiliser cette methode pour consolider des tableaux "identiques" par TCD sans que ce dernier n'affiche les mois non encore saisis? C'est a dire que chaque fois que je saisie une nouvelle colonne dans un tableau, le rafraichissement du TCD rajoute automatiquement le mois? Sinon y aurait-il une autre methode?
Merci de ton aide.
Pierre
On 2006-04-22 07:34:17 +0200, "JB" said:
Bonjour,
http://cjoint.com/?ewhFqpkWGO
Sub Imprime() DerCol = [A2:m10].Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlValues).Column ActiveSheet.PageSetup.PrintArea = [A1:A10].Resize(, DerCol).Address ActiveSheet.PrintPreview End sub
Janvier Février Mars Avril Produit1 100 100 Produit2 100 100 Produit3 100 100 Produit4 100 100 Produit5 100 100 Produit6 100 Produit7 100 Produit8 100 Total 600 700
Merci, j'avais fait le rapprochement, mais pour l'impression je conserve "le truc avec macro". En tous les cas les 2 solutions me seront utiles. Merci encore pour le service apres vente ;-)
Pierre.
On 2006-04-30 19:38:00 +0200, "JB" said:
Solution impression dynamique sans VBA:
http://cjoint.com/?eEtLHtM5oB
JB
Merci, j'avais fait le rapprochement, mais pour l'impression je
conserve "le truc avec macro". En tous les cas les 2 solutions me
seront utiles. Merci encore pour le service apres vente ;-)
Pierre.
On 2006-04-30 19:38:00 +0200, "JB" <boisgontier@hotmail.com> said:
Merci, j'avais fait le rapprochement, mais pour l'impression je conserve "le truc avec macro". En tous les cas les 2 solutions me seront utiles. Merci encore pour le service apres vente ;-)
