XL 2021 Liste Deroulante modifier oui non

vgendron à dit:

Hello

il faut passer par du VBA
voir PJ

Cliquez pour agrandir...

fanch55 à dit:

Salut à tous,
Ccode à mettre dans celui de la feuille :

VB:

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case True
    Case Intersect(Target, [B3:C7]) Is Nothing: ' rien hors zone
    Case [A2] = "non":
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [A2] = "non" And Not Intersect(Target, [B3:C7]) Is Nothing Then
        [A2].Select
    End If
End Sub

Oh purée, j'avais pas fait de refresh,
3 autres interventions
Pas mieux qu'eux ....

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @Plans24
edit bonjour Vincent et Gerard

Je te propose

Merci de ton retour

Cliquez pour agrandir...

job75 à dit:

Bonsoir Plans24,

A placer dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If LCase([A2]) = "oui" Or Intersect(Target, [B3:C7]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub

A+

Cliquez pour agrandir...

job75 à dit:

Bonsoir Plans24,

A placer dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If LCase([A2]) = "oui" Or Intersect(Target, [B3:C7]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub

A+

Cliquez pour agrandir...

Plans24 à dit:

quand vous dite placer dans le code de la feuille c 'est ou ?

Cliquez pour agrandir...

job75 à dit:

Pour aller dans le code de la feuille : clic droit sur l'onglet de la feuille et Visualiser le code.

Vous y verrez la macro que j'ai mise.

Cliquez pour agrandir...

vgendron à dit:

bonjour
pour mettre du code
1) Ouvrir l'éditeur VBA : Alt +F11
2) dans l'explorateur de projet à gauche, double clic sur le nom de la feuille dans laquelle on veut mettre le code: Ici; feuille "Feuille1(Sheet1)"
3) dans la fenêtre de code qui s'ouvre à droite, copier coller le code
4) fermer l'éditeur

5) à l'enregistrement du fichier, choisir "non" pour pouvoir enregistrer AVEC macro ==> l'extension du fichier devient .xlsm (m comme macro)

Cliquez pour agrandir...