Zone d'impression

Bonjour a tous

Meilleurs vœux

je souhaiterai faire "une zone d'impression" sur plusieurs onglet. (b1;x102)

toujours la mème ,mais le problème j'ai code VBA (que je doit garde pour protéger des cellules ) qui me bloque

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("onglet")) Is Nothing Then
     Dim OldValue As Variant
     Application.EnableEvents = False
     Application.Undo
     OldValue = Target.Value
     Application.Undo
     Application.EnableEvents = True
     If OldValue <> Target.Value Then
        For Each ws In Worksheets
           ws.Cells.Replace What:="[xxxxxx 2018.xlsx]" & OldValue, Replacement:="[xxxxxx 2018.xlsx]" & Target.Value, LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
        Next
     End If
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("b7:d92")) Is Nothing Then Range("e7").Select

If Not Intersect(Target, Range("v7:v92")) Is Nothing Then Range("e7").Select

If Not Intersect(Target, Range("e1:f2")) Is Nothing Then Range("e7").Select

If Not Intersect(Target, Range("w2")) Is Nothing Then Range("e7").Select

End Sub

Quelqu'un a une Idée

Merci d'avance

personne

Bonjour,

Le code que tu as posté n’intervient pas dans la protection de ta feuille ...

Donc ... à priori... aucun conflit ...

bonjour

En faite si sa bloque car je ne peut sélectionner une case qui et renvoyer

If Not Intersect(Target, Range("b7:d92")) Is Nothing Then Range("E7").Select

si tu fait un tableau "b1: x102" a causse du renvoi en E7 les colonnes B et D ne peuvent pas être sélectionner

Problème résolu avec

MISE EN PAGE / IMPRIMER LES TITRES

Re,

Parfait ...

Content que tu aies pu trouver une solution à ton problème...