Discussion :

[Viper7]

Bonjour,

J'utilise une macro pour ajuster automatiquement une zone d'impression qui change en fonction de la mise à jour d'un TCD.

Voici le code de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Range("z1").Value = "" Then
Range("z1").Value = ActiveCell.Row
Range("z2").Value = ActiveCell.Column
Else
Range("z3").Value = ActiveCell.Row
Range("z4").Value = ActiveCell.Column
Range("AA1").Value = "=ADDRESS(RC[-1],R[1]C[-1]) & "":"" & ADDRESS(R[2]C[-1],R[3]C[-1])"
imprim
End If
End Sub

Voici le code dans le module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub imprim()
plage = Range("aa1").Value
ActiveSheet.PageSetup.PrintArea = plage
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Cette macro m'est bien utile mais j'ai un souci avec : lorsque je fais un clic droit sur mon tableau (car dans mon cas il s'agit d'un TCD), la zone d'impression se redéfinit toute seule vers la cellule cliquée et l'impression s’exécute toute seule... Il y a t il un moyen de contrer cela ?

Autre petite particularité, la page concernée par la macro est un tableau croisé dynamique de la colonne A à Q, avec un nombre de lignes différent selon les rafraîchissement du TCD. Puis des formules colonnes R à X étendu sur 300 lignes (taille maxi que peut faire le TCD). La zone d'impression qui m'intéresse est de colonne A à V et sur le nombre de lignes du TCD, donc pas nécessairement jusqu'à la ligne 300.

Or la macro imprime sur la zone de cellules non vides (donc colonne X et ligne 300).

Comment réduire la zone d'impression en figeant la colonne V comme limite de colonnes ainsi que la dernière ligne du TCD (et non des formules) comme limite de lignes ?

Merci d'avance

Cdt

[rastaquere]

Bonjour,

c'est l'événement BeforeRightClick dans ton code qui déclenche l'événement en faisant un clic droit.

et pour lui l'activecell est celle qui est sélectionné. (je suppose)

https://msdn.microsoft.com/FR-FR/lib.../ff192993.aspx

peut-être qu'il faut mettre un bouton associé à la macro sur ta feuille pour activer la macro seulement à la demande.

[Philippe Tulliez]

Bonjour,
Si tu veux que le clic droit agisse ou n'agisse pas dans une certaine zone, il faut utiliser la méthode Intersect.
J'ajouterais que si tu veux définir une zone d'impression d'après les données d'un tableau croisé dynamique, il est plus intéressant d'utiliser les propriétés de celui-ci
Petit exemple qui agit uniquement si l'on fait un clic droit en dehors de la zone des données d'un tableau croisé dynamique et qui définit la zone d'impression sur cette plage.
Cet exemple ne fonctionne que sur le premier tableau croisé dynamique présent sur la feuille, n'intercepte pas les erreurs éventuelles (s'il n'y a pas de tableau croisé dynamique) et ne tient pas compte de la zone des filtres. C'est donc une procédure d'exemple qui doit être adaptée.
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Dim pvt As PivotTable, rng As Range
 Set pvt = Me.PivotTables(1): Set rng = pvt.TableRange1
 If Not Intersect(rng, Target) Is Nothing Then Exit Sub
 Cancel = False
 If MsgBox("Voulez-vous définir la plage " & rng.Address & " comme zone d'impression ?", vbYesNo) Then
  Me.PageSetup.PrintArea = rng.Address
 End If
 Cancel = True
End Sub

[EDIT]
Pour utiliser la plage totale du tableau croisé dynamique il faut utiliser la propriété TableRange2.

[Viper7]

Bonjour,

En fait j'aimerai mieux que la définition de la zone d'impression se fasse automatiquement.

Merci pour le code, j'ai bien compris le fait d'utiliser les propriétés du TCD mais ma zone d'impression va au delà :

la page concernée par l'impression est un tableau croisé dynamique de la colonne A à Q, avec un nombre de lignes différent selon les rafraîchissement du TCD. Puis des formules colonnes R à X étendu sur 300 lignes (taille maxi que peut faire le TCD). La zone d'impression qui m'intéresse est de colonne A à V et sur le nombre de lignes du TCD (inclus les quelques lignes de titre au dessus du TCD)

Merci par avance

[Philippe Tulliez]

Bonjour,

En fait j'aimerai mieux que la définition de la zone d'impression se fasse automatiquement.

Comme je l'ai précisé dans ma réponse, la procédure était un exemple à adapter. Si tu enlèves la fonction MsgBox la Zone d'impression sera automatiquement définie par la plage du TCD.
Cette procédure avait pour but de te montrer comment éviter que le clic droit à l'intérieur du tableau croisé dynamique n'affiche plus le menu contextuel alors que le clic droit sur une autre cellule fasse le travail souhaité et qu'il était plus simple de travailler avec une variable objet de type PivotTable que de passer par la fonction Adresse d'Excel.

A toi d'adapter le code comme tu l'entends

[Viper7]

Je ne comprend pas du tout les solutions proposé désolé, mon niveau se limite à ajuster des plages dans des macros...

Je pense malgré tout approcher de la vérité...

Comme :
- la première ligne est connue -> 1
- la première colonne est connue -> 2
- La dernière colonne est connue -> 22

Il me reste donc a déterminer la dernière ligne pour compléter ma formule définissant la zone d'impression.
Pour cela j'ai trouvé sur le net ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim LastLigne As Integer
LastLigne = Range("B1000").End(xlUp).Row

Voici le code de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Zonedimpression(ByVal Target As Range, Cancel As Boolean)
Dim LastLigne As Integer
LastLigne = Range("B1000").End(xlUp).Row
Cancel = True
If Range("z1").Value = "" Then
Range("z1").Value = "1"
Range("z2").Value = "2"
Else
Range("z3").Value = LastLigne
Range("z4").Value = "22"
Range("AA1").Value = "=ADDRESS(RC[-1],R[1]C[-1]) & "":"" & ADDRESS(R[2]C[-1],R[3]C[-1])"
imprim1
End If
End Sub

Voici le code dans le module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub imprim1()
plage = Range("AA1").Value
ActiveSheet.PageSetup.PrintArea = plage
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Pour le moment cela ne fonctionne pas, mes valeurs en z1, z2, z3 et z4 restent les mêmes...

Pourquoi selon vous cela peut bloquer svp ?

Merci

Cdt