2 cellules de couleur par un double clic
Résolu
boomer
-
boomer -
boomer -
Bonjour,
je souhaiterais savoir si il est possible de double cliquer sur une cellule pour mettre de la couleur dans la cellule cliqué et celle d'à coter
pour l'instant , j'ai une macro qui me permet de mettre de la couleur dans la cellule cliqué :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:BW40")) Is Nothing Then
If ActiveCell.Interior.ColorIndex = 40 Then
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 40
End If
End If
Cancel = True
End Sub
seulement
Est ce possible de l'adapter pour que la couleur se remplisse aussi dans la cellule de la colonne à coter
Merci
je souhaiterais savoir si il est possible de double cliquer sur une cellule pour mettre de la couleur dans la cellule cliqué et celle d'à coter
pour l'instant , j'ai une macro qui me permet de mettre de la couleur dans la cellule cliqué :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:BW40")) Is Nothing Then
If ActiveCell.Interior.ColorIndex = 40 Then
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 40
End If
End If
Cancel = True
End Sub
seulement
Est ce possible de l'adapter pour que la couleur se remplisse aussi dans la cellule de la colonne à coter
Merci
A voir également:
- 2 cellules de couleur par un double clic
- Double ecran - Guide
- Whatsapp double sim - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Excel cellule couleur si condition texte - Guide
- Double driver - Télécharger - Pilotes & Matériel
2 réponses
Salut le forum
Boomer, la macro aadaptée à ta demande
Mytå
Boomer, la macro aadaptée à ta demande
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:BW40")) Is Nothing Then
With Target
If .Interior.ColorIndex = 40 Then
.Interior.ColorIndex = xlNone
.Offset(0, 1).Interior.ColorIndex = xlNone
Else
.Interior.ColorIndex = 40
.Offset(0, 1).Interior.ColorIndex = 40
End If
End With
End If
Cancel = True
End Sub
Mytå
