| ||||||||
Astucien | Bonjour, Peut-on fabriquer 2 macros à partir de ce code ? Sub Bouton_1() Fichier : http://www.cijoint.fr/cjlink.php?file=cj201009/cijCcRcW8P.xls Merci de votre aide Modifié par Saturnien le 16/09/2010 20:57 | |||||||
Publicité | ||||||||
| ||||||||
Petit astucien | Salut, peut-être ainsi : Sub Bouton_1() Dim L As Byte Randomize L = Int(Rnd() * 10 + 1) With Sheets("Liste") .Range("A" & L & ":G" & L).Copy .Range("M1") End With End Sub Sub Bouton_2() [B4].Value = Sheets("Liste").Cells(1, 13 + Int(Rnd() * 6 + 1)) End Sub Sub Bouton_3() Proposition_1 Proposition_2 End Sub
| |||||||
|
Les bons plans du moment PC Astuces | Tous les Bons Plans | ||||||||||||||||||
|