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

Yücel · 29 Septembre 2020

Bonjour,

Ma demande est dans le fichier ci-joint.

Merci d'avance pour votre aide.

sylvanu · 29 Septembre 2020

Fait.
Il faut insérer un Exit Sub

VB:

Exit Sub
Fin:
MsgBox " Locataire inexistant."
End Sub

Exit Sub : Fin normale de la macro, on sort
Si erreur on va à Fin et on affiche le msgbox.

sylvanu · 29 Septembre 2020

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 )

Yücel · 29 Septembre 2020

Bonjour Sylvanu,

Merci pour votre réactivité !

C'est parfait ! seulement en terme d'appart ça doit aller jusqu'à 50.

C'est à dire que le code L.50001 existe.

Est-ce possible ??

Merci !

sylvanu · 29 Septembre 2020

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 )

Yücel · 29 Septembre 2020

C'est parfait

En cas d'erreur si le locataire n'existe pas, j'ai essayé de rajouter les ligne suivantes mais ça ne fonctionne pas très bien ( je pense qu'ils sont mal placé ) :

On Error GoTo fin

fin: MsgBox " Locataire inexistant "

sylvanu · 29 Septembre 2020

Fait.
Il faut insérer un Exit Sub

VB:

Exit Sub
Fin:
MsgBox " Locataire inexistant."
End Sub

Exit Sub : Fin normale de la macro, on sort
Si erreur on va à Fin et on affiche le msgbox.

Yücel · 29 Septembre 2020

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 .

sylvanu · 29 Septembre 2020

Avoir résolu votre problème est suffisant.
XL peut être un plaisir aussi.
Merci.

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

Yücel

XLDnaute Junior

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Yücel

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

Yücel

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

Yücel

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Discussions similaires