Discussion :

[pasterlouis]

bonjour,
comment traduire la condition suivante sur VBA:

Code :

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

if cells(3, 1) appartient à la zone d'impression then ....

je veux traduire "cellule A3 appartient à la zone d'impression"

Pouvez vous m'aider svp?
Merci

[PMO2017]

Bonjour,

Essayez

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub aa()
Dim PlagePrintArea As Range
'---
Set PlagePrintArea = Range(ActiveSheet.PageSetup.PrintArea)
If Not Application.Intersect(Cells(3, 1), PlagePrintArea) Is Nothing Then
  MsgBox "La cellule est contenue dans la zone d'impression"
Else
  MsgBox "Cellule non contenue dans la zone d'impression"
End If
End Sub

[pasterlouis]

Merci bien c'est exactement ce que je cherchais