Discussion :

[dodo28]

bonjour j ai trouvé ce code qui quand on double clic sur une cellule elle change de couleur.
Mais quand je la mets sur un de mes classeurs elle ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
  If Target.Interior.ColorIndex = 36 Then
    Target.Interior.ColorIndex = xlNone
  Else
     Target.Interior.ColorIndex = 36
  End If
  Cancel = True
End Sub

Merci

[casefayere]

Bonsoir,

Je viens d'essayer ton bout de code, il fonctionne parfaitement, si ma cellule est sans couleur, le code met la couleur jaune ensuite si je double clique sur la meme cellule on enleve la couleur

tel que ton code l'indique

Bonne soirée

[dodo28]

Bonsoir
merci
alors ca doit etre son emplacement qui ne fonctionne pas. je le place dans le ThisWorkbook ou dans un module pour qu'il soit actif sur tous mon classeurs. et Si je veux qu'il soit actif dans toutes les feuilles sauf deux feuilles comment on fait?
merci

[casefayere]

A mon avis (je peux me tromper) mais tu dois inscrire ce code dans l'evenement de chaque feuille ou dans un module ex :

dans chaque feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
cellule = Target.Address
changecouleur
Cancel = True
End Sub

dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
Public cellule As String
Sub changecouleur()
If Range(cellule).Interior.ColorIndex = 36 Then
    Range(cellule).Interior.ColorIndex = xlNone
  Else
     Range(cellule).Interior.ColorIndex = 36
  End If
End Sub

il y a peut-etre mieux

a +

[laetitia]

bonjour le fil le forum dans thisworkbook

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name = "feuil4" Or ActiveSheet.Name = "feuil5" Then Exit Sub
If Target.Interior.ColorIndex = 36 Then
    Target.Interior.ColorIndex = xlNone
  Else
     Target.Interior.ColorIndex = 36
  End If
  Cancel = True
End Sub

[dodo28]

Merci beaucoup ca marche
cordialement