[XL-2003] Liste déroulante et saisie libre [Résolu]

[bbcancer]

Bonjour,

J'ai peut être une question bête et peut être il n'y a pas de solution mais voilà mon problème.
J'ai 2 colonnes : ma 1ère colonne est une colonne avec une liste déroulante (donc la pas de souci) et dans ma 2ème colonne, j'aimerais avoir la possibilité en fonction de ma 1ère colonne soit avoir une liste déroulante (choix imposés) soit possibilité d'écrire ce que je veux.

Je ne sais pas si c'est clair. Au pire je vous joins un fichier

Merci par avance pour vos réponses

Cordialement

[jfontaine]

Bonjour,

oui, c'est faisable, mais il va falloir passer par VBA

[bbcancer]

Merci.
Si donc quelqu'un a la solution en vba je prends...

Cordialement

[jfontaine]

Difficile de te répondre avec si peu d'information (envoi le fichier proposé)

- Comment savoir si on doit mettre une liste déroulante ou laisser libre accès
- Quelle est la règle de chargement de la 2 eme liste déroulante

[bbcancer]

Bonjour,

Merci je t'envoie le fichier en espérant que tu pourras m'aider.
Si ce n'est pas clair j'expliquerais un peu plus.
Mais merci

Cordialement

[jfontaine]

Dans cette solution, j'ajoute le nom de la plage nommée dans la feuille "Commentaire A". Ce nom servira a alimenter la validation lors du choix dans la feuille de travail

Dans l’évènement Worksheet_Change de la feuille de travail, on gère de façon dynamique la plage de liste de validation

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StrValidation As String
 
If Target.Column = 1 And Target.Count = 1 Then
 
    'Recherche la correspondance de Validation
    StrValidation = Application.WorksheetFunction.VLookup(Target.Value, Sheets("Commentaire A").Range("A:B"), 2, 0)
 
    'Ajoute la validation sur la cellule a droite de la cellule cible
    Target.Offset(0, 1).Value = ""
    With Target.Offset(0, 1).Validation
        .Delete
        If StrValidation <> "" Then
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=" & StrValidation
        End If
    End With
 
End If
 
End Sub

Le fichier complet
Commentaire.xls

[bbcancer]

Merci beaucoup c'est ce que je voulais.

Bonne journée

Cordialement

[bbcancer]

Bonjour

J'ai de nouveau un souci.
Si je rajoute des lignes en haut pas de problème
Pas contre si je rajoute des colonnes là mon code ne marche plus. J'ai essayer de changer les lettres les chiffres mais rien n'y fait. J'ai du oublier de changer un endroit c'est pour ca mais je ne sais pas où. Si tu peux encore m'aider stp.
(Par exemple, mettre en colonne I et J) dans ma feuille de travail.

Merci

Cordialement

[jfontaine]

pour I et J

Code :

If Target.Column = 9 And Target.Count = 1 Then

[bbcancer]

Merci Ca marche

Si j'avais marqué quelque chose et que je me trompe j'efface mais il me marque une erreur d'exécution (Impossible de lire la propriété vlookup de la classe worksheetfunction).
Pas trop grave en soit, l'essentiel est que ca marche.

Par contre j'ai écrit un autre post sur ce forum et il me manque quelques solutions si tu as des idées sur l'autre je prends. Le sujet est mise en forme conditionnelle.

Encore merci

Cordialement