Affichage dans cellule
Résolu
Bonjour,
Dans le fichier ci-dessous je suis à la recherche d'un code pour afficher avec un bouton dans une cellule les nombres qui se trouvent dans la feuille BdD dans n'importe quel ordre
https://www.cjoint.com/c/JCxjV5HCfvf
Merci pour votre aide
Crdlt
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
Dans le fichier ci-dessous je suis à la recherche d'un code pour afficher avec un bouton dans une cellule les nombres qui se trouvent dans la feuille BdD dans n'importe quel ordre
https://www.cjoint.com/c/JCxjV5HCfvf
Merci pour votre aide
Crdlt
Configuration: Windows / Firefox 74.0
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
5 réponses
-
ContributeurBonjour
C'et à dire que quand tu appuies sur ton bouton, le chiffre qui s'affiche est tiré au sort dans ta liste Bdd ?
-
ContributeurRe
-
Contributeurdans ton 1° envoi ta bdd commençait ligne 2 maintenant ligne 1
j'ai testé, no blème
https://mon-partage.fr/f/U4OFsL5c/
-
Bonjour michel
Merci pour ton aide
Oui c'est exactement cela
Cordialement
-
Re,
Je te renvoie mon fichier avec le code car cela ne fonctionne pas probablement une étourderie de ma part ,erreur que je ne vois pas
https://www.cjoint.com/c/JCxnfBCCVGf
Cordialement
-
J'ai trouvé le bon code
Option Explicit
Private Sub CommandButton2_Click()
Dim Derlig As Integer, Hauteur As Integer
If ActiveCell.Address = "$M$4" Then Randomize ' Randomize était placé en dessous
Derlig = Sheets("BdD").Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
Range("M4") = Sheets("BdD").Cells(Int(Rnd * Derlig) + 1, "A")
End Sub
-
