[Open Office] Macro nb aléatoire

Nathan -  
 Nathan -
Bonjour à tous, j'ai un petit problème avec une macro que j'avais fait mais malheureusement je ne l'ai pas gardé et je ne me rappel pas comment faire pour faire des nombre aléatoire, je me rappel que cela devait ressembler à quelque chose du genre mais sans plus... Pourriez-vous m'aider svp ?

Sub Main


'1- ON DÉTERMINE LES PAGES UTILISÉES:
Actes = ThisComponent.Sheets.getByName("Actes Diplomatiques") 'Actes Diplomatiques
EA = ThisComponent.Sheets.getByName("EA") 'EA


'2- JETS
NumBoule1 = Int(24*Rnd)+1
NumBoule1 = Int(100*Rnd)+9
NumBoule1 = Int(100*Rnd)+1
NumBoule1 = Int(100*Rnd)-7
EA.getCellRangeByName("C3").value = NumBoule1
EA.getCellRangeByName("G3").value = NumBoule2
EA.getCellRangeByName("K3").value = NumBoule3
EA.getCellRangeByName("O3").value = NumBoule4


End Sub

A voir également:

2 réponses

Réponse 1 / 2
OOoForum Messages postés 3873 Date d'inscription   Statut Membre Dernière intervention   961
 
Générateur de nombre aléatoire pour OpenOffice.org Calc

0
Réponse 2 / 2
Nathan
 
J'ai trouvé pourquoi cela ne fonctionnait pas, il faut nommer une fonction ou un attribut différemment du nom de la feuille !

Le code suivant fonctionne:

Sub Main


'1- ON DÉTERMINE LES PAGES UTILISÉES:
Actes = ThisComponent.Sheets.getByName("Actes Diplomatiques") 'Actes Diplomatiques
JetEA = ThisComponent.Sheets.getByName("EA") 'EA


'2- JETS
NumBoule1 = Int(24*Rnd)+1
NumBoule2 = Int(100*Rnd)+9
NumBoule3 = Int(100*Rnd)+1
NumBoule4 = Int(100*Rnd)-7
JetEA.getCellRangeByName("C3").value = Numboule1
JetEA.getCellRangeByName("G3").value = NumBoule2
JetEA.getCellRangeByName("K3").value = NumBoule3
JetEA.getCellRangeByName("O3").value = NumBoule4


End Sub
0