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 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
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 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
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 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
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 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
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 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024
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 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
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