Macro et Validation de donnée
JP
-
Le Pingou Messages postés 12656 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Macro et Validation de donnée
- Ethernet n'a pas de configuration ip valide - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel validation des données liste - Guide
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
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.
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.