Bonjour
Je n'arrive pas a déclencher 2 macros avec un seul bouton
Je vous joins les 2 codes VBA presque identiques
Merci pour votre aide
Sub tirage()
Dim tTab, iRow%, iCol%, iNb%, iMod%, iNum%
Cancel = True'
iRow = Range("A" & Rows.Count).End(xlUp).Row
iNb = Fix((iRow - 1) / 5)
iMod = (iRow - 1) Mod 5 '
tTab = Range("A2:A" & iRow).Value
[D7:L10].ClearContents
iCol = 2
For x = 2 To iRow
iTRow = 6
iCol = iCol + 2
iNum = iNum + 1
For y = x To x + (iNb - 1) + IIf(iNum <= iMod, 1, 0)
iTRow = iTRow + 1
Do
iRnd = Int((iRow - 1) * Rnd + 1)
Loop Until CInt(tTab(iRnd, 1)) > 0
Cells(iTRow, iCol) = tTab(iRnd, 1)
tTab(iRnd, 1) = 0
Next
x = y - 1
Next
End Sub
Sub sort()
Dim tTab, iRow%, iCol%, iNb%, iMod%, iNum%
Cancel = True'
iRow = Range("A" & Rows.Count).End(xlUp).Row
iNb = Fix((iRow - 1) / 5)
iMod = (iRow - 1) Mod 5 '
tTab = Range("A2:A" & iRow).Value
[D2:L5].ClearContents
iCol = 2
For x = 2 To iRow
iTRow = 2
iCol = iCol + 2
iNum = iNum + 1
For y = x To x + (iNb - 1) + IIf(iNum <= iMod, 1, 0)
iTRow = iTRow + 1
Do
iRnd = Int((iRow - 1) * Rnd + 1)
Loop Until CInt(tTab(iRnd, 1)) > 0
Cells(iTRow, iCol) = tTab(iRnd, 1)
tTab(iRnd, 1) = 0
Next
x = y - 1
Next
End Sub