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
 

Pièces jointes

  • Nombre Aleatoire.xlsm
    20.8 KB · Affichages: 13
Dernière édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,

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

Discussions similaires

Réponses
12
Affichages
537

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal