Une série de cellules au Hasard

[guy72]

Bonjour,
Avec le code suivant, je peux choisir un mot ou un chiffre au hasard.
Dans ce code le mot est remis en M1
Sub Start()
Randomize
Tirage = Int(Rnd() * 10 + 1)
Range("M1") = Application.Index(Sheets("Liste").Range("A1:A10"), Tirage)
End Sub

Mais est-il possible de choisir au hasard un mot et les cellules adjacentes
de droite ?
Par exemple, je souhaiterais avoir le mot A4 et les cellules B4:K4
Sub Start()
Randomize
Tirage = Int(Rnd() * 10 + 1)
Range("M1") = Application.Index(Sheets("Liste").Range("A1:K10"), Tirage)
End Sub

Merci de votre aide

 

[ROGER2327]

Re : Une série de cellules au Hasard

Bonjour guy72

Essayez ceci :

[COLOR="DarkSlateGray"][B]Sub Start()
Dim Tirage!, i%, tmp$
   Randomize
   Tirage = Int(Rnd() * 10 + 1)
   For i = 0 To 11
      tmp = tmp & Application.WorksheetFunction.Index(Sheets("Liste").Range("A1:A10").Offset(0, i), Tirage)
   Next i
   Range("M1").Value = tmp
End Sub[/B][/COLOR]

ROGER2327
#4025

Vendredi 20 Phalle 137 (Pie VIII, navigant, SQ)
13 Fructidor An CCXVIII
2010-W35-1T08:59:03Z

 

[guy72]

Re : Une série de cellules au Hasard

Bonjour Roger,
Je te remercie de me répondre.
J'ai 2 petits problèmes:
1) Je souhaiterais que chaque mot reste dans leurs cellules.
2) J'ai oublié de préciser que le bouton de ma macro se trouve sur la "Feuil1"
Merci de ton aide

 

[ROGER2327]

Re : Une série de cellules au Hasard

Re...

Je ne comprends pas la demande. Désolé.​

ROGER2327
#4026

Vendredi 20 Phalle 137 (Pie VIII, navigant, SQ)
13 Fructidor An CCXVIII
2010-W35-1T10:17:12Z

 

[guy72]

Re : Une série de cellules au Hasard

Re
Avec ce code, j'obtiens tous les mots collés en une seule cellule.
Ils faudrait que chaque mot est sa propre cellule.
Cordialement

 

[ROGER2327]

Re : Une série de cellules au Hasard

Re...

Essayez ceci :

[COLOR="DarkSlateGray"][B]Sub Start()
Dim Tirage!, i%, tmp(0, 10)
   Randomize
   Tirage = Int(Rnd() * 4 + 1)
   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
   End With
End Sub[/B][/COLOR]

(Voir le fichier joint.)​

ROGER2327
#4027

Vendredi 20 Phalle 137 (Pie VIII, navigant, SQ)
13 Fructidor An CCXVIII
2010-W35-1T11:44:43Z

 

[guy72]

Re : Une série de cellules au Hasard

RE..
C'est tout à fait ça.
Merci de votre aide.
Cordialement
Guy