Autres Message box pour activer macro et eviter plusieur boutons.

[LUYGYS]

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]

Bonsoir le fil, LUYGYS

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

 

[Staple1600]

Re

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

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]

Re

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

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]

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]

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]

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]

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]

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]

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

LUYGYS