Discussion :

[cedric cc]

Bonjour à tous
je me permets de sollicité votre aide sur un projet que je réaliser et que je dois rendre à la fin du mois.
je ne sais si je peux le poster pour que vous ayez un visuel car il fait 40Mo et je n arrive pas a le comprésser au max
bref voila dans le vif du sujet ce qui me pose probleme:
j ai créer un classeur avec 29 feuilles.
les 3 premières feuilles sont des base de données sur lesquelles je ne souhaite pas intervenir
les 14 dernières feuilles sont des tableaux de récupération de données sur lesquelles je ne souhaite pas non plus intervenir
j ai un UserForm1 avec 7 checkbox et 7 Textbox
j ai une feuille avec un calendrier et chaque jour est un lien hypertexte dans le classeur vers une feuille de saisie de la journée en cours
je souhaiterais que lorsque l'utilisateur entre une donnée dans l'une des 3000 cellules des colonnes D,J,M,P,S,V,Y ou AB des feuilles 4 à 15 cela lance le userform1
j ai placer le code suivant dans "this workbook"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
'*********** Feuilles à exclure **************************
Select Case ActiveSheet.Name
Case Is = "1", "2", "3": Exit Sub
 
'*********** Pour les autres feuilles *******************************
Case Else
If Not Intersect(Target, Range("D:D,J:J,M:M,P:P,S:S,V:V,Y:Y,AB:AB ")) Is Nothing Then
UserForm1.Show
End If
 
End Select
End Sub

mais lorsque je fait un test cela fonctionNE mais lorsque je clic sur un lien hyper text j ai le message suivant :
erreur 1004 la fonction intersect de l'objet _Global a échouer

je peu mettre un lien pour downloader mon projet si vous le souhaitez
j espère avoir été clair car je débute en VB et cela est un peux brouillon dans mon esprit

je vous remercie infiniment de votre aide
à très vite
cedric cc

[mayekeul]

bonjour

tu dois mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not Intersect(Target, Range("D:D,J:J,M:M,P:P,S:S,V:V,Y:Y,AB:AB ")) Is Nothing Then
UserForm1.Show
End If

dans l'événement change de chaque feuille concernée