Affichage dans cellule
Résolu
JCB40
Messages postés
3021
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3021 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3021 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Affichage dans cellule
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Affichage double ecran - Guide
- Proteger cellule excel - Guide
- Windows 11 affichage classique - Guide
5 réponses
Bonjour
C'et à dire que quand tu appuies sur ton bouton, le chiffre qui s'affiche est tiré au sort dans ta liste Bdd ?
C'et à dire que quand tu appuies sur ton bouton, le chiffre qui s'affiche est tiré au sort dans ta liste Bdd ?
dans ton 1° envoi ta bdd commençait ligne 2 maintenant ligne 1
j'ai testé, no blème
https://mon-partage.fr/f/U4OFsL5c/
j'ai testé, no blème
https://mon-partage.fr/f/U4OFsL5c/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
