Réinitialisation liste déroulante

Bonjour,

j'ai quelques centaines de cellules avec une liste déroulante sur de multiples onglets et je voudrai créer une macro pour toutes les réinitialiser en fin d'année.

merci de vos réponses

Cdt.

Bonjour ADJTECH1, bonjour le forum

Tu donnes tellement peu de renseignements que je vois mal comment on pourrait te répondre sans avoir le fichier qui va bien !...

Bonjour,

alors voici, une partie du classeur, les cellules sont celles avec les listes déroulantes.

Re,

Si tes onglets sont protégés par mot de passe comment veux-tu que l'on t'aide !?...

le voici, désolé

Re,

Ce code à placer dans un module standard (Module 1 par exemple ). Si c'est protégé, tu déprotèges en adaptant le mot de passe et tu reprotèges à la fin toujours en adaptant le mot de passe (pour cela, enlever l'apostrophe en début de ligne) :

Public Sub Macro1()
Dim O As Worksheet

Application.ScreenUpdating = False
For Each O In Worksheets
    'O.Unprotect "Toto" 'mot de passe à adapter
    On Error Resume Next
    O.Cells.SpecialCells(xlCellTypeAllValidation).Value = ""
    If Err <> 0 Then Err.clear
    'O.Protect "Toto" 'mot de passe à adapter
Next O
Application.ScreenUpdating = True
End Sub

Hi,

c'est exactement ça, encore merci,

rapide et efficace comme toujours.

Cdt.