XL 2016 VBA : renvoi vers une autre feuille selon indication cellule

Yücel

XLDnaute Junior
Bonjour,

Ma demande est dans le fichier ci-joint.

Merci d'avance pour votre aide.
 

Pièces jointes

  • TUTO 3.xlsx
    29.2 KB · Affichages: 17

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Yücel,
Un essai en PJ avec la macro événementielle ci dessous.
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B1:B100")) Is Nothing And Target <> "" Then ' Adapter 100 sur la longueur de la liste Recap
        Sheets(Mid(Target, 3, 1)).Activate                                      ' extraction N° feuilles, 1 car après le point.
        ActiveSheet.Range("$B$4:$G$100").AutoFilter Field:=1, Criteria1:=Target ' Adapter 100 sur la longueur de la liste des apparts
    End If
End Sub
Ne marche dans l'état que pour 9 apparts. ( de L.1xxx à L.9xxx )
 

Pièces jointes

  • TUTO 3.xlsm
    36.9 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Yücel,
Un essai en PJ avec la macro événementielle ci dessous.
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B1:B100")) Is Nothing And Target <> "" Then ' Adapter 100 sur la longueur de la liste Recap
        Longueur = Len(Target)
        If Longueur = 6 Then
            Sheets(Mid(Target, 3, 1)).Activate                                   ' extraction N° feuilles, 1 car après le point.
        Else
            Sheets(Mid(Target, 3, 2)).Activate                                   ' extraction N° feuilles, 2 car après le point.
        End If
        ActiveSheet.Range("$B$4:$G$100").AutoFilter Field:=1, Criteria1:=Target ' Adapter 100 sur la longueur de la liste des apparts
    End If
End Sub
Ne marche dans l'état que pour 99 apparts. ( de L.1xxx à L.99xxx ) :):):):):)
 

Pièces jointes

  • TUTO 3_2.xlsm
    41.1 KB · Affichages: 3

Yücel

XLDnaute Junior
Encore merci Sylvanu !

Je souhaiterais vous remercier autrement que par des mots (financièrement). Est-ce possible ?

Vous avez été très réactif à mes demande, et surtout su répondre de manière parfaite !

Il faut que je me mette à apprendre le langage VBA ça sera le plus simple :).
 

Discussions similaires

Réponses
3
Affichages
120

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata