Autres Message box pour activer macro et eviter plusieur boutons.

LUYGYS · 2 Décembre 2019

Bonjour!
j' aimerai ajouter une message box, a du code vba que je joint en piéce jointe, qui permettrait d 'éviter d' avoir trop de boutons de commande ,
donc un message BOX qui donnerai la valeur a chercher au filtre pour lancer le code dans le code joint.

Je ne sais pas comment faire il y aurait quelqu' un qui saurait le faire !
merci d'avance.

LUYGYS

Staple1600 · 2 Décembre 2019

Bonsoir le fil, LUYGYS

LUYGYS
Pourquoi un fichier Word pour une question Excel dans le section Excel du forum ?

Staple1600 · 2 Décembre 2019

Re

Tiens c'est marrant des bouts de VBA dans ce code me disent quelque chose

VB:

Sub FiltrerII()
Dim vCrit
vCrit = ActiveSheet.Shapes(Application.Caller).Name
[A4:M600] = ""
Sheets("DATA").Range("$D$3:$M$600").AutoFilter Field:=3, Criteria1:=vCrit
Sheets("DATA").AutoFilter.Range.Copy Destination:=Sheets("DASH BORD").Range("C3")
Sheets("DATA").ShowAllData
Columns(15).AutoFit
On Error Resume Next
Application.ScreenUpdating = False
'recopie du logo
ActiveSheet.Shapes("LOGO").Delete
Sheets("LOGOS").Shapes(vCrit).Copy
[a1].Select
ActiveSheet.Paste
With Selection
.Name = "LOGO"
.ShapeRange.Left = [a1].Left
.ShapeRange.Right = [a1].Right
.ShapeRange.Top = [a1].Top
End With
[S1].Select
Application.CutCopyMode = False
End Sub

Staple1600 · 2 Décembre 2019

Re

Alors, je rajoute d'autres bouts (si j'ai bien compris la question )

VB:

Sub FiltrerIII()
Dim vCrit
vCrit = InputBox("Saisir votre critère de filtre,svp", "Filtrer", Application.UserName)
[A4:M600] = ""
With Sheets("DATA")
  .Range("$D$3:$M$600").AutoFilter 3, vCrit
  .AutoFilter.Range.Copy Destination:=Sheets("DASH BORD").Range("C3")
  .ShowAllData
End With
Columns(15).AutoFit
On Error Resume Next
Application.ScreenUpdating = False
'recopie du logo
ActiveSheet.Shapes("LOGO").Delete
Sheets("LOGOS").Shapes(vCrit).Copy
[a1].Select
ActiveSheet.Paste
With Selection
.Name = "LOGO"
.ShapeRange.Left = [a1].Left
.ShapeRange.Right = [a1].Right
.ShapeRange.Top = [a1].Top
End With
[S1].Select
Application.CutCopyMode = False
End Sub

LUYGYS · 2 Décembre 2019

Bonjour !
Ah oui j ai juste copie le code du vba et cole sur word pour que on puisse regarder le code et eventuelment et rajouter un message box comme demande. ce code je l' avais copier par une copie d ecran et colle dans la feuille visual basic .
LUYGYS

Staple1600 · 2 Décembre 2019

Re

Pourquoi ne pas l'avoir copié/collé dans le message directement ?
Comme je l'ai fait...
Tu as testé ma modif du message#4?

LUYGYS · 2 Décembre 2019

Rebonjour Je crois que vous avez tout compris test essaie et ca marche NICKEL... d' ailleurs je vois que vous vous et reconnaissez dans vos écritures
le code VBA initial je crois que ca vient de vous .... chears.

LUYGYS

LUYGYS · 2 Décembre 2019

Staple1600 à dit:
Re

Pourquoi ne pas l'avoir copié/collé dans le message directement ?
Comme je l'ai fait...
Tu as testé ma modif du message#4?

Bonjour je n ai pas pense a le copier directement mais la prochaine fois j essaie.
VU.

Staple1600 · 2 Décembre 2019

Re

Oui, c'est que je laissais entendre avec cette phrase, non ...

Tiens c'est marrant des bouts de VBA dans ce code me disent quelque chose

Et ce n'est pas une croyance mais une certitude

https://www.excel-downloads.com/thr...-aide-vba-excel.20037573/page-2#post-20268669

LUYGYS · 2 Décembre 2019

oui c est fait et c est tres bien ca marche a fond on peut pas demander mieux !

LUYGYS

Autres Message box pour activer macro et eviter plusieur boutons.

LUYGYS

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

LUYGYS

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

Discussions similaires