Discussion :

[valleygo]

Bonjour tout le monde. Voilà ce que j'ai réussi à faire sur VBA (étant complètement débutante)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Essai1()
'
' Essai1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
trig = UCase(InputBox("Donner le nom de l'agence", agence))
 
Range("E2").Select
ActiveCell.FormulaR1C1 = "=Feuil1!RC[-1]"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E22"), Type:=xlFillDefault
Range("E2:E22").Select
End Sub

J'explique: je travaille sur deux feuilles (Feuille 1 et feuille 2). La feuille 1 contient une liste d'agences bancaires ainsi que les résultats de chacune (pour faire simple ^^ ). Le but est d'afficher les informations sur la page 2, mais uniquement celles de l'agence dont je préciserai le nom, pour cela j'ai utilisé cette fonction: trig = UCase(InputBox("Donner le nom de l'agence", agence))
Mais comment faire pour cibler les informations de CHAQUE agence et permettre d'y accéder sur la page 2 en indiquant simplement le nom.
J'espère avoir été claire. Merci d'avance pour votre aide .
PS: j'ai pensé à une solution que ne n'arrive pas à "formuler", toujours en mode macro effectuer un tri sur la feuille1 qui dépendra du nom d'agence que j'aurai indiqué .
Encore une fois, j'espère avoir été claire

[Philippe Tulliez]

Bonjour,
Si j'ai bien compris, tu souhaites obtenir sur la feuille 2 les lignes ou partie de lignes se trouvant en feuille 1 suivant critères.
Si c'est bien cela, c'est typiquement une solution à traiter avec le filtre avancé d'excel.
Voir tutoriel Les filtres avancés ou élaborés dans Excel avec des exemples dans un classeur téléchargeable

[valleygo]

Merci pour votre aide , mais est-ce que ça me permet d'automatiser mon travail ou pas ? je m'explique: mon objectif est de pouvoir préciser un nom d'agence sur la feuille 2, et d'obtenir uniquement les informations relatives à cette agence (informations se trouvant initialement sur la feuille 1), et cela uniquement en cliquant sur le bouton que j'ai obtenu grâce à cette commande :
Dim agence As String, trig
trig = UCase(InputBox("Donner le nom de l'agence", agence))

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Bien entendu que l'on peut automatiser
Avez-vous seulement jeté un coup d'oeil sur le lien ?