> Tous les forums > Forum Bureautique
 Choisir au Hasard en ligne
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Saturnien
  Posté le 15/09/2010 @ 16:54 
Aller en bas de la page 
Astucien

Bonjour,

Peut-on fabriquer 2 macros à partir de ce code ?

Sub Bouton_1()
[B5].ClearContents
Dim Tirage!, i%, tmp(0, 10)
Randomize
Tirage = Int(Rnd() * 4 + 1)
Tirage_Droite = Fix(Rnd() * 6)
With Sheets("Liste")
For i = 0 To 10
tmp(0, i) = Application.WorksheetFunction.Index(.Range("A1:A4").Offset(0, i), Tirage)
Next i
.Range("M1").Resize(1, 11).Value = tmp
[B4].Value = Sheets("Liste").Cells(1, 14 + Tirage_Droite).Value
End With
End Sub

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é
Zuy
 Posté le 17/09/2010 à 22:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
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

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Ecouteurs sans fil Bluetooth Xiaomi Redmi Buds 6 Play à 10,99 €
10,99 € 20 € -45%
@Xiaomi
Portable 15 pouces Lenovo IdeaPad 1 15ALC7 (FullHD, Ryzen 5 5500U, 16 Go, SSD 512Go, Windows 11) à 429,99 €
429,99 € 549 € -22%
@Cdiscount
Ecran 32 pouces Titan Army P32A2S2 (QHD, IPS, 240 Hz, 1 ms, HDR400) à 289,99 €
289,99 € 399 € -27%
@Geekbuying
PC portable Lenovo ThinkPad P14S Gen 5 (WUXGA IPS, Ryzen 7 Pro, 32 Go RAM, SSD 1 To, Radeon 780M) à 999 €
999 € 1599 € -38%
@Lenovo
SSD Interne M.2 NVMe PCIe 4.0 Kioxia Exceria Plus G3 2 To (5000 Mo/s) à 106,47 €
106,47 € 120 € -11%
@Lenovo
Assortiment de mèches hélicoïdales à bois Bosch (3/4/5/6/7/8/10 mm) à 5,15 €
5,15 € 8,39 € -39%
@Amazon

Sujets relatifs
[VBA+suppression conditionnelle de ligne]
copier ligne si cellule vide
Document modifiable en ligne
Comment choisir la "fonction" de mes mails ?
recherche la ligne et passe a la suivante
Thunderbird des majuscules en début de ligne
nb de liens dans une plage appartennant à la même ligne Horiz. ou verti...
Word 2007 : Comment supprimer tous les retours à la ligne indésirables
ligne "à l'infini"
[MS Office en ligne+enquête]
Plus de sujets relatifs à Choisir au Hasard en ligne
 > Tous les forums > Forum Bureautique