rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

VBA Excel selection d'une cellule au hasard

Alex0, le lundi 19 février 2007 à 15:59:42
Bonjour,

j'ai la sélection suivante :

Sheets("Display Grid").Select
Range("AO10:AO105").Select

à l'intérieur de laquelle je souhaite sélectionner une cellule au hasard à chaque exécution.

Merci pour votre aide.
Alex
Configuration: Windows XP
Internet Explorer 6.0
Répondre à Alex0  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Kobaya, le mardi 20 février 2007 à 16:21:46
salut alex,

ça devrait te convenir :
Sub CelluleAuHasard()
    Dim lngMinL     As Long
    Dim lngMaxL     As Long
    Dim lngMinC     As Long
    Dim lngMaxC     As Long
    Dim lngAleaC    As Long
    Dim lngAleaL    As Long
    
    Sheets("Display Grid").Select
    Range("AO10:AP105").Select
    
    ' numéro de la première colonne
    lngMinC = Selection.Columns(1).Column
    ' numéro de la dernière colonne
    lngMaxC = Selection.Columns.Count + lngMinC - 1
    ' numéro de la première ligne
    lngMinL = Selection.Rows(1).Row
    ' numéro de la dernière ligne
    lngMaxL = Selection.Rows.Count + lngMinL - 1
    
    ' tirage aléatoire pour la ligne
    lngAleaL = (lngMaxL - lngMinL) * Rnd() + lngMinL
    ' tirage aléatoire pour la colonne
    lngAleaC = (lngMaxC - lngMinC) * Rnd() + lngMinC
    Debug.Print "lngMinC = " & lngMinC, "lngMaxC = " & lngMaxC, "lngMinL = " & lngMinL, "lngMaxL = " & lngMaxL, "lngAleaL = " & lngAleaL, "lngAleaC = " & lngAleaC
    
    Cells(lngAleaL, lngAleaC).Activate
End Sub
A+,
Kobaya.
Répondre à Kobaya

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Alex, le mardi 20 février 2007 à 16:59:55
un seul mot "génial"

merci beaucoup
Alex
Répondre à Alex
Logiciels pertinents trouvés dans les téléchargements
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger MOREFUNC (Macro complémentaire EXCEL) 5.06MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Ms Word Excel Cracker 2.2Ms Word Excel Cracker - Ms Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls...Catégorie: Suite bureautique
Licence: Freeware/gratuit
Télécharger Free Excel/Xls to Pdf Converter 5.1Free Excel/Xls to Pdf Converter - Convertissez rapidement et facilement vos documents Excel en document PDF. Rien de plus simple avec Excel/Xls to Pdf...Catégorie: PDF
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « VBA Excel selection d'une cellule au hasard »