validation de donnee

[GHISLAIN]

bonjour le forum,

je souhaite activé une cellule contenant une validation de données uniquement si la cellule précédente (contenant aussi une liste de choix ) soit sur le choix "PRÉSENT"
si ce choix n est pas activé , avoir un type de message : le choix de cette cellule ne peux etre activé , la cellule situation n'est pas sur PRÉSENT.


merci de votre aide et suggestion

cordialement

ghislain

 

[R@chid]

Re : validation de donnee

Bonjour,
Voir PJ
J'ai renommé la liste "duree" ==> "PRESENT" et je l'ai fait avec INDIRECT()
Amicalement

 

[R@chid]

Re : validation de donnee

ReBonjour,
on peut le faire aussi avec : =SI($C3="PRESENT";duree;""),
mais il faut mettre "PRESENT" dans la cellule $C3 avant de le faire avec cette formule...
Amicalement

Edit : Salut Chris

 

[chris]

Re : validation de donnee

Bonjour

Pour un message il faudrait du vba : tu peux adapter le message de base et utiliser la solution suivnte :
créer une liste contenant la valeur 0 et la nommer duree2.
Puis mettre la formule que tu as testée mais au lieu de "" tu mets durée2.

Edit : coucou Rachid

 

[chris]

Re : validation de donnee

Bonjour

La solution de RACHID est plus élégante que le mienne.

Tu peux utiliser l'onglet "Message de Saisie" de la validation pour mette une consigne du type
"Seule la situation PRESENT permet la saisie d'un temps

 

[GHISLAIN]

Re : validation de donnee

bonjour Rachid_0661

je viens de mettre en oeuvre ta proposition , elle fonctionne impect

merci de ton aide et d avoir resolu mon souci

cordialement

GHISLAIN

 

[GHISLAIN]

Re : validation de donnee

bonjour chris,

merci detre passé sur mon fil , je suis interressé par le mess en vba , si tu as une idee de la façon de faire je t en remercie par avance .
cordialement

Ghislain

 

[chris]

Re : validation de donnee

Bonjour

Voir ci-joint

plage nommé temps + code de la sheet planing

 

[GHISLAIN]

Re : validation de donnee

re chris,

je viens de tester ta proposition qui fonctionne inpect.

j aurais toutefois une question



si je souhaite ajouter une nouvelle colonne et controler la saisie de la meme façon les exit sub empeche le deroulement de la procedure

j ai donc tenté sans resultat :




If Intersect(Target, Range("temps")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
If Target.Offset(0, -1) <> "" And Target.Offset(0, -1).Value <> "PRESENT" Then MsgBox ("toto")

end if


If Intersect(Target, Range("temps2")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
If Target.Offset(0, -2) <> "" And Target.Offset(0, -2).Value <> "PRESENT" Then MsgBox ("toto2")

end if



merci de m eclairer pour pouvoir controler les deux colonnes (nb la seconde sera a coté de celle nomée temps)

cordialement

ghislain

 

[chris]

Re : validation de donnee

Bonjour

A tester

If  Intersect(Target, Range("temps"))Is Nothing and Intersect(Target, Range("temps2")) Is Nothing then exit sub

ou

If  Intersect(Target, Range("temps", "temps2"))Is Nothing then exit sub

 

[chris]

Re : validation de donnee

Re

J'ai oublié de préciser la suite donc

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("temps", "temps2")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Not (Intersect(Target, Range("temps")) Is Nothing) Then
        If Target.Offset(0, -1) <> "" And Target.Offset(0, -1).Value <> "PRESENT" Then MsgBox ("le choix de cette cellule ne peux etre activé, la cellule situation n'est pas sur PRESENT")
    Else
        If Target.Offset(0, -2) <> "" And Target.Offset(0, -2).Value <> "PRESENT" Then MsgBox ("cas2")
    End If
End Sub

 

[GHISLAIN]

Re : validation de donnee

re chris,

je viens de mettre en place ton code il fonctionne parfaitement

je te remercie de ton aide et d'avoir solutionné mon probleme

bonne soiree

cordialement

ghislain

 

[chris]

Re : validation de donnee

Re

Et bien tout est bien qui finit bien 🙂🙂

 

[GHISLAIN]

Re : validation de donnee

c est re moi,

une nouvelle question
Target.Offset(0, -3) - defini la cellule de référence par rapport a la cellule active
ceci fonctionne bien si je rentre toute mes colonnes d un coup
toutefois , l'ensemble des colonnes sont affectées a une personne , et je dois ajouter ou supprimer des personnes sur mon fichier
final a la demande .
l ajout des colonnes se fait par macro , du coup (0, -3) ne sera jamais a la meme place
ne serait il donc pas possible , de definir une plage a la place de Target.Offset(0, -3)?

definir la colonne situation comme etant la plage de reference ??


cordialement

ghislain