Renvoyer vers une autre feuille en fonction d'une conditions ce [Résolu/Fermé]

Signaler
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017
-
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017
-
Bonjour
j'ai besoin de votre aide !!!
j'ai une cellule avec une liste déroulante (OUI,NON), donc mon soucis
comment faire quand je sélectionne OUI dans la liste déroulante de la cellule ,directement il m'envoie vers une autre feuille???
Merci d'avance

4 réponses

Messages postés
9640
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 novembre 2020
1 986
Bonjour

Il faudra certainement passer par une macro
http://www.cjoint.com/c/GLjqnUR72gB

Cdlmnt
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017

Bonjour ccm81
c'est bien ca que je veux mais moi je veux juste que c'est (oui) il sélectionne la feuille 1 et si c'est (non) il fait rien
peux tu me dire comment modifier le programme car je suis pas vraiment futé en programmation
Messages postés
12869
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
29 novembre 2020
2 076
Bonjour

Il faut passer par une macro, exemple de macro à mettre dans le worksheet de la feuille concernée : ALT+F11 pour ouvrir l'éditeur VBA puis double clic sur le nom de la feuille dans l'arborescence, copier et coller la macro dans la page blanche, modifier la référence de la cellule de choix et le nom de la feuille à selectionner et fermer l'éditeur
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then 'B3 est la cellule de choix
If Target.Value = "OUI" Then Sheets("Feuil1").Select 'Feuil1 est le nom de la feuille à sélectionner si OUI
End If
End Sub


Cdlmnt
Via
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017

bonjour;
j'ai bien modifié mais sa ne marche pas

merci
Messages postés
12869
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
29 novembre 2020
2 076
Poste un exemple de ton fichier su mon partage.fr fais créer un lien que tu copies et reviens coller ici
Messages postés
9640
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 novembre 2020
1 986
Option Explicit

Const celOuiNon As String = "B3"
Const fOui As String = "Feuil2"
Const celCible As String = "A1"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range(celOuiNon)) Is Nothing Then
If Target.Value = "oui" Then
Sheets(fOui).Select
ActiveSheet.Range(celCible).Select
End If
End If
End Sub

RQ. Attention ici j'ai mis "oui" en minuscules, si dans ton fichier c'est "OUI" en majuscules, tu modifies

Cdlmnt
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017
>
Messages postés
9640
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 novembre 2020

Merci beaucoup à vous, vous m'avez sauver je vous souhaite une bonne soirée
a très bientôt
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017

Bonjour via55
c'est la même chose que ccm81 a envoyé, sauf que moi quand on sélectionne "non" je veux qu'il se passe rien, juste quand c'est "oui"
thank's
Messages postés
12869
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
29 novembre 2020
2 076
C'est bien ce que fait la macro de ccm81 (que je salue amicalement au passage) ou la mienne mais tu n'as pas du l'adapter correctement à ton fichier, c'est pour cela que je te demandais ton fichier, sans le voir on ne peut pas dire ce qui cloche
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017

mon probléme c'etait ma liste déroulante, j'ai du la supprimer et la recréer pour que sa marche
merci infiniment a vous deux