Discussion :

[Neptune64]

Bonjour à tous,
J'ai trouvé dans le fichier joint une macro qui fonctionne super bien avec beaucoup de données dans une liste déroulante. Le problème c'est qu'il n'est pas possible de mettre une protection sur la feuille. Cela me donne un message d'erreur !! Alors j'ai ajouter dans la macro, enlever la protection, faire la modification puis reprotéger. Cela fonctionne, mais le problème est que lorsque que je change une donnée dans d'autre cellules, la protections est supprimée. C'est important que la feuille soit protégée avec des cellules libre et modifiable. Merci de votre aide

[Neptune64]

Hello !!

J'ai trouvé comment faire. En fait ce qui créait problème, c'était "Validation" il n'est pas accessible avec la protection de la feuille. Alors en enlevant et remettant la protection juste avant et après, tout simplement et cela fonctionne :-))))

Code :

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

1
2
3
4
5
6
7
8
9
10
Sheets("feuille1").Unprotect 
    With .Validation
      .Modify Formula1:="=ListeName"
    End With
  End With
 
 Sheets("feuille1").Protect, DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
        :=True