erreur de compilation dans le module caché

[-miss-]

Bonjour,
Je viens vers vous car j'ai crée un fichier excel avec macros protégés sous excel 2007
mais les personnes qui utilisent le fichier n'ont pas la même version que moi forcement et ils ont cette erreur :

erreur de compilation dans le module caché
c'est erreur se produit generalement lorsque le code est incompatible avec la version ....

voici le code :

Private Sub CommandButton1_Click()
subscriber
Range("A87") = "Oui"
CommandButton1.BackColor = RGB(141, 182, 205)
CommandButton2.BackColor = RGB(220, 220, 220)
End Sub

Private Sub CommandButton2_Click()
publieur
Range("A87") = "Non"
CommandButton1.BackColor = RGB(220, 220, 220)
CommandButton2.BackColor = RGB(141, 182, 205)



End Sub


Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
DTPicker1.Visible = True
DTPicker1.Value = Now

End Sub

Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
DTPicker2.Visible = True
DTPicker2.Value = Now


End Sub

Private Sub DTPicker3_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
DTPicker3.Visible = True
DTPicker3.Value = Now


End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug
'If Target.Address = "$C$17" Then '<-- vérification que la modification se passe dans la cellule C17
   ' Select Case Target.Value
     '   Case "NO": Range("nosubscrib").EntireRow.Hidden = True
     '   Case "YES": Range("nosubscrib").EntireRow.Hidden = False
   ' End Select
'End If
If Not Intersect(Target, [$C$18]) Is Nothing Then
Range("subscribe").EntireRow.Hidden = True
If Target.Address = "$C$18" Then
Select Case Target.Value
        Case "1": Range("masqpub").EntireRow.Hidden = False
        Case "2": Range("subscri2").EntireRow.Hidden = False
        Case "3": Range("subscri3").EntireRow.Hidden = False
        Case "4": Range("subscri4").EntireRow.Hidden = False
        Case "5": Range("subscribe").EntireRow.Hidden = False
      
     End Select
End If
End If
If Target.Address = "$C$51" Then '<-- vérification que la modification se passe dans la cellule c30 frequence pub
    Select Case Target.Value

        Case "On the fly": Range("mois").EntireRow.Hidden = True
        Case "Monthly": Range("mois").EntireRow.Hidden = False
      
    End Select
End If
If Target.Address = "$C$54" Then '<-- vérification que la modification se passe dans la cellule C33 kear
    Select Case Target.Value
        Case "NO": Range("masq33").EntireRow.Hidden = False
        Case "YES": Range("masq33").EntireRow.Hidden = True
    End Select
End If
End Sub

je n'arrive pas à trouver une solution sachant que je n'ai pas à disposition une autre version d'excel

 

[gosselien]

4 posts différents avec juste une * comme réponse , c'est pour rire ?

P.

 

[-miss-]

*

merci pour cette intervention mais je doute que ce soit la solution pour mon problème :'(

 

[pierrejean]

Re

@ Miss
Peux-t-on avoir les macros subscriber et publieur ?

 

[-miss-]

Re

@ Miss
Peux-t-on avoir les macros subscriber et publieur ?

Sub subscriber()
Cells.EntireRow.Hidden = False
Range("Masq8").EntireRow.Hidden = True
Range("Masq23").EntireRow.Hidden = True
Range("Masq30").EntireRow.Hidden = True
Range("masq266").EntireRow.Hidden = True
Range("Masq28").EntireRow.Hidden = True
Range("masqsub").EntireRow.Hidden = True
Range("confident").EntireRow.Hidden = True
Range("subcri1").EntireRow.Hidden = True
Range("A18").EntireRow.Hidden = True
End Sub
Sub publieur()
Cells.EntireRow.Hidden = False
Range("Masq9").EntireRow.Hidden = True
Range("masq27").EntireRow.Hidden = True
Range("Masq29").EntireRow.Hidden = True
Range("specific").EntireRow.Hidden = True
Range("subscribe").EntireRow.Hidden = True
End Sub
Sub Afficher_tout()
Cells.EntireRow.Hidden = False
End Sub

voila c des lignes que j'ai nommé

 

[pierrejean]

Re

Le dtPicker n'est pas présent dans toutes les versions
S'assurer d'abord que le pb vient de la auprès des utilisateurs et si oui utiliser un calendrier independant

 

[-miss-]

Re

Le dtPicker n'est pas présent dans toutes les versions
S'assurer d'abord que le pb vient de la auprès des utilisateurs et si oui utiliser un calendrier independant

le calendrier ne marchait pas chez quelques utilisateur ducoup je l'ai supprimé j'ai laissé juste une case pour mettre la date à la main mais ca vient pas de la
peut etre je devrais decocher quelques choses dans les references ?
ps : J'ai supprimé le code qui concerne le calendrier de la macro la et ca marche toujours pas d'après un utilisateur

 

[-miss-]

quelqu'un pour m'aider?