A voir également:
- Nombre aleatoire
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Supprimer espace nombre excel ✓ - Forum Excel
- Gto nombre episode - Forum Cinéma / Télé
- Ascii nombre de caractères - Guide
2 réponses
Bonjour
et avec quel logiciel ?
et avec quel logiciel ?
Dandy_danbe
Messages postés
114
Statut
Membre
excell 2007
Dandy_danbe
Messages postés
114
Statut
Membre
merci beaucoups ca fonctionne
Bonjour
avec une tite macro
avec une tite macro
Option Explicit
'--------
Sub tirage90()
Dim Cptr As Byte, Dico As Object, Nbre As Byte
Set Dico = CreateObject("scripting.dictionary")
For Cptr = 1 To 90
Nbre = Int(Rnd * 90) + 1
If Not Dico.exists(Nbre) Then: Dico.Add Nbre, ""
Next
Range("A2").Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End Sub
