Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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: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
 

Pièces jointes

  • Nombre Aleatoire.xlsm
    20.8 KB · Affichages: 13
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)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…