Macro et Validation de donnée

JP -  
Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Je suis actuellement en train de me faire un fichier excel me permettant d'avoir une mise en page automatique!
mais lors de la mise en place de ma validation de donnée dans mon deuxieme sous tableau
je n'arrive pas a avoir mon lien avec mes case.

voici le code VBA

Dim NOM8AsVariant
NOM8 = Range("MACRO!D58")
Dim NOM9AsVariant
NOM9 = Range("MACRO!B53")
Dim NOM10AsVariant
NOM10 = Range("MACRO!D72")

Sheets("NOMENCLATURE").Select
Range(NOM8).Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula:=NOM10
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
dans la cellule D72 il y a =INDIRECT($B$16)

Le probleme est que lorsque dans la cellule j'enleve le signe egale Excel ne le reconnai pas en tant que fonction!
et lorsque il est present j'ai une erreur 1004

si vous connaissé la solution Merci d'avance


1 réponse

Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   1 466
 
Bonjour,
Juste au passage en voyant votre fichier sur https://www.cjoint.com/ (poster le lien) il sera possible de comprendre et vous venir en aide.
0