Choisir aléatoirement une case dans un tableau excel
lixil
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Bonjour tous le monde,
J'aimerai avoir un programme en VB qui permettrai de sélectionner aléatoirement une case dans un tableau excel à plusieurs colonne et la mettre dans une variable.
Merci beaucoup.
J'aimerai avoir un programme en VB qui permettrai de sélectionner aléatoirement une case dans un tableau excel à plusieurs colonne et la mettre dans une variable.
Merci beaucoup.
A voir également:
- Choisir aléatoirement une case dans un tableau excel
- Trier un tableau excel - Guide
- Tableau word - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
2 réponses
Bonjour,
Essaies ce code :
Essaies ce code :
Option Explicit
Sub x()
Dim tbl As Range
Dim cel As Range
Dim n°L As Long
Dim n°C As Integer
Dim msg As String
'Définition du tableau
Set tbl = ActiveSheet.Range("A2:G40")
'Choix aléatoire d'une cellule du tableau
Randomize
n°L = Rnd() * (tbl.Rows.Count - 1) + 1
n°C = Rnd() * (tbl.Columns.Count - 1) + 1
Set cel = tbl.Cells(n°L, n°C)
'Informtaions sur la cellule choisie
MsgBox "Cellule choisie : " & cel.Address(False, False) & vbCr & _
"Valeur : " & cel.Value & vbCr & _
"Formule : " & cel.FormulaLocal
End Sub