Renvoyer vers une autre feuille en fonction d'une conditions ce
Résolu
jim81818
Messages postés
28
Date d'inscription
Statut
Membre
Dernière intervention
-
jim81818 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
jim81818 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Renvoyer vers une autre feuille en fonction d'une conditions ce
- Fonction si et - Guide
- Vers quelle adresse web renvoie ce lien - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
- Bruler une feuille de laurier - Guide
- Comment supprimer une feuille sur word - Guide
4 réponses
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
Cdlmnt
Via
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
Poste un exemple de ton fichier su mon partage.fr fais créer un lien que tu copies et reviens coller ici
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
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