Empecher de rentrer valeur dans cellule avec liste deroulante

  • Initiateur de la discussion Initiateur de la discussion Elf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Elf

XLDnaute Nouveau
Bonjour a tous et toutes

j'ai une cellule contenant une liste deroulante jusque la tous vas bien, mais je voudrai empecher qu'on puisse rentrer une valeur directement dans la cellule et ainsi empecher d'avoir de mauvaise valeur.

Merci d'avance pour conseils
 
Re : Empecher de rentrer valeur dans cellule avec liste deroulante

Re,
....Là te t'aperçoit que tu ecrire ton propre texte et dans ce qu'a D2 prend la valeur du texte que tu viens de taper....
Je te concède que tu peux saisir une valeur, mais si elle n'est pas présente dans la liste, elle est immédiatement effacée et la procédure est stoppée et c'est bien conforme à ce que tu écris ci-dessous
si quelqu'un rentre une mauvaise valeur car derière je declanche un Private Sub Worksheet_Change(ByVal Target As Range) qui part la suite me génère une erreur. Alors pour éviter cela je veux interdire toute ecriture (en dehors de la liste)
Tu peux supprimer le message
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
    Set c = Sheets(2).Range("MaListe")
    If Application.CountIf(c, Target) = 0 Then
        Application.EnableEvents = False
        Target.ClearContents
        Application.EnableEvents = True
        Exit Sub
    Else
        'Ton code ici
    End If
End If

End Sub
A+
kjin
 
Re : Empecher de rentrer valeur dans cellule avec liste deroulante

Autant pour moi, désolé 😕

Ta macro n'était pas active lors de mon premier test

C'est parfait, exactement ce que je cherchait géniale et un grand merci 🙂🙂🙂

Si j'ai d'autre question je repasse vous voir A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
219
Réponses
5
Affichages
567
Retour