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
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
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
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
Il est trop tard. Le mal est trop profond.
(Heureusement il me reste des bières dans mon stock)
Code:
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