Bonjour à toutes et à tous,
J'ai une macro qui beug et je n'arrive pas à trouver pourquoi.
Si vous pouviez m'aider ça m'arrangerai bien.
Voici la vilaine :
Voici la photo :
Avec un grand Merci, je vous souhaite à toutes et à tous un bon WE
Amicalement,
Calimero,
J'ai une macro qui beug et je n'arrive pas à trouver pourquoi.
Si vous pouviez m'aider ça m'arrangerai bien.
Voici la vilaine :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Krameri"
If Not Intersect(Target, Range("L3:L2000")) Is Nothing And Target.Count = 1 Then
Pratique2.Show
End If
ActiveSheet.Unprotect Password:="Krameri"
If Not Intersect(Target, Range("F4:F2000,K4:K2000,L4:K2000,N4:N2000,P4:P2000")) Is Nothing Then
Call AjouteC33
Call AjouteD33
Call DLFA
ActiveSheet.Protect Password:="Krameri", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.EnableEvents = 0: Target.Select: Application.EnableEvents = 1 '...revient
End If
End Sub
Voici la photo :
Avec un grand Merci, je vous souhaite à toutes et à tous un bon WE
Amicalement,
Calimero,
Dernière édition: