B
BoSo
Guest
Bonjour tout le monde, est il possible de lancer une macro via un menu deroulant? Si oui, pourriez vous m'expliquer la demarche a suivre?
For i = LBound(Tablo, 2) To UBound(Tablo, 2)
For j = LBound(Tablo, 2) + ii To UBound(Tablo, 2)
If Descending = False Then
If Tablo(C0, i) > Tablo(C0, j) Then
Tmp1 = Tablo(0, j) [color=FF0000]:[/color] Tmp2 = Tablo(1, j) [color=FF0000]:[/color] Tmp3 = Tablo(2, j) [color=FF0000]:[/color] Tmp4 = Tablo(3, j)
Tablo(0, j) = Tablo(0, i) [color=FF0000]:[/color] Tablo(1, j) = Tablo(1, i) [color=FF0000]:[/color] Tablo(2, j) = Tablo(2, i) [color=FF0000]:[/color] Tablo(3, j) = Tablo(3, i)
Tablo(0, i) = Tmp1 [color=FF0000]:[/color] Tablo(1, i) = Tmp2 [color=FF0000]:[/color] Tablo(2, i) = Tmp3 [color=FF0000]:[/color] Tablo(3, i) = Tmp4
End If
Else
If Tablo(C0, i) < Tablo(C0, j) Then
Tmp1 = Tablo(0, j) [color=FF0000]:[/color] Tmp2 = Tablo(1, j) [color=FF0000]:[/color] Tmp3 = Tablo(2, j) [color=FF0000]:[/color] Tmp4 = Tablo(3, j)
Tablo(0, j) = Tablo(0, i) [color=FF0000]:[/color] Tablo(1, j) = Tablo(1, i) [color=FF0000]:[/color] Tablo(2, j) = Tablo(2, i) [color=FF0000]:[/color] Tablo(3, j) = Tablo(3, i)
Tablo(0, i) = Tmp1 [color=FF0000]:[/color] Tablo(1, i) = Tmp2 [color=FF0000]:[/color] Tablo(2, i) = Tmp3 [color=FF0000]:[/color] Tablo(3, i) = Tmp4
End If
End If
Next j
ii = ii + 1
Next i
Sub MacroAssigneeAuMenuDeroulant()
Select Case Sheets('Feuil1').Range('B1').Value
Case 1: Lundi
Case 2: Mardi
Case 3: Mercredi
Case 4: Jeudi
Case 5: Vendredi
Case 6: Samedi
Case 7: Dimanche
End Select
End Sub
Sub Lundi()
MsgBox 'Vous avez cliqué sur Lundi'
End Sub
Sub Mardi()
MsgBox 'Vous avez cliqué sur Mardi'
End Sub
Sub Mercredi()
MsgBox 'Vous avez cliqué sur Mercredi'
End Sub
Sub Jeudi()
MsgBox 'Vous avez cliqué sur Jeudi'
End Sub
Sub Vendredi()
MsgBox 'Vous avez cliqué sur Vendredi'
End Sub
Sub Samedi()
MsgBox 'Vous avez cliqué sur Samedi'
End Sub
Sub Dimanche()
MsgBox 'Vous avez cliqué sur Dimanche'
End Sub