Discussion :

[cazadeis]

Bonjour,

je rencontre le même problème que décrit dans ce post. La macro associée corrompt systématiquement le fichier. Une solution a été proposée mais je ne comprends pas sa mise en oeuvre. Il est question d'un Add'in.
Je ne sais pas comment faire autrement, le but étant de proposer des listes de validation qui ne contiennent que les valeurs non affectées. Je sais qu'il existe une solution avec les fonctions mais compte tenu du nombre d'onglets le nombre de zone nommées va être très important. C'est pour cette raison que je souhaite développer une solution en VBA.

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Pour une liste de données dont les éléments sont trop nombreux, j'utilise la procédure événementielle (BeforeDoubleClick), qui vérifie si la cellule où a eu lieu le double clic contient une Validation de données List si c'est le cas, j'invoque une procédure nommée ImprovedDataValidation qui lance un UserForm qui affiche dans un ListBox la table et une zone de texte permet de faire une recherche avec filtre.

Pour que cela fonctionne, j'ai mis comme contrainte, la référence à une plage nommée qui elle même fait référence à une colonne d'un tableau structuré.

Cette procédure peut bien entendu être placée dans un AddIn (classeur xlam)

Code de la procédure événementielle qui invoque la procédure ImprovedDataValidation

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
Private Sub Workbook_SheetBeforeDoubleClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
  ' Interception du double click pour lancer la boîte de dialogue (replace DataValidation)
  Dim rngValidation As Range
  Dim txt As String
  Dim ValidationType As Byte
  With Target
    ' Check if Target is ValidateList
    On Error Resume Next
    ValidationType = .Validation.Type
    On Error GoTo 0
    If ValidationType = xlValidateList Then
        txt = mStdUserForm.ImprovedDataValidation(usfImprovedDataValidation, .Validation.Formula1, .Value)
       .Value = txt
        Cancel = True
     End If
  End With
  Set rngValidation = Nothing
End Sub

La procédure invoquée a trois arguments, l'objet UserForm à afficher, la référence à la liste dans la validation de données (Target.Validation.Formula1) et la valeur présente dans la cellule où a eu lieu le double clic et la valeur présente dans la cellule où a eu lieu le double clic. Elle renvoie la valeur qui aura été sélectionnée dans le ListBox du UserForm ou l'ancienne valeur si aucune sélection n'a eu lieu

[cazadeis]

Merci pour votre réponse précise, je teste cela dès que possible.

Bonne journée