XL 2010 Probléme lier au lancement répéter d'un userform

pompier83

XLDnaute Nouveau
bonjour à tous

j'ai problème lors du lancement répéter de mon userform.
je m'explique dans mon projet j'utilise un userform pour colorier des cellule (Onglet Filtre)
quand je clique sur une plage de cellule celui-ci se lance pas de problème une macro ce lance suivant le bouton ou j’appuie.

le problème c'est quand je passe à la cellule suivante et que je clique il veux plus se lancer
j'utilise cette formule
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A4:L1054")) Is Nothing Then
Mon_USF.Usf
End If
End Sub

comment puis je faire pour y remedier svp merci
 

Pièces jointes

  • ProblemeUSF.xlsm
    556.5 KB · Affichages: 43

sousou

XLDnaute Barbatruc
Bonjour
dans les actions de ton userform tu dois rendre vrai les évènements que tu à rendu faux durant tes calculs
exemple:
Private Sub Garde_Click()
If ActiveCell = "" Then ActiveCell.Interior.ColorIndex = 2 Else ActiveCell.Interior.ColorIndex = 6
Calcule_Grd_AST_GRP.MAJ_TOT
Unload USF1
Application.EnableEvents = True
End Sub
 

pompier83

XLDnaute Nouveau
Re alors me suis rendu compte si je limite la macro à une partis de la journée exemple matin il est presque instantané mais je sais pas comment faire du genre sur le bouton garde (Jaune)
si une cellule entre A3 et D1042 est activé lancer macro Maj_Matin
si une cellule entre E3 et H1042 est activé lancer macro Maj_AP
si une cellule entre I3 et L1042 est activé lancer macro Maj_N

comment je peut faire cela svp merci
 

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 822
dernier inscrit
holale