Titre du sujet : Re: problème de cellule à cocher
par JeanMarie le 06/06/2009 22:09:50
Bonsoir Inspecteur
Je ne sais pas si j'ai bien compris ce que tu voulais faire.
J'ai compris que tu voulais rajouter la fonctionnalité de la colonne B à la colonne K.
Change le code de la gestion du double clic.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Teste si la cellule ayant recu un double-clic fait partie de la plage bd_present
'Cette plage a ete definie de maniere dynamique a l'aide de la fonction suivante :
' =DECALER(Feuil1!$B$2;;;NBVAL(Feuil1!$A:$A)-1)
'Voir le menu Insertion - Nom - Definir
If Not (Intersect(Target, Range("bd_present")) Is Nothing) Or Not (Intersect(Target, Range("bd_present").Offset(0, 9)) Is Nothing) Then
'Mise en forme de la cellule
Target.Font.Name = "Wingdings"
Target.HorizontalAlignment = xlCenter
'Empeche la selection de la cellule apres le double-clic
Cancel = True
'Teste de la valeur de la cellule et inverse la case a cocher
Range("B" & Target.Row).Value = inverse(Range("B" & Target.Row))
Range("K" & Target.Row).Value = inverse(Range("K" & Target.Row))
End If
End Sub
J'espère que Didier va passer part là, pour améliorer la modification appliquée à ton code (je ne suis pas un "pro" du VBA)
@+Jean-Marie
|
Didier FOURGEOT