XL 2010 Apparition d un message box

polyteis

XLDnaute Occasionnel
Bonjour,
Je vous expose mon souci.
Dans un fichier excel contenant plusieurs onglets, j ai placé un code dans une feuille nommée DEJ qui ouvre un onglet supplementaire et un msgbox
si sur cette la cellule D5 =oui
Private sub worksheet_change (byval target as range)
If [ d5] ="oui" then
Sheet("echeanchier").vjsible= true
Msgbox ("remplissez onglet echeancier")
Else
Sheets ("echeancier").visible=false
End if
End sub


Cela fonctionne bien, l 'onglet apparait , on clique sur ok le message disparait.
Mais si je renseigne d autres cellules de ma feuille DEJ, le message box apparait.

Que faut il faire pour parer de petit couac

Merci a vous
 

Fred0o

XLDnaute Barbatruc
Bonjour,
Je vous expose mon souci.
Dans un fichier excel contenant plusieurs onglets, j ai placé un code dans une feuille nommée DEJ qui ouvre un onglet supplementaire et un msgbox
si sur cette la cellule D5 =oui
Private sub worksheet_change (byval target as range)
If [ d5] ="oui" then
Sheet("echeanchier").vjsible= true
Msgbox ("remplissez onglet echeancier")
Else
Sheets ("echeancier").visible=false
End if
End sub


Cela fonctionne bien, l 'onglet apparait , on clique sur ok le message disparait.
Mais si je renseigne d autres cellules de ma feuille DEJ, le message box apparait.

Que faut il faire pour parer de petit couac

Merci a vous
Bonjour @polyteis

A tester :
VB:
Private Sub worksheet_change(ByVal target As Range)
    If Not Intersect(terget, [D5]) Is Nothing Then
        If [D5] = "oui" Then
            Sheet("echeanchier").vjsible = True
            MsgBox ("remplissez onglet echeancier")
        Else
            Sheets("echeancier").Visible = False
        End If
    End If
End Sub
 

Discussions similaires