XL 2013 VBA - Indirect - Validation de données

[fil28]

Bonjour Le forum

Cela fait très longtemps que j'ai pas posté de message
Peut être que vous pourrez m'aider sur ce point.
Je dois modifier une liste dans validation de données mais voilà les problèmes commencent !

Range("D17906").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=indirect($C17)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Mais ca ne marche pas j'ai ensuite essayé une autre méthode mais sans succès non plus

Dim c As Range

'On Error Resume Next
For Each c In Sheets("Charges").Range("D17906")

c.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT(""" & c.Address(0, -1) & """)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next c

Du coup je ne vois pas trop !
Si quelqu'un a une idée je suis bien évidemment preneur

Merci encore
Philippe

 

[fil28]

Je viens d'essayer avec :

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT(" & c.Offset(0, -1).Address & ")"

Mais ca marche pas
Je capte pas !

 

[fil28]

C'est Bon
Pour ceux que ca intéresse la dernière était la bonne mais comme ma 1ere cellule était vide ca générait une erreur mettre : On error resume next
Bonne soirée à tous

 

[laurent950]

Bonsoir fil28

Essayer avec pour Range("$C17") :
                              Range("C17").Address(True, False)
                              OU
                              c.Offset(0, -1).Address(True, False)

Sub test()
Dim c As Range
For Each c In Sheets("Charges").Range("D17:D906")

With c.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(""" & Range("$C17").Address(True, False) & """)"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
Next c
End Sub

 

[fil28]

Merci beaucoup Laurent !
C'est super gentil !

Afin d'étayer un peu mes connaissances et me coucher un peu moins bête ce soir:
- Sais tu à quoi sert de mettre True & False derrière Address?
- J'ai vu aussi qu'il existait Address.Local je crois quelle est la différence ?

Excellente journée à vous tous qui nous aider
Philippe

 

[job75]

Bonjour fil28, laurent950,

Oui ce qu'il manquait surtout ce sont les guillemets pour encadrer l'adresse de la cellule.

Si l'on fait une boucle on peut garder les références absolues ce n'est pas gênant :

Sub a()
Dim c As Range
With [D17:D906]
    .Validation.Delete
    For Each c In .Cells
        c.Validation.Add xlValidateList, Formula1:="=INDIRECT(""" & c.Offset(0, -1).Address & """)"
    Next
End With
End Sub

Mais en fait on peut se passer de la boucle et de INDIRECT :

Sub b()
With [D17:D906].Validation
    .Delete
    .Add xlValidateList, Formula1:="=C17"
End With
End Sub

A+

 

[fil28]

Merci Job75 pour ce complément d'info
Bonne après midi à vous tous
Philippe

 

[FGV]

Bonjour @fil28

Excusez-moi pour la langue, je ne suis pas francophone.

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=INDIRECT(""" & Range("$C17").Address(True, False) & """)"

Si la cellule C17 est vide, le résultat de Formula1 renvoie une erreur

Pour une cellule, vous pouvez essayer

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=IF($C17="""",$C17,INDIRECT($C17))"

Salutations, Fernando

 

[job75]

Bonsoir FGV, bienvenue sur XLD,

Chez moi sur Excel 2019, avec les solutions du post #6, aucun problème si les cellules sont vides.

Simplement les listes de validation sont vides.

A+

 

[laurent950]

Bonsoir @fil28, Le Forum

Afin d'étayer un peu mes connaissances et me coucher un peu moins bête ce soir:
- Sais tu à quoi sert de mettre True & False derrière Address?

Msgbox Range("C17").Address(False, False) ' C17
Msgbox Range("C17").Address(False, True) ' $C17
Msgbox Range("C17").Address(True, False) ' C$17

C'est les $ Pour figer les positions en valeurs absolu pour (False = $) Ou (True = "Sans les $)

Comme l'exemple ci-dessus

 

[job75]

Bonsoir laurent950,

Range("C17").Address(False, False) ' C17
Range("C17").Address(False, True) ' C$17
Range("C17").Address(True, False) ' $C17

Il est facile de tester pour voir que les résultats de la 2ème et 3ème ligne ne sont pas corrects.

A+

 

[FGV]

Bonsoir FGV, bienvenue sur XLD,

Chez moi sur Excel 2019, avec les solutions du post #6, aucun problème si les cellules sont vides.

Simplement les listes de validation sont vides.

A+

Bonjour @job75 ,
Désolé, je n'avais pas vu le post 6, c'est parfait.
Salutations, Fernando