Renvoyer vers une autre feuille en fonction d'une conditions ce

Résolu/Fermé
jim81818
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017
- 9 déc. 2017 à 15:09
jim81818
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017
- 9 déc. 2017 à 20:45
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

ccm81
Messages postés
10293
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 mai 2022
2 288
9 déc. 2017 à 17:14
Bonjour

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

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

9 déc. 2017 à 18:39
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
0
via55
Messages postés
13603
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
23 mai 2022
2 404
9 déc. 2017 à 17:28
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
0
jim81818
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017

9 déc. 2017 à 18:57
bonjour;
j'ai bien modifié mais sa ne marche pas

merci
0
via55
Messages postés
13603
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
23 mai 2022
2 404
9 déc. 2017 à 19:04
Poste un exemple de ton fichier su mon partage.fr fais créer un lien que tu copies et reviens coller ici
0
ccm81
Messages postés
10293
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 mai 2022
2 288
Modifié le 9 déc. 2017 à 19:52
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
0
jim81818
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017
> ccm81
Messages postés
10293
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 mai 2022

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

9 déc. 2017 à 19:57
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
0
via55
Messages postés
13603
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
23 mai 2022
2 404
9 déc. 2017 à 20:39
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
0
jim81818
Messages postés
28
Date d'inscription
jeudi 7 décembre 2017
Statut
Membre
Dernière intervention
17 décembre 2017

9 déc. 2017 à 20:45
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
0