XL 2016 effacer le contenu d'une cellule contenant un menu deroulant

hdparcs · 12 Novembre 2023

Bonjour à tous,
En A1, j'affiche un texte au moyen d'un menu déroulant.
En A2, j'ai également un menu déroulant mais je souhaiterais que le texte affiché s'efface automatiquement chaque fois que je modifie A1 pour refaire le choix que je désire en A2.
Je pensais insérer une formule dans la Source de la Liste de Validation de données avec une formule du genre =SI(A1 modifié;RECHERCHEV(A1;Feuil!A1:B10;2);Liste déroulante) en laissant la colonne B de Feuil! vide ou à 0.
Cela peut-il fonctionner et quelle serait la formule.
J'ai lu qu'il existe une possibilité avec le VBA mais, à part accéder au code en cliquant droit sur l'onglet, je suis incapable de comprendre quelque chose à ce système et langage.
Je remercie d'avance celui qui pourra m’apporter la bonne formule, si elle existe.
Bonne journée

riton00 · 12 Novembre 2023

Bonjour,
A tester en VBA à mettre ce code dans la feuille même avec raccourci Alt + F11

VB:

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

Slts

riton00 · 12 Novembre 2023

Bonjour,
A tester en VBA à mettre ce code dans la feuille même avec raccourci Alt + F11

VB:

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

Slts

hdparcs · 16 Novembre 2023

C'est parfait !
Merci riton00
ou riton20/20

XL 2016 effacer le contenu d'une cellule contenant un menu deroulant

hdparcs

XLDnaute Junior

riton00

riton00

XLDnaute Impliqué

hdparcs

XLDnaute Junior

Discussions similaires