Discussion :

[jean30]

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/

[Thautheme]

Bonjour Jean, bonjour le forum,

Ton code a deux problèmes :
un " au lieu d'un ' après le Else
un End If en trop
Le voici modifié:

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
Private Sub Worksheet_Change(ByVal Target As Range)
'Afficher colonne si Oui ou Non
Dim PL As Range
 
If Target.Address <> "$D$25" Then Exit Sub
Set PL = Application.Union(Range("K36"), Range("AA34:AD36"))
If LCase(Target.Value) = "x" Then
    PL.Value = "x"
Else
    If MsgBox("Autoriser à visualiser la colonne ?", vbYesNo, "Autorisation...") = vbYes Then
        PL.Value = "x"
    Else   'si Non
        PL.Value = ""
    End If
End If
End Sub

[jean30]

Bonjour Thautheme et merci, j'avais remarqué également en relisant mon post, ce que j'aurai du faire avant