Liste de validation selon contenu cellule adjacente

pierrejean

XLDnaute Barbatruc

• 20 Octobre 2016

• #2

Bonjour vgendron

A tester:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 2 And Target.Row > 3 Then
   If Cells(Target.Row, 3).Value = 0 Then
    With Cells(Target.Row, 4).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=DemiJournée"
     End With
    Else
      Target.Offset(0, 1).Validation.Delete
    End If
End If
End Sub

[/code

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 20 Octobre 2016

• #3

Bonjour VGendron.

Validation de données, liste :

Code:

=SI($C4=0;DemiJournée;"")

Edit : Bonjour, Pierre-Jean.

 

Pièces jointes

• VGendron.xlsx

  10.8 KB · Affichages: 44

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Octobre 2016

• #4

Hello Pierre Jean

par VBA c'est nickel forcément ;-)

Merci

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Octobre 2016

• #5

Hello Victor

quel c.. je suis.. j'avais essayé..mais au lieu de mettre Liste. j'avais choisi "personalisé"..

et dis moi.. n'aurais tu pas été obligé de saisir la validation sur une ligne qui contient 0.. sous peine de voir un message d'erreur.... ;-)

Merci

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 20 Octobre 2016

• #6

Re,

n'aurais tu pas été obligé de saisir la validation sur une ligne qui contient 0.. sous peine de voir un message d'erreur.... ;-)

Cliquez pour agrandir...

Si, effectivement

 

Vote positif 0 Vote négatif

P

poilamonnez

XLDnaute Junior

• 20 Octobre 2016

• #7

Bonjour,

Tu peux utiliser la validation de donnée
=SI(C5=0;DemiJournée;"")
Pour que la validation s'enregistre il faut la placer sur une cellule qui répond "Vrai" à la condition en D5 par exemple.
Si tu essayes de placer cette validation en D4 par exemple tu n'arriveras pas à la valider.
Par contre ensuite rien ne t'empêches une fois validée de copier coller ta cellule D5 sur les autres cellules de la colonne D

Tu obtiendras le résultat voulu c'est à dire la liste Demijournée si la cellule C est égale à 0 et rien si c'est différent de 0

Cordialement

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Octobre 2016

• #8

merci Poilamonnez..
tu t'es fait griller par Victor.. non pas les poils du nez.. ;-)

 

Vote positif 0 Vote négatif