Bonjour, j'ai une macro qui me permet de mettre des "1" dans des cellules juste en cliquant dessus et de les effacer en recliquant. Elle marchait jusqu'à présent mais j'ai modifié les cellules où je dois et cliquer, et là ça ne marche plus. Au secours.
Voilà ma macro qui se trouve dans "Worksheet" "SelectionChange":
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("M11:O295,Q11:S295,U11:W295,Y11:AA295,AD11:AF295,AH11:AJ295,AL11:AN295,AP11:AR295,AU11:AW295,AY11:BA295,BC11:BE295,BG11:BI295,BL11:BN295,BP11:BR295,BT11:BV295,BX11:BZ295,CC11:CE295,CG11:CI295,CK11:CM295,CO11:CQ295,CU11:CW295,CY11
A295,DC11
E295,DG11
I295,DL11
N295,DP11
R295,DT11
V295,DX11
Z295,EC11:EE295,EG11:EI295,EK11:EM295,EO11:EQ295,ET11:EV295,EX11:EZ295,FB11:FD295,FF11:FH295,FK11:FM295,FO11:FQ295,FS11:FU295,FW11:FY295")) Is Nothing Then
If Target = 1 Then
Target = ""
Else
Target = 1
End If
End If
End Sub
Quand j'effectue un débogage, il me souligne en jaune toute la ligne "If Not Application ... Is Nothing Then".
Vue que je suis novice dans les macros je ne sait quoi faire.
En espérant que vous pourrez m'aider.
Merci par avance...
Cédric