Liste déroulante

Résolu/Fermé
Deanerys.R Messages postés 44 Date d'inscription lundi 25 janvier 2021 Statut Membre Dernière intervention 24 février 2021 - 25 janv. 2021 à 21:32
The_boss_68 Messages postés 928 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 10 juin 2024 - 4 févr. 2021 à 21:10
Bonjour,

Etant novice dans Excel et ne trouvant pas la réponse exacte dans le forum je vous soumets ma problématique.

J'ai deux cellules, chacune étant une liste déroulante.
Je cherche à rendre une cellule vide si l'autre est sélectionnée.

Exemple :
A1 et B1 sont deux cellules à liste déroulante.
Si un choix de A1 sélectionné déselectionner le choix de la cellule B1
et inversement,
Si un choix de B1 sélectionné désectionner le choix de la cellule A1.

Merci pour votre aide :)

2 réponses

The_boss_68 Messages postés 928 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 10 juin 2024 177
Modifié le 25 janv. 2021 à 22:21
Bonsoir

Test ce code.... le mettre dans la feuille même par Alt+F11

Private Sub worksheet_selectionchange(ByVal target As Range)
If Not Intersect(target, Range("A1")) Is Nothing Then
Range("B1").Value = ""
End If
If Not Intersect(target, Range("B1")) Is Nothing Then
Range("A1").Value = ""
End If
End Sub


Slts
1
Pardon pour ma réponse tardive je suis désolée :)

Merci pour ta réponse toute fois je ne sais pas où mettre ce code.
Pourquoi est-ce en anglais? Mon excel est en français et quand je fais des formules elles le sont également, je ne sais donc pas si je peux mettre des codes en anglais.

J'ai trouvé une solution en mettant une MFC pour cacher les caractères en appliquant la couleur de police blanche sur fond blanc.

Pardon du dérangement et merci beaucoup. :)
0
The_boss_68 Messages postés 928 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 10 juin 2024 177
4 févr. 2021 à 21:10
Bonsoir,

Réponse du post #2

Ps: Activer les macros au lancement du fichier

https://www.cjoint.com/c/KBeuhOBzHXj

Slts
0