XL 2019 probleme dans une macro

tomy87

XLDnaute Nouveau
bonjours ,j'ai un probleme et ne trouve pas comment y remédié. j'ai une erreur lors du lancement d'une macro . l'erreur se surligne en jaune de"
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=liste_ingrédients"



Range("A7:A22").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=liste_ingrédients"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
Calculate
Range("A7").Select
End Sub
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,

Voir le fichier. La macro fonctionne sur toutes les feuilles même nouvellement créée. La macro a été légèrement modifiée et surtout supprimée du module de Feuil1 pour être placée dans un module à part. la macro fonctionne pour la feuille active.
 

Pièces jointes

  • tomy87- Validation- v2.xlsm
    19.4 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T