[Open Office] Macro nb aléatoire
Nathan
-
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
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:
- Nb aleatoire
- Nb en anglais excel - Guide
- Bisoncam nb pro - Télécharger - Pilotes & Matériel
- Tirage au sort excel aléatoire sans doublon - Forum Excel
- Nb si ens différent de ✓ - Forum Excel
- Souris t'nb sans fil ne fonctionne pas - Forum souris / Touchpad
2 réponses
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
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
