erreur de compilation dans le module caché

-miss-

XLDnaute Junior
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 :

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
 

-miss-

XLDnaute Junior
Re

@ Miss
Peux-t-on avoir les macros subscriber et publieur ?
Code:
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é
 
Dernière édition:

-miss-

XLDnaute Junior
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
 
Dernière édition:

Discussions similaires

Réponses
1
Affichages
204