Discussion :

[jeanjean6]

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 :

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

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.

[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 :

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

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

Bonne journée

[gFZT82]

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 :

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
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

[jeanjean6]

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