aziatedu13
XLDnaute Nouveau
Bonjour,
J'ai créé cette macro, mais cela n'a aucun effet...
J'ai beau cliquer sur les cellules dans la bonne plage, rien de se passe...
Mon but, serai de valider ou d'invalider des cases qui correspondent à des disponibilités de personne.
Ma macro :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("$C$6:$X$11")) Is Nothing Then Exit Sub
If ActiveCell.Interior.ColorIndex = xlColorIndexNone Then
ActiveCell.Interior.ColorIndex = 4
Else
ActiveCell.Interior.ColorIndex = 3
Cancel = True
End If
End Sub
Quand je créé , dans le meme module, une macro :
sub test()
end sub
test apparait bien dans la liste des macros ( dans l'onglet affichage ) , mais pas Worksheet_BeforeDoubleClick.
Si j'écris
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Interior.ColorIndex = 4
end sub
rien de se passe non plus.....
On dirai que cette fonction est "zappé" complet...
Comment puis je faire ??
Merci.
Je suis sur Exel 2007, j'ai bien créé un fichier xlsm, et sous windows 7 64bit.
J'ai créé cette macro, mais cela n'a aucun effet...
J'ai beau cliquer sur les cellules dans la bonne plage, rien de se passe...
Mon but, serai de valider ou d'invalider des cases qui correspondent à des disponibilités de personne.
Ma macro :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("$C$6:$X$11")) Is Nothing Then Exit Sub
If ActiveCell.Interior.ColorIndex = xlColorIndexNone Then
ActiveCell.Interior.ColorIndex = 4
Else
ActiveCell.Interior.ColorIndex = 3
Cancel = True
End If
End Sub
Quand je créé , dans le meme module, une macro :
sub test()
end sub
test apparait bien dans la liste des macros ( dans l'onglet affichage ) , mais pas Worksheet_BeforeDoubleClick.
Si j'écris
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Interior.ColorIndex = 4
end sub
rien de se passe non plus.....
On dirai que cette fonction est "zappé" complet...
Comment puis je faire ??
Merci.
Je suis sur Exel 2007, j'ai bien créé un fichier xlsm, et sous windows 7 64bit.