2 cellules de couleur par un double clic

Résolu/Fermé

boomer - 13 févr. 2011 à 18:58
boomer - 13 févr. 2011 à 19:17

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

A voir également:

2 cellules de couleur par un double clic
Double ecran - Guide
Whatsapp double sim - Guide
Excel cellule couleur si condition texte - Guide
Somme si couleur - Guide
Excel additionner des cellules - Guide

2 réponses

Réponse 1 / 2

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 13/02/2011 à 19:12

Salut le forum

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å

Réponse 2 / 2

boomer
13 févr. 2011 à 19:17

salut

super , ca marche au top

merci pour ta reponse

Discussions similaires

Ma souris double-clik toute seule :(

Si couleur, alors...

Discussions similaires

Newsletters