Données validation avec choix par défaut

[perdinch]

Bonjour,
Sous excel 2003

Comment faire pour que dans la cellule a2 indique par défaut le terme "neutre" si la cellule a1 est vide et à défaut si A1 n'est pas vide proposée une liste déroulante avec 2 choix par exemple "bleu" ou "noir" en utilisant données validation?.

pour plus de compréhension je joint un fichier exemple.

MERCI DE VOTRE AIDE;

perdinch

 

[Minick]

Re : Données validation avec choix par défaut

Salut,

Un exemple:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        With Target.Offset(1)
            .Validation.Delete
                        
            If IsEmpty(Target) Then
                .Value = "Neutre"
            Else
                .Validation.Add xlValidateList, , , "=$E$1:$E$2"
                .ClearContents
            End If
        End With
    End If
End Sub

++
Minick

 

[pierrejean]

Re : Données validation avec choix par défaut

bonjour Perdinch

Vois si cela te convient

Edit: Salut Minick

 

[JHA]

Re : Données validation avec choix par défaut

Bonjour Perdinch, le forum,

Un essai sans macro avec 2 listes.

JHA

 

[perdinch]

Re : Données validation avec choix par défaut

merci à tous de votre aide .CA MARCHE !!!

Cordialement

PERDINCH

 

[perdinch]

Re : Données validation avec choix par défaut

Juste un complément d'info ...

L'affichage proposé dans une liste déroulante semble pour beaucoup d'utilisateurs de petite taille.Le changement de police n'y fait rien .
Existe t' il un moyen sans avoir recours à l'affichage d'excel qui est par défaut à 100% de rendre plus confortable le contenu des menus déroulants?

merci

perdinch