Macro "Validation de données"

Bonjour à tous,

J’ai un petit problème ! J'ai créé en enregistrant une macro de validation de données d’après une liste, mais je voudrais pouvoir l’appliquer à chacune de mes 12 feuilles de mon classeur sans avoir à dupliquer 12 fois la macro. Je ne parviens pas à trouver la bonne commande qui s’appliquerait à la feuille active et non au mois comme ci-dessous..

Merci de votre aide.

Voici la macro enregistrée.

Sub Macro1()
' Macro1 Macro
    activeSheets.Select
    Range("Février[Type]").Select          
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, _
        Operator:=xlBetween, Formula1:="=type"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ErrorTitle = ""
        .ErrorMessage = "eeeee"
        .ShowInput = True
        .ShowError = True
    End With
    Range("D71").Select
End Sub

Bonjour Mercure 40 le forum

avec le fichier se seait plus facile mais bon essaye cela

a+

papou

Sub Macro1()
   with activeSheet
    'Range("Février[Type]").Select         
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, _
        Operator:=xlBetween, Formula1:="=type"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ErrorTitle = ""
        .ErrorMessage = "eeeee"
        .ShowInput = True
        .ShowError = True
    End With
    Range("D71").Select
end with
End Sub

Bonjour et Merci de m'avoir répondu,

Entre temps j'ai résolu la question à l'aide d'un exemple trouvé dans une autre macro cela marche.

je ne sais pas si cette sulution est la meilleure ou la plus pro, si quelq'un en a une autre je suis toujours preneur.

Bon dimanche

Sub Validation_détail()
'
    Range("f5:f100").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, _
        Operator:=xlBetween, Formula1:="=détailv"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
   Range("f5").Select
end sub

re Mercure le forum

tant mieux pour toi que la solution soit trouvée, mais c'est mieux tout de même de comprendre pourquoi cela marche, a mon avis

a+

papou