à l'origine l'onglet feuille 2 et feuill 3 sont caché
voila ce que je veux faire dans feuill 1
quand je saisie en a1 "isabelle moreau", je veux que ca AFFICHE un onglet
nomée "isabelle" (feuille 1)
quand je saisie en a2 "damien guilbert", je veux que ca AFFICHE un onglet
nomée "damien" (feuille2
mais aussi
quand je suprime le nom en a1 "isabelle moreau" je souhaite avoir un
userform disant '"etes vous sûr?" et quand on dit oui l'onglet "isabelle
moreau " est CACHE
quand je renom dans ma cellule a1 "isabelle moreau" en "dede" je veux qu'il
me reaffice la feuille 1 avec le nom dede
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
IdAL
Salut,
Une proposition : Private Sub Worksheet_Change(ByVal Target As Range) Dim NomChoisi As String If Target.Address = ("$D$6") Then 'adresse de la liste déroulante ou de la cellule à saisir' NomChoisi = Target.Value Select Case NomChoisi Case "dede" Feuil1.Visible = False Feuil2.Visible = True Feuil3.Visible = False Case "isabelle moreau" Feuil1.Visible = False Feuil2.Visible = False Feuil3.Visible = True Case "damien guibert" Feuil1.Visible = True Feuil2.Visible = False Feuil3.Visible = False End Select End If End Sub
Mais tu devras adapter le nom des feuilles...
De plus il te faudra mettre ça dans chaque feuille puisque la feuille dede se planque... Bonne journée ! IdAL
Salut,
Une proposition :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NomChoisi As String
If Target.Address = ("$D$6") Then 'adresse de la liste déroulante ou de la
cellule à saisir'
NomChoisi = Target.Value
Select Case NomChoisi
Case "dede"
Feuil1.Visible = False
Feuil2.Visible = True
Feuil3.Visible = False
Case "isabelle moreau"
Feuil1.Visible = False
Feuil2.Visible = False
Feuil3.Visible = True
Case "damien guibert"
Feuil1.Visible = True
Feuil2.Visible = False
Feuil3.Visible = False
End Select
End If
End Sub
Mais tu devras adapter le nom des feuilles...
De plus il te faudra mettre ça dans chaque feuille puisque la feuille dede
se planque...
Bonne journée !
IdAL
Une proposition : Private Sub Worksheet_Change(ByVal Target As Range) Dim NomChoisi As String If Target.Address = ("$D$6") Then 'adresse de la liste déroulante ou de la cellule à saisir' NomChoisi = Target.Value Select Case NomChoisi Case "dede" Feuil1.Visible = False Feuil2.Visible = True Feuil3.Visible = False Case "isabelle moreau" Feuil1.Visible = False Feuil2.Visible = False Feuil3.Visible = True Case "damien guibert" Feuil1.Visible = True Feuil2.Visible = False Feuil3.Visible = False End Select End If End Sub
Mais tu devras adapter le nom des feuilles...
De plus il te faudra mettre ça dans chaque feuille puisque la feuille dede se planque... Bonne journée ! IdAL
