Liste déroullante et macro

[spitfire378]

Bonjour a tous, je souhaitais savoir si il était possible d'attribuer dans ma liste déroullante une ligne a une macro. Merci

 

[Compte Supprimé 979]

Re : Liste déroullante et macro

Salut Spitfire378,

Il n'est pas possible d'attribuer à une ligne spécifique, une macro.

En revanche on peut tester la valeur retournée par le choix effectué dans la liste déroulante

A+

 

[spitfire378]

Re : Liste déroullante et macro

Je n'ai pas encore pu tester dans mon code mais je te remercie pour l'aide

 

[spitfire378]

Re : Liste déroullante et macro

Alors j'ai essayé cecode tout en ajoutant dans un case l'appel d'une fonction avec un argument. Maic ca ne marche pas 😕 Voyez vous le probleme?

Option Explicit

Sub liste()
  Dim VCel As String
  VCel = Range("L5")
  Select Case VCel
     Case 1
       Dim Service As String
       Service = "0179"
       TriParService (Service)
     Case 2
       Dim Service As String
       Service = "7215"
       TriParService (Service)
     Case 3
       Dim Service As String
       Service = "09/10"
       TriParService (Service)
     Case Else
       MsgBox "Erreur"
   End Select
End Sub

Function TriParService(Service As Integer)

For i = [H65000].End(xlUp).Row To 2 Step -1
    If Cells(i, 8) <> Service Then Rows(i).Delete
Next i
End Function