Microsoft 365 Générer des numéros par colonnes

[Claudiuss]

Bonjour,
j'aimerais que vous m'aidiez à écrire ce code. je veux générer un nombre aleatoire par colonne nombres qui vont s'afficher dans la plage de cellules verte.
ce nombre doit etre générer entre les cellules qui sont juste en dessous des cellules coloriées café. cest -à-dire.
colonne A: generer un nombre entre 1 , 50 , 11
colonne B: generer un nombre entre 51 , 17 , 55
colonne C: generer un nombre entre 62 , 70 , 84
colonne D: generer un nombre entre 88 , 38
colonne E: generer un nombre entre 34, 63 , 60

ci-joint le fichier

VOICI LE CODE QUE JAI UTILISE

Merci d'avance pour votre aide


Private Sub CommandButton1_Click()
Dim plage As Range, cel As Range, alea As Double
Set plage = Range("A1:B1:C11:E1")
plage.Value = ""
If plage.Count > 15 Then Exit Sub
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, 90)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
End Sub

 

[job75]

Bonjour Claudiuss, bienvenue sur XLD

colonne A: generer un nombre entre 1 , 50 , 11

Je sais générer un nombre aléatoire entre 2 nombres mais pas entre 3...

A+

 

[mapomme]

Bonjour @Claudiuss,

Que cela veut-il donc signifier ?

generer un nombre entre 62 , 70 , 84

Tirer au sort tun des trois nombres (soit 62, soit 72 ou encore 84) ???

Dans ce cas, on peut utiliser :

Choose(1 + Int(Rnd * 3), 62, 70, 84)

 

[mapomme]

Bonjour @job75
pas réactualisé...

 

[Claudiuss]

Bonjour Claudiuss, bienvenue sur XLD

Je sais générer un nombre aléatoire entre 2 nombres mais pas entre 3...

A+

 

[Claudiuss]

Merci beaucoup.

Au fait j'aimerais premièrement récupérer les nombres qui sont juste en dessous de des cellules café et deuxièmement générer un qui va s'afficher en haut de la colonne(plage de cellules verte)

 

[Claudiuss]

Bonjour @Claudiuss,

Que cela veut-il donc signifier ?

Tirer au sort tun des trois nombres (soit 62, soit 72 ou encore 84) ???

Dans ce cas, on peut utiliser :

Choose(1 + Int(Rnd * 3), 62, 70, 84)

 

[mapomme]

Re,

Quand à la couleur "café", je n'en vois pas ?

 

[Claudiuss]

Merci pour votre aide.

s'il vous plait existe il un code pour afficher tous les nombres qui sont juste en dessous des cellules café?

Merci

 

[Claudiuss]

Re,

Quand à la couleur "café", je n'en vois pas ?
Regarde la pièce jointe 1076705

 

[Claudiuss]

excusez moi j'ai modifier la couleur, sans charger à nouveau le fichier. on peut utiliser la couleur pink.

merci beaucoup

 

[job75]

Bonjour mapomme,

Ecoutez Claudiuss il faut vous secouer un peu et expliquer clairement ce que vous voulez.

A+