XL 2010 Sélectionner un cellule sans connaitre son adresse

Micke-31

XLDnaute Occasionnel
Bonjour la communauté,

en VBA je souhaiterais sélectionner une cellule sans spécifier son adresse, je m'explique, j'ai un tableau exemple C2:K20 soit 171 cellules, si je saisis 15 en B2 je voudrais que la quinzième cellule se sélectionne soit H3

ou si je saisis en B2 30 la trentième cellule du tableau se sélectionne soit E5

je remercie tous ce qui animent ce forum et partagent leur savoir
 

Staple1600

XLDnaute Barbatruc
Bonjour

Une possibilité par VBA
(code à mettre dans le code de la feuille où se trouve le tableau)
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.Goto [TABLO].Item([B2])
End Sub
NB: Au préalable, nommer TABLO la plage C2:K20
(cf CTRL+F3)

EDITION: Bonjour patricktoulon
 

patricktoulon

XLDnaute Barbatruc
bonjour Staple1600
non c'est une vue différente dans tout les cas la ligne sera exécutée dans ta version
dans la mienne le if y veille ;)
et puis le demandeur a demandé je cite
si je saisis 15 en B2 je voudrais que la quinzième cellule se sélectionne soit H3
il n'a pas demandé
si je saisis 15 dans n'importe quelle cellule je voudrais que la quinzième cellule se sélectionne soit H3

alors oui ca fonctionne d'accords mais tu exécute du code for nothing je parle de la ligne "app.goto..."
 

Staple1600

XLDnaute Barbatruc
Re, Bonjour jmfmarques

Dans ce cas, je micte encore un chouia moins loin ;)
Enrichi (BBcode):
Sub Confinement_Effet_secondaire_Manifeste()
Dim r As Range, X&: Set r = Range("C2:K20")
Randomize 1600
X = Application.RandBetween(1, 171)
MsgBox r(X)(1).Address(0, 0), 64, X
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou