XL 2010 Sélectionner un cellule sans connaitre son adresse

[Micke-31]

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]

Bonjour

Une possibilité par VBA
(code à mettre dans le code de la feuille où se trouve le tableau)

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]

bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then [C2:K20].Cells(Target.Value).Select
End Sub

 

[Staple1600]

Re

•>patricktoulon
Un peu long comme code, non ?
(cf message#2)
😉 (grillé d'une minute)

 

[patricktoulon]

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]

Re

D'ailleurs, moi aussi je l'ai trop longue

Private Sub Worksheet_Change(ByVal Target As Range)
[TABLO].Item([B2]).Select
End Sub

PS: Le message#3 avait juste vocation à signaler ma présence...

 

[Micke-31]

Re,

merci à vous deux, c'est tout a fait cela, a partir de vos codes je vais faire une variante avec un bouton activeX pour l'insérer dans mon code
encore merci

 

[Staple1600]

Re

Et pour sans doute jouer avec le feu 😉

Private Sub Worksheet_Change(ByVal T As Range)
[TABLO].Item(IIf(T.Address = "$B$2", [B2], 0)).Select
End Sub

 

[patricktoulon]

😀 😀 😀
je met cela sur le compte du confinement 😛😛😛

 

[jmfmarques]

Bonjour à tous
Utilisation de la notation interne de Excel --->>

MsgBox Range("C2:K20")(15).Address

(pour une fois que l'on joue à celui qui aura la plus petite ... 😀 )

 

[patricktoulon]

😛 😛 😛
Bonjour jmfmarques oui c'est ça c'est le confinement

 

[Staple1600]

Re, Bonjour jmfmarques

Dans ce cas, je micte encore un chouia moins loin 😉

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

 

[patricktoulon]

@Staple1600 appelle le 15 😛 😛 😛
prix d'un appel classique + frais supplémentaires de fournisseur 😛 😛 😀

 

[Staple1600]

Re

@Staple1600 appelle le 15 😛 😛 😛

Il est trop tard. Le mal est trop profond.
(Heureusement il me reste des bières dans mon stock)

Private Sub Worksheet_Change(ByVal T As Range)
Dim r As Range: Set r = [O²]: If T.Address <> "$B$2" Then Exit Sub
If Not IsNumeric(T) Then Exit Sub: If [B2] > 171 Then Exit Sub: r([B2])(1).Select
End Sub

 

[patricktoulon]

puré moi j'ai du me rabattre sur de la KRO rupture de hogaerden a casino
c'est le début de la fin ou la fin du ""bedut"" comme tu veux

annonce: Ebay(bite)N°1664
échange rouleau de PQ contre binch et cachuette