Rapport de message :*
 

Re: selection aléatoire

Titre du sujet : Re: selection aléatoire
par JeanMarie le 18/01/2009 10:21:42

Bonjour Claude, JC

Pour ce qui est de mettre un bouton pour lancer le recalcul des formules dans les classeurs ouverts, place ce code dans un module.
Sub LanceCalcul()
   Application.Calculate
End Sub 
Attention cela ne sert à rien si tu n'as pas spécifié le "calcul sur odre" dans les options d'Excel.

Je n'avais pas adapté le code suite à ta dernière demande, le voici modifié 
Option Explicit
Option Base 1

Sub SelectRnd2()
'Déclaration de deux tableaux
Dim Tab1, Tab2
'Variable Contenant les Bornes limites du Rnd
Const LI = 2
Const LS = 12
'Variable de la boucle
Dim I As Long
'Affecte les valeurs des éléments du tableau
Tab1 = Array("C6:D6", "F9:G9", "J6:K6", "N7:O7")
Tab2 = Array("Cù:Dù", "Fù:Gù", "Iù:Jù", "Lù:Mù")
For I = 1 To UBound(Tab1)
    Tab2(I) = Replace(Tab2(I), "ù", Int((LS * Rnd) + LI))
    Sheets("Feuil1").Range(Tab1(I)).Value = Sheets("Feuil2").Range(Tab2(I)).Value
Next I
End Sub

En ce qui concerne, la question de savoir si tu dois utiliser les formules ou les macros. Je ne pense pas m'avancer en te répondant que nous ne savons pas ce que tu voulais faire avec ton exemple, ni l'objectif de ton projet.

Bon dimanche

@+Jean-Marie