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
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