impression conditionnelle feuille

[olivier]

Bonjour,

Ma feuille de calcul trie mes données selon certains critères.
Après chaque opération de tri la macro lance l'impression de la feuille de calcul mentionnant le résultat du tri.
Le problème est que pour certains critères, aucune liste n'apparait, et j'imprime donc une feuille vide.

Quelqu'un peut-il me donner une instruction VBA à ajouter à ma macro, et qui testerait d'abord une "cellule compteur de lignes" (qui existe déjà sur ma feuille), et qui en fonction de la valeur de cette cellule (0 ou >0) lancerait l'instruction d'impression de la feuille.

Merci d'avance à qui pourra me faire éviter de gaspiller du papier et de l'encre !

Olivier

 

[chris]

Bonjour
Le tri ne modifie pas le nombre de lignes.
Parles-tu d'un filtre ?
Si oui tu peux utiliser la fonction sous.total pour savoir combien de lignes filtrées subsistent.
Chris

 

[Bernard]

Bonsoir Olivier

Tu peux ajouter dans le code de la macro la ligne conditionnelle suivante, en considérant que la colonne A est une colonne obligatoire.


If Application.CountA(Range(Range("A1"), Range("A65000").End(xlUp)))>0 then


'Impression de.....

End if

 

[olivier]

Merci Bernard de ta réponse,

mais en fait je ne teste qu'une seule cellule, et je voudrais que ce soit la
valeur de cette cellule qui déclenche ou non l'impression de la feuille.

Admettons que cette cellule soit la cellule C3, j'aimerais avoir une
instruction VBA du style : si C3 > 0 alors imprimer la feuille de calcul
active, sinon (donc si C3 = 0) poursuivre l'exécution de ma macro.

Pour mieux te situer le contexte, je récupère des données sous forme de
tableau sur cette feuille, à partir de là ma macro filtre les données
répondant à un critère, la fameuse cellule C3 affiche le nombre de lignes
répondant à ce critère (qui est en fait un fournisseur donné), et je lance
l'impression de la feuille pour ce fournisseur. Puis je passe au
fournisseur suivant et ainsi de suite.

Mon but est de ne pas lancer l'impression quand le nombre de lignes pour un
fournisseur est nul.

Merci d'avance.

Olivier

 

[olivier]

Merci Chris de ta réponse,

En fait ma macro filtre successivement ma liste de données et je souhaite ajouter du code VBA qui teste la valeur d'une cellule et sui en fonction de la valeur de celle ci (0, ou >0) envoie la fonction d'impression ou continue l'exécution de ma macro existante.

Merci d'avance.

Olivier

 

[chris]

Bonjour
Tu donnes la réponse dans la question !!
Imbriques ta commande d'impression entre
If range ("C3").value > 0 then
.......print
Endif
ligne ssuivantes

Chris

 

[olivier]

Chris merci !

A présent ça fonctionne.

Olivier