Pk copie/colle marche plus à cause d'1 macro
moshojo
Messages postés
23
Statut
Membre
-
moshojo Messages postés 23 Statut Membre -
moshojo Messages postés 23 Statut Membre -
Bonjour à tous,
Dans un fichier excel, j'utilise la macro suivante pour que le texte de la ligne de la cellule sélectionnée s'affiche en rouge. Mais depuis dans la zone défine dans cette macro je ne peux plus réaliser de copier coller. Quelqu'un aurait-il une solution ou une explication?
Merci davance !
Moshojo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'le texte de la ligne de la cellule sélectionnée s'affiche en rouge
If Not Application.Intersect(Target, Range("A4:GM35")) Is Nothing Then 'la macro est valable pour la plage A4:GM13
Static AncAdress As Long
If Target.Count > 1 Then Exit Sub 'si plus d'une cellule sélectionnée, la macro s'arrete
If AncAdress <> 0 Then 'remettre en normal
Rows(AncAdress).Interior.ColorIndex = xlNone
Rows(AncAdress).Font.ColorIndex = 0
End If
Target.EntireRow.Font.ColorIndex = 3
Target.EntireRow.Interior.ColorIndex = 2
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End If
End Sub
<=
Dans un fichier excel, j'utilise la macro suivante pour que le texte de la ligne de la cellule sélectionnée s'affiche en rouge. Mais depuis dans la zone défine dans cette macro je ne peux plus réaliser de copier coller. Quelqu'un aurait-il une solution ou une explication?
Merci davance !
Moshojo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'le texte de la ligne de la cellule sélectionnée s'affiche en rouge
If Not Application.Intersect(Target, Range("A4:GM35")) Is Nothing Then 'la macro est valable pour la plage A4:GM13
Static AncAdress As Long
If Target.Count > 1 Then Exit Sub 'si plus d'une cellule sélectionnée, la macro s'arrete
If AncAdress <> 0 Then 'remettre en normal
Rows(AncAdress).Interior.ColorIndex = xlNone
Rows(AncAdress).Font.ColorIndex = 0
End If
Target.EntireRow.Font.ColorIndex = 3
Target.EntireRow.Interior.ColorIndex = 2
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End If
End Sub
<=
A voir également:
- Pk copie/colle marche plus à cause d'1 macro
- Copie cachée - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
2 réponses
Bonjour,
Si vous faite un copier sur une cellule, vous annulez cette action par le coloriage de la ligne ou vous voulez copier. Pour l'instant j'ai trouve pour faire un copier/coller mais avec un decalage pour le changement de couleur de la ligne de la cellule "coller". Nous continuons a chercher avec d'autre peut-etre.
Si vous faite un copier sur une cellule, vous annulez cette action par le coloriage de la ligne ou vous voulez copier. Pour l'instant j'ai trouve pour faire un copier/coller mais avec un decalage pour le changement de couleur de la ligne de la cellule "coller". Nous continuons a chercher avec d'autre peut-etre.
