code vba mettre à jour la source d'une validation de données

Version imprimable

12/09/2019, 08h38
Moïen

code vba mettre à jour la source d'une validation de données

Bonjour à tous,

Je souhaite créer une macro qui met à jour automatiquement la source de ma validation de données qui se trouve dans un autre onglet,

ex :
dans un onglet "Tab 1" cellule A1 j'ai une validation de données par liste déroulante dont la source est la "Tab 2" de la cellule A1:A9

Après modification dans la "Tab 2" il n'y a que des données de la cellule A1:A5

En cliquant sur la macro celà met à jour la liste déroulante dans la "Tab 1", cellule A1 qui ne prendra comme source que les cellules A1:A5.

Merci d'avance pour votre aide la communauté :)

Moïen

Bonjour,

Essayez ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub MAJ_Validation()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim DerLig_Tab2 As Long
    Set f1 = Sheets("Tab 1")
    Set f2 = Sheets("Tab 2")
    On Error Resume Next
    f1.Range("A1").Validation.Delete
    DerLig_Tab2 = f2.[A100].End(xlUp).Row
    ActiveWorkbook.Names.Add Name:="Liste", RefersToR1C1:="='Tab 2'!R1C1:R" & DerLig_Tab2 & "C1"
    With f1.Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Liste"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Cdlt

12/09/2019, 09h45
Menhir
Citation:

Envoyé par Moïen

dans un onglet "Tab 1" cellule A1 j'ai une validation de données par liste déroulante dont la source est la "Tab 2" de la cellule A1:A9

Au lieu de donner "A1:A9" comme source de ta validation de données, donne un nom (Ruban Formules > Définir un nom) à cette zone et utilise ce nom pour désigner la source de la validation de données. Utilise "Calsseur" comme portée du nom.
Ainsi, il suffira de mettre à jour la zone du nom pour mettre à jour toutes tes validations de données.

Et si tu veux automatiser cette mise à jour avec une macro, ça pourra se faire en une seule ligne de code.
Je te le mets en 2 lignes pour que ce soit plus clair.
En supposant que ce nom est "MaValid" :
Code:

1 2 Set R = Range("MaValid")(1) Names("MaValid").RefersTo = "='" & R.Parent.Name & "'!" & Range(R, R.End(xlDown)).Address
12/09/2019, 15h16
Pierre Fauconnier

4 pièce(s) jointe(s)

Salut.

Utilise une table de données pour les données devant alimenter la liste de validation. Tu pourras ainsi nommer la zone du tableau qui correspond à la colonne souhaitée et ta liste de validation s'adaptera, sans même que tu aies besoin d'adapter la zone nommée. Tout se fera en automatique grâce au tableau structuré... Dès que tu modifieras les données du tableau (ajout, suppression, modification), la liste de validation s'adaptera sans aucune autre intervention de ta part. Tu n'as pas besoin de VBA pour cela.

Pièce jointe 502638

Pièce jointe 502642 Pièce jointe 502642

Pièce jointe 502644

Pièce jointe 502645
19/09/2019, 14h24
Moïen

Merci à vous

Bonjour et merci à tous,

désolé pour le temps de réponse...

merci à vous tous pour vos réponses pertinentes l'une et les autres, mon problème est résolu :)