Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Changement de feuille suivant valeur cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Chounoé

XLDnaute Nouveau
Bonjour, je viens vers vous car j'aimerai créer un lien direct en changeant une cellule. Exemple j'aimerai écrire 15 dans la cellule B6 et une fois valider il m'envoie directement à la feuille 15 et ainsi de suite.
je vous ai mis le fichier joins pour que vous comprenez plus rapidement.
Il s'agit d'une liste déroulante pour info.

Merci de votre aide
 

Pièces jointes

Bonjour,
.Text au lieu de .Value
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not (Application.Intersect(Range("B6"), Target) Is Nothing) Then _
        ThisWorkbook.Sheets(Target.Text).Activate
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
441
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…