SUPER RESOLU - Macro qui Beug

  • Initiateur de la discussion Initiateur de la discussion Usine à gaz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :
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 :
Beug Macro.jpg

Avec un grand Merci, je vous souhaite à toutes et à tous un bon WE

Amicalement,
Calimero,
 
Dernière édition:
Re : Macro qui Beug

salut

biaisons, biaisons 😉
VB:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
318
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
16
Affichages
1 K
Réponses
0
Affichages
566
Réponses
4
Affichages
549
Retour