Conflit entre une macro et "copier coller"

Bonjour,

voila mon soucis, afin de surligner la ligne complète quand je suis sur une cellule j'ai utilisé un code et depuis la fonction "copier-coller" ne fonctionne plus

voici le code mis dans la module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static AncAdress As Long

'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous

If ActivationLigne Then Exit Sub

If Target.Count > 1 Then Exit Sub

If AncAdress <> 0 Then 'remettre en normal

Rows(AncAdress).Interior.ColorIndex = xlNone

Rows(AncAdress).Font.ColorIndex = 0

Rows(AncAdress).Font.Bold = False

End If

Target.EntireRow.Font.ColorIndex = 5

Target.EntireRow.Interior.ColorIndex = 4

Target.EntireRow.Interior.Pattern = xlSolid

Target.EntireRow.Font.Bold = True

AncAdress = Target.Row

End Sub

Comment faire?

Merci pour votre aide

Bonjour Bernard, bonjour le forum,

Visiblement c'est l'action d'Enlever/Mettre le gras (Bold) qui vide le presse-papier. À part supprimer ces deux lignes, je ne vois pas comment faire simplement...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous
If ActivationLigne Then Exit Sub

If Target.Count > 1 Then Exit Sub
    If AncAdress <> 0 Then 'remettre en normal
    Rows(AncAdress).Interior.ColorIndex = xlNone
    Rows(AncAdress).Font.ColorIndex = 0
    'Rows(AncAdress).Font.Bold = False
End If
Target.EntireRow.Font.ColorIndex = 5
Target.EntireRow.Interior.ColorIndex = 4
Target.EntireRow.Interior.Pattern = xlSolid
'Target.EntireRow.Font.Bold = True
AncAdress = Target.Row
End Sub

ThauThème a écrit :

Bonjour Bernard, bonjour le forum,

Visiblement c'est l'action d'Enlever/Mettre le gras (Bold) qui vide le presse-papier. À part supprimer ces deux lignes, je ne vois pas comment faire simplement...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous
If ActivationLigne Then Exit Sub

If Target.Count > 1 Then Exit Sub
    If AncAdress <> 0 Then 'remettre en normal
    Rows(AncAdress).Interior.ColorIndex = xlNone
    Rows(AncAdress).Font.ColorIndex = 0
    'Rows(AncAdress).Font.Bold = False
End If
Target.EntireRow.Font.ColorIndex = 5
Target.EntireRow.Interior.ColorIndex = 4
Target.EntireRow.Interior.Pattern = xlSolid
'Target.EntireRow.Font.Bold = True
AncAdress = Target.Row
End Sub

Je te remercie pour ta réponse rapide et cela me convient parfaitement la mise en gras de la cellule n'était qu'un plus pas absolument nécessaire, je le supprime et cela marche.

Encore merci

Bernard