PrintArea no npris en compte

Bonsoir,

Mon soucis dois être simple, et pourtant...!

A un bouton est associé le code suivant :

Private Sub CommandButton1_Click()

    If CheckBox1 = True Then
        ThisWorkbook.Worksheets(1).Activate
        ActiveSheet.PageSetup.PrintArea = "H6:T6"
    End If

End Sub

Ma CheckBox est bien cochée, le "ActiveSheet.PageSetup.PrintArea" fonctionne en dehors du If, mais dans le cas du code tel quel, il ne sélectionne pas du tout ce que je lui demande !

Merci de toute aide apportée !

Bonjour,

Merci de nous joindre le fichier.

Bonjour et bonne année,

Ta question est imprécise. Et tu dois joindre un fichier, comme Raja l'a souhaité.

Je t'envoie cependant ce petit fichier pour exemple.

Cdlt.

Option Explicit

Private Sub CommandButton1_Click()
Dim sPrintArea As String
Dim rng As Range

    With Me
        sPrintArea = .PageSetup.PrintArea
        If Not sPrintArea = "" Then
            .Range(sPrintArea).Interior.Color = xlNone
            .PageSetup.PrintArea = Empty
        End If
    End With

    If Me.CheckBox1 Then
        Set rng = Me.Range("B3:D8")
        rng.Interior.Color = 65535
    Else
        Set rng = Me.Range("F3:F8")
        rng.Interior.Color = 65535
    End If

    Me.PageSetup.PrintArea = rng.Address

    MsgBox "La zone d'impression est :" & vbLf & _
           rng.Address, vbOKOnly + vbInformation, "Zone d'impression"

    Set rng = Nothing

End Sub

Voici le fichier, il s'agit du bouton "Print" dans le UserForm DaMa, qui est supposé simplement sélectionner une Printarea si la Checkbox est cochée!

(J'ai tout vidé car il s'agit du travail mais le problème est bien là)

Merci !

Re,

Ton code semble fonctionner mais pour voir lr résultat dans le gestionnaire de noms, il faut que la feuille soit visible.

Elle est 'xlSheetVeryHidden'.

Cdlt.

Effectivement, merci, c'est fou le temps qu'on perd en passant à côté de choses comme ça !