XL 2016 Indirect

Dranreb

XLDnaute Barbatruc

• 10 Juillet 2020

• #2

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juillet 2020

• #3

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.

 

Vote positif 0 Vote négatif

P

paneguilla

XLDnaute Nouveau

• 10 Juillet 2020

• #4

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juillet 2020

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juillet 2020

• #6

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&"_")

 

Vote positif 0 Vote négatif

P

paneguilla

XLDnaute Nouveau

• 10 Juillet 2020

• #7

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.

 

Pièces jointes

• Planning.xlsm

  15.8 KB · Affichages: 4

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juillet 2020

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

P

paneguilla

XLDnaute Nouveau

• 10 Juillet 2020

• #9

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

 

Vote positif 0 Vote négatif

P

paneguilla

XLDnaute Nouveau

• 10 Juillet 2020

• #10

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Juillet 2020

• #11

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

 

Dernière édition: 10 Juillet 2020

Vote positif 0 Vote négatif

Solution

P

paneguilla

XLDnaute Nouveau

• 10 Juillet 2020

• #12

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

 

Vote positif 0 Vote négatif