Bonjour sympathiques amis
Je sollicite votre aide une nouvelle fois pour modifier un code avec tous mes remerciements

En fonction du contenu de la cellule D25 :
La plage ("AA34:AD36") ne s'actualise pas correctement en réponse du MsgBox

Si D25 = "x"
K36 = "x" - AA34:AD36 = "x"
Si D25 = ""
K36 = "" - AA34:AD36 = ""

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Afficher colonne si Oui ou Non
Dim reponse As Variant
    If Target.Address = "$D$25" Then
        If LCase(Target.Value) = "x" Then
            Range("K36").Value = "x"
            Range("AA34:AD36") = "x"
        Else
            reponse = MsgBox("Autoriser à visualiser la colonne ?", vbYesNo, "Autorisation...")
            If reponse = vbYes Then  'si Oui
                Range("K36").Value = "x"
                Range("AA34:AD36") = "x"
        Else   "si Non
                Range("K36").Value = ""
                Range("AA34:AD36") = ""
            End If
        End If
    End If
End If
Origine : https://www.developpez.net/forums/d1...-selon-saisie/