Comment empécher une cellule (menu déroulant selon saisie d'une autre cellu

Bjr,je suis nouvelle dans ce forum,car je sollicite votre aide.Je ne connait rien dans les formules pour moi cela reste vraiment basique et pour l'instant je me débrouille avec ce que je cherche sur le net,mais là je bloque.

Voilà j'ai un tableau qui en colonne A chaque cellule a un menu déroulant de Nom -Prénom,en colonne K ce sont des dates de rentré que je saisie.(elle peut resté affichée 4 mois maximum)

Je voudrais que je ne puisse plus me servir de mon menu déroulant en A3 par exemple si en K3 j'ai entré une date .

Voilà,j'espère avoir était assez claire,et vous remercie d'avance

Mart

Bonjour,

A mettre dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column <> 11 Then Exit Sub
    If Target.Count > 1 Then Exit Sub

    If Target.Value <> "" Then 'voir ici si il faut contrôler si c'est bien une date !

        Target.Offset(, -10).Validation.Delete
        Target.Offset(, -9).Validation.Delete

    End If

End Sub

Merci beaucoup et surtout aussi vite je l'ai essayé et çà marche,mais voilà,cela supprime carrément le menu déroulant.

Je me suis peut être mal exprimée,c'est quand dans la colonne k dans une cellule j'inscrit une date dans la même ligne dans la colonne A,je ne peux rien écrire en me servant de mon menu déroulant mais lui :il faut qu'il reste;à la rigueur pour pousser aller plus loin maintenant que nous sommes en vba afficher un message en disant que la carte est déjà rentrée.

En tout cas merci beaucoup

ps

le but ,moi ,je cherchais à mettre une formule en A ,aller dans donnée et validation de donnée;mais voilà il y a déjà la liste du menu déroulant,donc apparemment on peut pas,mais est-ce qu'on peut écrire une formule du genre si k est rempli par une date alors on peut pas Ecrire en A

Mais je suis preneuse pour la vba

Mart et encore merci

J'ai même oublier de dire que lorsque j'ai mis une date en K,je ne peux pas écrire non plus,par contre dés que j'efface la date en K tout redeviens normal ,je peux utiliser que le menu déroulant.

Faudra m'excuser mai ma petite tête chauffe

Re,

A mettre dans le module de la feuille et supprimer l'ancien code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column > 2 Then Exit Sub
    If Target.Count > 1 Then Exit Sub

    If Cells(Target.Row, 11).Value <> "" Then Cells(Target.Row, 3).Select

End Sub

Merci beaucoup Theze çà marche bien pour moi

Dernière demande encore peut-on mettre un message box en disant impossible carte sortie pour faire comprendre pourquoi on ne peut pas saisir

Merci encore super et bravo

Mart

Bonjour,

Voici avec un message :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column > 2 Then Exit Sub
    If Target.Count > 1 Then Exit Sub

    If Cells(Target.Row, 11).Value <> "" Then

        MsgBox "Impossible de modifier la valeur, carte sortie !"
        Cells(Target.Row, 3).Select

    End If

End Sub