XL 2016 Indirect

[paneguilla]

Bonsoir,
J'aimerais utiliser la fonction Indirect mais dans une macro VBA en fonction de la valeur de la cellule A7.
Par exemple, si en A7 j'ai "CD3591", je veux qu'en A8 j'ai une liste déroulante avec pour formule "=Indirect("CD3591_").
Il faut rajouter le tiret du 8, car je me sers du gestionnaire de nom et Excel rajoute automatiquement le tiret du 8 car j'ai l'impression que cela ne peut se terminer par un chiffre.
J'ai déjà essayé beaucoup de codes différents et aucun ne fonctionne.
Merci.

 

[Dranreb]

Bonsoir.
Ce qu'on ne peut surtout pas définir c'est un nom qui pourrait se confondre avec une adresse de cellule !

 

[Dranreb]

J'ai réussi à mettre une validation Liste avec comme formule =INDIRECT($A$7).
Ça marche si A7 contient un nom valide ayant été défini.

 

[paneguilla]

Bonsoir Dranreb,
Je viens d'essayer et cela ne fonctionne pas pour ma part.
Pouvez-vous m'envoyer le classeur Excel pour que je puisse voir le code VBA ?
Je vous remercie.

 

[Dranreb]

Je n'ai pas écris de macro.
Ce serait plutôt à vous de joindre un classeur.

 

[Dranreb]

Alors si on ne peut pas éviter à la fin du nom un '_' non spécifié dans la A7,
j'ai aussi réussi à spécifier comme liste =INDIRECT($A$7&"_")

 

[paneguilla]

Je vous mets mon classeur en pièce jointe.
Le fait est que j'y arrive sans faire de macro mais j'ai besoin de l'automatiser sous VBA.
Je vous remercie encore pour vos réponses.

 

[Dranreb]

En mettant Formula1 et en doublant les guillemets ça marche chez moi :

Sub Liste()
   With Sheets("Feuil1").Range("C2").Validation
       .Delete
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
         xlBetween, Formula1:="=INDIRECT($C$1&""_"")"
       .IgnoreBlank = True
       .InCellDropdown = True
       .InputTitle = ""
       .ErrorTitle = ""
       .InputMessage = ""
       .ErrorMessage = ""
       .ShowInput = True
       .ShowError = False
      End With
   End Sub

 

[paneguilla]

En effet, ca marche aussi pour moi. Merci encore pour votre aide.
Bonne soirée !

 

[paneguilla]

Bonsoir,
Désolé de déranger encore, mais maintenant je veux qu'à la place de la cellule C8, ce soit la cellule sur laquelle on clique. J'ai testé le code suivant, mais cela ne fonctionne pas.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("Feuil1").Range("C2").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT(Target.Address&""_"")"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
End Sub

Merci.

 

[Dranreb]

Mettez Formula1:="=INDIRECT(" & Target.Address & "&""_"")"

 

[paneguilla]

Merci beaucoup, cela fonctionne très bien.
Bon week end !