Autres Carburant Data Stats besoin de aide VBA Excel

LUYGYS

XLDnaute Occasionnel

• 25 Octobre 2019

• #16

Hello
Pas de probléme je ne suis pas presse, mais je suis sur le tableur !
quand il me vient un probléme j' écrit de suite.
Cordialement
LUYGYS 😉

 

Pièces jointes

• CARBURANT DATA STATS.xlsm

  574.3 KB · Affichages: 3

Dernière édition: 25 Octobre 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2019

• #17

Re

Pour le bouton TOUS

VB:

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

 

Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel

• 25 Octobre 2019

• #18

Bonsoir
Encore une fois bien jouée.
J'ai essaie et ça marche impeccable.
Cordialement

LUYGYS🙂

 

Pièces jointes

• CARBURANT DATA STATS.xlsm

  576.2 KB · Affichages: 8

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2019

• #19

Re

Mainteant pour copier les logos
Pré-requis: Il faut renommer les images des logos exactement comme le nom des boutons.

VB:

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

 

Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel

• 25 Octobre 2019

• #20

Bonsoir
j'ai mit les noms des images dans la feuille logos comme les boutons mais ils ne s'affichent pas tres bien sont pas bien centres dans la cellule et la positions est en C2 que j' ai change quand je click dans les boutons des marques
Quoi faire ?
Regardez le derniére version du tableur peut être vous voyez mieux ou est le probléme.
Cordialement🙄
LUYGYS

 

Pièces jointes

• CARBURANT DATA STATS.xlsm

  533.2 KB · Affichages: 16

Dernière édition: 25 Octobre 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2019

• #21

Re

Relire attentivement le précédent message
Notamment le passage où il est est question de Pré-requis
🙄

 

Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel

• 25 Octobre 2019

• #22

ok vu ! 🙂

 

Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel

• 26 Octobre 2019

• #23

Bonjour.
Le Tableur avance a grand pas !
Il y a un souci avec le BOUTON Tous actuellement nomée ENSEIGNE quand clicke le logo ne s affiche pas je n 'arrive pas a trouver pourquoi ?
Cordialement 🙂

LUYGYS

 

Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel

• 26 Octobre 2019

• #24

Bonjour.
Le Tableur avance a grand pas !
Il y a un souci avec le BOUTON Tous actuellement nomée ENSEIGNE quand clicke le logo ne s affiche pas je n 'arrive pas a trouver pourquoi ?
Cordialement 🙂

LUYGYS

 

Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel

• 26 Octobre 2019

• #25

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

 

Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel

• 26 Octobre 2019

• #26

Il y a une limite dans la taille du tableur a envoyer j'ai eu une message fichier trop volumineux ! ?
😵

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #27

Bonjour le fil,

LUYGYS
Comment s'appelle l'image qui va avec le bouton ENSEIGNE?

 

Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel

• 26 Octobre 2019

• #28

Bonjour
L' image s'appelle ENSEIGNES et le bouton ancien TOUS est maintenant ENSEIGNES qui va avec logo ENSEIGNES ! 😉
Cordialement
LUYGYS

 

Vote positif 0 Vote négatif