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

Claudiuss

XLDnaute Nouveau
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:C1:D1: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
 

Fichiers joints

Dernière édition:

job75

XLDnaute Barbatruc
Bonjour Claudiuss, bienvenue sur XLD
Claudiuss post: 20355488 a dit:
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

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
Choose(1 + Int(Rnd * 3), 62, 70, 84)
 
Dernière édition:

Claudiuss

XLDnaute Nouveau
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

XLDnaute Nouveau
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

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

merci beaucoup
 

job75

XLDnaute Barbatruc
Bonjour mapomme,

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

A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas