Réinitialiser une validation de données dans plusieurs cellules en même tps

Bonjour,

J'ai un plan rayon dans lequel j'ai intégré des validations de donnés par zone(cellules) et je souhaite mettre en place un bouton Reset qui remet toute les cellules sur la première sélection

Comment faire ?

Merci d'avance pour votre aide.

Bonjour Alex, bonjour le forum,

Essaie ce code :

Sub vide()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (Plage)
Dim CEL As Range 'déclare la variable CEL (CELlule)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
For Each O In Sheets 'boucle sur tous les onglets O du classeur
    On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
    Set PL = O.UsedRange.SpecialCells(xlCellTypeAllValidation) 'définit la plage PL, les cellules ayant une validation de donnée (génère une erreur si PL est vide)
    If Err <> 0 Then 'condition : si une erreur a été générée
        Err.Clear 'supprime l'erreur
        GoTo suite 'va à l'étiquette "suite"
    End If 'fin de la condition
    On Error GoTo 0 'annule la gestion des erreurs
    For Each CEL In PL 'boucle sur toutes les cellule CEL de la plage PL
        CEL.Value = "Vide" 'définit la valeur de la cellule CEL
    Next CEL 'prochaine cellule de la boucle
suite: 'étiquette
Next O 'prochain onglet de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

Bonjour,

Une autre approche.

Cdlt.

Public Sub ResetValidation()
Dim ws As Worksheet, firstValue As String, rngData As Range, Cell As Range
    Application.ScreenUpdating = False
    firstValue = Worksheets("Liste").Cells(1).Value
    For Each ws In Worksheets
        On Error Resume Next
        Set rngData = ws.UsedRange.SpecialCells(xlCellTypeAllValidation)
        On Error GoTo 0
        If Not rngData Is Nothing Then
            For Each Cell In rngData
                Cell.Value = firstValue
            Next Cell
        End If
    Next
End Sub

Merci à vous pour vos précieux conseils.

Je test ça demain :D

Bonjour,

Vous avez répondu à ma demande concernant la création d'un bouton reset pour mon plan intégrant des validations de données.

Merci d'avoir pris le temps de me répondre :)

Je me permet de vous solliciter une nouvelle fois car pour être honnête je n'ai pas réussi à intégrer vos formule dans une macro.

Est-ce qu'il y a des valeurs à entrer dans le code ?

Faut-il enregistrer une macro ?

Merci une nouvelle fois :)

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié avec la macro de Jean-Éric et la mienne. Un bouton pour chacune dans l'onglet TO DO LIST. Le fichier devient .xlsm à cause des macros...

Bonjour,

Merci pour ta réponse cependant je ne trouve pas de pièce jointe.

Bien a toi,

Bonjour le fil, bonjour le forum,

Ooops ! désolé, la voici :