Sub TOUS()
Application.ScreenUpdating = False
Sheets("DASH BORD").[C4:I1600] = ""
Sheets("DATA").[C3].CurrentRegion.Copy Sheets("DASH BORD").Range("C3")
Application.CutCopyMode = False
End Sub
Sub FiltrerII()
Dim vCrit
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
On Error Resume Next
Application.ScreenUpdating = False
'recopie du logo
ActiveSheet.Shapes("LOGO").Delete
Sheets("LOGOS").Shapes(vCrit).Copy
[J2].Select
ActiveSheet.Paste
With Selection
.Name = "LOGO"
.ShapeRange.Left = [J2].Left
.ShapeRange.Top = [J2].Top
End With
[J2].Select
Application.CutCopyMode = False
End Sub
Quelques idées pour le tableur CARBURANT DATA STATS le bouton actif devienne vert lorsque clique et tous les autres rouges |
un son lorsque on clik reset serait pas mal si c' est possible |
une message de warning quand on click reset avec 1 2 3 messages ou images en boucle serait pas mal aussi |
une image qui glisse automatiquement dans la feuille data par raport avec la derniere donnee entree |
une image qui glisse automatiquement dans la feuille dash bord par raport avec la derniere donnee affichee |
un peu de code vba serait bien venu ! |
Cordialement LUYGYS |