XL 2019 Autoriser la saisie d'une date dans une cellule sous deux conditions

J

JHA

XLDnaute Barbatruc

• 1 Mars 2022

• #2

Bonjour à tous,

Pour les cellules vides, je n'ai pas trouvé.

JHA

 

Pièces jointes

• Classeur Pat54.xlsx

  9.1 KB · Affichages: 4

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mars 2022

• #3

bonjour
pour ce genre de contrôle de pré/post saisie il te faudra une macro tu ne pourra pas gérer les deux avec une formule (forcement reference circulaire ) meme avec une validation
donc ton fichier c'est un xlsx ou xlsm?
tu veux des macros ou pas ?
soyez plus complet dans vos demandes

 

Vote positif 0 Vote négatif

P

Pat54

XLDnaute Nouveau

• 1 Mars 2022

• #4

Bonjour à vous deux et merci pour vos réponses, @JHA je vais tester ta solution et te tiendrai au courant. @patricktoulon mon fichier est bien un xlsm et si tu veux bien me fournir le code, je suis preneur bien évidemment. Merci d'avance
Cordialement
Patrick du 54

 

Vote positif 0 Vote négatif

P

Pat54

XLDnaute Nouveau

• 1 Mars 2022

• #5

Je viens de tester ta solution @JHA , le soucis est que si on met "oui", on peut rentrer une date mais si on remet non ou - , la date reste, il faudrait que la date s'efface.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mars 2022

• #6

re

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column
    Case 2
        If Target.Offset(, -1) <> "Oui" Then MsgBox "nan nan!!": Target.Offset(, -1).Select: Exit Sub
    Case 1
        If Target.Value <> "Oui" Then Target.Offset(, 1) = ""
    End Select

End Sub

 

Vote positif 0 Vote négatif

P

Pat54

XLDnaute Nouveau

• 1 Mars 2022

• #7

patricktoulon à dit:

re

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column
    Case 2
        If Target.Offset(, -1) <> "Oui" Then MsgBox "nan nan!!": Target.Offset(, -1).Select: Exit Sub
    Case 1
        If Target.Value <> "Oui" Then Target.Offset(, 1) = ""
    End Select

End Sub

Cliquez pour agrandir...

Re, merci pour le code. Dans la description du problème j'avais pris les cellules A1 et A2 pour exemple mais je me rends compte que je n'aurai pas dû car en fait c'est plus complet que çà. Les cellules a prendre en compte sont J8 et J10 et j'ai essayé de modifié ton code comme ceci mais cela ne fonctionne pas. Au cas ou , je joins le fichier.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Select Case Target.Address
Case "$J$10"
If Target.Offset(, -1) <> "oui" Then MsgBox "remplir la case certif!!": Target.Offset(, -1).Select: Exit Sub
Case "$J$8"
If Target.Value <> "oui" Then Target.Offset(, 1) = ""
End Select
End Sub

 

Pièces jointes

• Liste des coureurs.xlsm

  43.4 KB · Affichages: 0

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mars 2022

• #8

re
réfléchi une seconde
J8 et J10 avec offset(1 ou -1 ) ???????????
allo docteur .....

 

Vote positif 0 Vote négatif