Condition + gest de nom + liste (validation des données)

Version imprimable

Bonjour à tous,

Je débute en "programmation" Excel et je ne connais pas grand chose.

J'aimerais simplement faire une condition sur toutes mes lignes de la sorte :
Code:

1 2 3 4 5 6 7 8 9 10 ALGO : SI A1 est VIDE alors B1 qui contient le gestionnaire de nom "articles_dispo" est affiché dans une liste (de type validation de données) SINON B1 contient le gestionnaire de nom "article_non_dispo" dans la liste de type validation de données FIN SI
Si vous pourriez m'aiguiller sur les structures et mises en formes à voir pour faire ce type d'algo, je vous en remercierai.

05/04/2013, 10h04
Guiiand

Bonjour,

Voici un exemple a adapté.

De G1 à G3 j'ai ma liste "article dispo"

De H1 à H3 j'ai ma liste "article non dispo"

Place toi dans la cellule B1, puis va dans "Données", "Validation" et choisi liste.

Puis dans source, place la formule suivante :

Code:

=SI($A$1="";$G$1:$G$3;$H$1:$H$3)

Bonne journée

1 pièce(s) jointe(s)

Bonjour,

Tu peux utiliser l'évènement Change de la feuille.
Lorsqu'une modification de la cellule A1 est détecté, on contrôle la valeur de A1.
Si la cellule A1 est vide, alors la cellule B1 est renseignée avec la liste de validation "=article_non_dispo"
sinon, la cellule B1 est renseignée avec la liste de validation "=articles_dispo".

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Address = "$A$1" Then
        With Range("B1").Validation
            .Delete
            'Si la cellule A1 est vide
            If Target = "" Then
                'alors la cellule B1 est renseignée avec la liste de validation "=article_non_dispo"
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=article_non_dispo"
            Else
                'sinon,la cellule B1 est renseignée avec la liste de validation "=articles_dispo"
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=articles_dispo"
            End If
        End With
    End If
End Sub

05/04/2013, 10h14
jeanjean6

Merci pour vos réponses je vais tester ça ce we je vous tiens au courant.