2 cellules de couleur par un double clic Résolu

Question

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
Configuration: Windows 7 / Firefox 3.6.13

Mytå · Answer

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å

boomer · Answer

salut 


super , ca marche au top 

merci pour ta reponse

2 cellules de couleur par un double clic

2 réponses

Discussions similaires

Newsletters