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😀1: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
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😀1: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
Dernière édition: