XL 2016 Problème de contenu, fichier verrouillée pour modification et s'ouvre uniquement en lecture seule

Stéphane_1 · 28 Mai 2024

Bonjour,

Je travaille sur un classeur de 3 feuilles, dont 2 avec des codes VBA. Pris individuellement ces codes ne pose pas de problème, mais quand ils sont réunis dans un seul classeur j'ai la suite d'erreurs que j''ai mis en titre. J'ai essayé de récréer un classeur de zéros sans succès.

Si quelqu'un sait comment résoudre ce problème ou a des suggestions j'apprécierais son aide.

Stéphane_1 · 3 Juin 2024

Suite à plus de recherches j'ai résolu le problème en déplaçant les Sub et les Private Sub qu'ils appelaient dans "ThisWorbook". Les Private Sub fonctionnant uniquement grâce à un événement doivent rester dans la feuille VBA dans laquelle ils travaillent, sinon ils ne fonctionne pas

Exemple dans ThisWorbook :

VB:

Sub Recherche ()

    Worksheet_SelectionChangeRecherche Selection

End Sub

Private Sub Worksheet_SelectionChangeRecherche(ByVal Target As Range)

    'Code'
  
End Sub

Exemple dans Feuill3 :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  
    'Code'
  
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
    'Code'
  
End Sub

Phil69970 · 28 Mai 2024

Bonjour @Stéphane_1

Et tout ça juste avec 3 images c'est une blague

j'ai bien une piste mais elle est ici

Cela t’intéresse ?

Bonne lecture

Stéphane_1 · 3 Juin 2024

Suite à plus de recherches j'ai résolu le problème en déplaçant les Sub et les Private Sub qu'ils appelaient dans "ThisWorbook". Les Private Sub fonctionnant uniquement grâce à un événement doivent rester dans la feuille VBA dans laquelle ils travaillent, sinon ils ne fonctionne pas

Exemple dans ThisWorbook :

VB:

Sub Recherche ()

    Worksheet_SelectionChangeRecherche Selection

End Sub

Private Sub Worksheet_SelectionChangeRecherche(ByVal Target As Range)

    'Code'
  
End Sub

Exemple dans Feuill3 :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  
    'Code'
  
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
    'Code'
  
End Sub

XL 2016 Problème de contenu, fichier verrouillée pour modification et s'ouvre uniquement en lecture seule

Stéphane_1

XLDnaute Nouveau

Stéphane_1

Phil69970

XLDnaute Barbatruc

Stéphane_1

XLDnaute Nouveau

Discussions similaires