Re : Userform s'ouvrant par double-clique
C'est sûrement plus facile avec le code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Double-clique sur les titres des colonnes pour lancer le tri
If Not Intersect(Target, Range("A4")) Is Nothing Then Application.Run ("Tri_par_nom")
ElseIf Not Intersect(Target, Range("D4")) Is Nothing Then Application.Run ("Tri_par_date_de_désignation")
ElseIf Not Intersect(Target, Range("E4")) Is Nothing Then Application.Run ("Tri_par_phase")
ElseIf Not Intersect(Target, Range("G4")) Is Nothing Then Application.Run ("Tri_par_Rappels_1")
ElseIf Not Intersect(Target, Range("J4")) Is Nothing Then Application.Run ("Tri_par_RDV")
ElseIf Not Intersect(Target, Range("R4")) Is Nothing Then Application.Run ("Tri_par_Rappels_2")
ElseIf Not Intersect(Target, Range("V4")) Is Nothing Then Application.Run ("Tri_par_CA_à_faire")
ElseIf Not Intersect(Target, Range("X4")) Is Nothing Then Application.Run ("Tri_par_Rappels_3")
ElseIf Not Intersect(Target, Range("AB4")) Is Nothing Then Application.Run ("Tri_par_RA_à_faire")
ElseIf Not Intersect(Target, Range("AD4")) Is Nothing Then Application.Run ("Tri_par_Rappels_4")
ElseIf Not Intersect(Target, Range("AJ4")) Is Nothing Then Application.Run ("Tri_par_RC_à_faire")
ElseIf Not Intersect(Target, Range("AL4")) Is Nothing Then Application.Run ("Tri_par_Rappels_5")
ElseIf Not Intersect(Target, Range("AO4")) Is Nothing Then Application.Run ("Tri_par_Rappels_6")
End If
' Insertion nouveau dossier
If Not Intersect(Target, Range("C2")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm0.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
End If
'Double clique sur les cellules pour y introduire quelque chose
If Not Intersect(Target, Range("R6:R2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm01.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("S6:S2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm02.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("X6:X2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm01.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("Y6:Y2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm02.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("AD6:AD2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm01.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("AE6:AE2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm02.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("AL6:AL2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm01.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("AM6:AM2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm02.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("AO6:AO2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm01.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("AP6:AP2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm02.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("I6:I2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm1.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("L6:L2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm2.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("N6:N2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm3.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("Q6:Q2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm4.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("T6:T2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm41.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("W6:W2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm5.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("AC6:AC2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm6.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("AK6:AK2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm7.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("AQ6:AQ2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm8.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("J6:J2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm9.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
ElseIf Not Intersect(Target, Range("O6:O2000")) Is Nothing Then ActiveSheet.Unprotect ("xavier"): UserForm9.Afficher Target
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="xavier": Cancel = True
End If
End Sub