Discussion :

[ancel17]

Bonjour,

J'ai des listes de validité dynamique qui me serviront à filtrer une base de données :
- une première liste permet de choisir le nom de l'élément à filtrer ;
- la seconde liste les valeurs possible en fonction de la première.

J'aimerai que ma seconde liste fasse apparaître comme première valeur "Tous" (sachant que cette valeur n'existe pas dans la base, elle serait inscrite en dur dans la liste).
Et comme j'ai un énorme doute sur la faisabilité de cette opération, une alternative serait de remplacer automatiquement la valeur vide par "Tous".

J'ai l'impression de ne pas être très clair, mais je joins un fichier !
LISTER VAL UNIQUES.ods

Merci pour vos contributions !

[ancel17]

Re,

Voilà qui ferait très bien l'affaire sous EXCEL, donc si l'un d'entre vous à une idée de comment le traduire en Basic LibreOffice ce serait formidable !

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Me.Range("C2:C5"), Me.Range("E2:E4"), Me.Range("H2:H5"))) Is Nothing Then
    If IsEmpty(Target.Value) Then
        Target.Value = "Tous"
    End If
End If
End Sub

[ancel17]

Résolu ! En tout cas pour la partie qui remplace la valeur vide par "Tous"...

J'utilise ce code assigné à l’événement "Contenu modifié" :

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
Private Sub Worksheet_Change()
Dim Sh as Object
Dim Target as Object
Set Sh = ThisComponent.Sheets.getByName("Avancement des travaux")
Set Target = ThisComponent.getCurrentSelection
col = Target.CellAddress.Column
lg = Target.CellAddress.Row
If col = 2 or col = 4 or col = 7 Then
	If lg <= 4 and lg <> 0 Then
		If Target.Type = com.sun.star.table.CellContentType.EMPTY Then
			Target.String = "Tous"
		End If
	End If
End If
End Sub

Je laisse ouvert à moins que quelqu'un me confirme qu'on ne peut pas faire une liste de validité de type 'plage de cellule' et lui ajouter la valeur "Tous" en tête de liste...