SUPER RESOLU - Macro qui Beug

[Usine à gaz]

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 :

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,

 

[Usine à gaz]

Re : Macro qui Beug

J'avoue que je comprends pas trop mais bravo pour le "biaisage" ..... ça marche

Amicalement,
Calimero,

 

[Si...]

Re : Macro qui Beug

salut

biaisons, biaisons

Private Sub Worksheet_SelectionChange(ByVal R As Range)
  ActiveSheet.Unprotect Password:="Krameri"
  If Not Intersect(R, Range("L3:L2000")) Is Nothing And R.Count = 1 Then Pratique2.Show
  If Intersect(R, Range("F3:F2000,K3:K2000,L3:L2000,N3:N2000,P3:P2000")) Is Nothing Then GoTo 1
  MsgBox "Lance AjouteC33, AjouteD33 et DLFA", , "Action"
   'Call AjouteC33:: Call AjouteD33: Call DLFA
   ActiveSheet.Protect Password:="Krameri", DrawingObjects:=True, Contents:=True, Scenarios:=True
   ActiveSheet.EnableSelection = xlUnlockedCells
1   Application.EnableEvents = 0: R.Select: Application.EnableEvents = 1    '...revient
End Sub

Si...clic L : ouverture du formulaire
Si... hors de ces plages : vers la fin, sinon action

 

[Usine à gaz]

Re : Macro qui Beug

Bon SI,
Re à JCGL,
à toutes et à tous,

Merci pour ce nouveau "biaisage",
Je vais l'essayer,

Amicalement,
Caliméro,

 

[Usine à gaz]

Re : Macro qui Beug

Bonjour à toutes et à tous,
Merci ..... SI,
ça marche aus .. si
Amicalement,
Calimero,