Discussion :

[Moïen]

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

[ARTURO83]

Bonjour,

Essayez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set R = Range("MaValid")(1)
Names("MaValid").RefersTo = "='" & R.Parent.Name & "'!" & Range(R, R.End(xlDown)).Address

[Pierre Fauconnier]

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.

[Moïen]

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