XL 2021 Liste Deroulante modifier oui non

[Plans24]

Bonjour a tous ceux qui animent ce forum et qui aident des debutants comme moi
vous etes formidables

Ma demande concerne une Liste Deroulante Oui Non qui autorise ou nom la modification

dans mon exemple la liste deroulanteest en A2
Comment si NON bloquer la modification des celules B3 C3 a B7 C7
Comment si OUI debloquer la mofication des celules de B3-C3 a B7-C7
J ai joins mon fichier exemple
un grand Merci de votre aide

 

[job75]

Bonsoir Plans24,

A placer dans le code de la feuille :

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+

 

[vgendron]

Hello

il faut passer par du VBA
voir PJ

 

[Phil69970]

Bonjour @Plans24
edit bonjour Vincent et Gerard

Je te propose

Merci de ton retour

 

[fanch55]

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

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 ....

 

[Plans24]

Hello

il faut passer par du VBA
voir PJ

VBA ? je ne saurai pas ajouter cela a ma feuille finale
puis je vous demander de me l'incorporer dans mon Doc excel "Final Step" ?
je joint le fichier "Final Step" ci dessous.
Les celules sont en L M N, de 2 a 7
Merci 10000 Fois c'est exactement ce que je cherchais

 

[Plans24]

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

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 ....

Merci beaucoup pour votre aide

 

[Plans24]

Bonjour @Plans24
edit bonjour Vincent et Gerard

Je te propose

Merci de ton retour

Merci beaucoup pour votre aide

 

[Plans24]

Bonsoir Plans24,

A placer dans le code de la feuille :

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+

Merci beaucoup pour votre aide

 

[Plans24]

Bonsoir Plans24,

A placer dans le code de la feuille :

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+

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

 

[Phil69970]

@Plans24

Ma proposition

 

[job75]

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

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.

 

[Plans24]

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.

j ai vu super merci
je vais chercher comment on insert une macro pour comprendre mieux et pouvoir adapter cette liste a d'autre projets
merci encore de votre patience

 

[vgendron]

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)

 

[Plans24]

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)

J ai bien passé les etapes 1 a 4 en adaptant le code aux celules concernees L2 et M3 A N7

Mais a l'enregistrement j'obtient ceci

avez vous une idee ?
Merci
pascal