erreur de compilation dans le module caché

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

-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
 
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:
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
41
Affichages
698
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
162
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
317
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
144
Réponses
7
Affichages
163
Réponses
14
Affichages
246
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour