Discussion :

[bosk1000]

Bonjour à tous

dans un fichier sur la colonne D j’inscris un code (numérique de 1 à 20)
et dans la colonne G je met un code comptable
donc je voudrais savoir si en fonction du code que je met en D, je peux avoir des propositions different en liste en G
exemple si je met 13 en D
si en G il peux me proposer en liste les classes
623014
421100
421001
431000
631100
437400
633300
437300
633000
791000


après il y a des cas plus simple
si je met 8 en D, il n'y a que 623011 en G

voila
merci pour votre aide

[jfontaine]

Bonjour,

Une méthode simple à mettre en place et à maintenir

- dans une feuille tu créais des plages nommées correspondant à tes listes de comptes. On appelera ces plages nommées "Liste" + numéro (ex : liste13)

- Dans l'évenement Worksheet_Change de la feuille de saisie tu mets ce code

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
23
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Gerreur
'Si modification dans colonne D
If Target.Column = 4 Then
 
    With Range("G" & Target.Row).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=liste" & Target.Value
    End With
End If
 
Exit Sub
Gerreur:
Application.EnableEvents = False
If Err.Number = 1004 Then
    Target.Value = ""
    Target.Select
    MsgBox "Le code saisie n'existe pas", vbCritical, "Erreur"
Else
    MsgBox Err.Number & " - " & Err.Description
End If
Application.EnableEvents = True
End Sub