Sub Filtrer()
Dim vCrit
Application.ScreenUpdating = False
vCrit = ActiveSheet.Shapes(Application.Caller).Name
[A4:I1600] = ""
Sheets("DATA").Range("$C$3:$H$1600").AutoFilter Field:=2, Criteria1:=vCrit
Sheets("DATA").AutoFilter.Range.Copy Destination:=Sheets("DASH BORD").Range("C3")
Sheets("DATA").ShowAllData
Columns(3).AutoFit
End Sub
Re, Reblochon
Une première macro ( à affecter à tes boutons "pétroliers")
VB:Sub Filtrer() Dim vCrit Application.ScreenUpdating = False vCrit = ActiveSheet.Shapes(Application.Caller).Name [A4:I1600] = "" Sheets("DATA").Range("$C$3:$H$1600").AutoFilter Field:=2, Criteria1:=vCrit Sheets("DATA").AutoFilter.Range.Copy Destination:=Sheets("DASH BORD").Range("C3") Sheets("DATA").ShowAllData Columns(3).AutoFit End Sub
Bonjour.
j'ai assigne le macro que vous m' avez présente.
les boutons fonctionnent comme voulu sauf le bouton TOUS
qui devrait afficher toutes les enseignes de distribution de carburant au même temps ( ESSO BP ELF TOTAL LECLERC CARREFOUR) comment faire ?
le nombre de pleins ne s' affiche pas dans la cellule prévu dans DASH BORD et le logo ne change pas quand le bouton clicke est autre que Esso qu et est déjà !
Comment remédier a tout ça ?
La cellule adresse pompe ça serait bien que elle soit prise en compte aussi. merci !
Cordialement,
Et grand merci pour votre collaboration ça avance pas mal et j 'apprend du VBA excel magnifique !
LUYGYS
Sauf erreur de ma part, TOUS n'est pas une marque de carburantsUne première macro ( à affecter à tes boutons "pétroliers")
BonjourBonsoir le fil
LUYGYS
Toujours le même adage; "relire attentivement mon message précédent"
On pouvait y lire
Sauf erreur de ma part, TOUS n'est pas une marque de carburants
Donc pour TOUS, c'est pas compliqué d’adapter le code précédemment soumis, non ?