Fonction VBA - Remplissage d'une plage avec des valeurs aléatoires - Exemples de code VBA

Remplir les cellules avec des valeurs aléatoires

Le code suivant remplira une plage donnée avec un nombre aléatoire compris entre 0 et 1000 :

Sub Randomise_Range (Cell_Range As Range) ' Randomisera chaque cellule dans la plage Dim Cell ' Désactiver les alertes d'écran Application.ScreenUpdating = False pour chaque cellule dans Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub

Le code "Application.ScreenUpdating = FALSE" et "Application.ScreenUpdating = TRUE" servent à désactiver et à activer les alertes d'écran, ce qui rend le code beaucoup plus rapide à exécuter.

Il peut être configuré via un événement de clic, la routine principale spécifiant la plage :

Private Sub CommandButton1_Click() Randomise_Range (Sheets("Sheet3").Range("A1:T8000")) End Sub

Donc, dans ce cas, les cellules A1:T8000 de la feuille 3 sont remplies de nombres aléatoires - une fois que le bouton de commande 1 est cliqué.

Téléchargez le fichier .XLSM ici