Code range VBA

Marsh Posté le 27-03-2021 à 00:34:47

Bonjour à tous,

Sur VBA je cherche à faire définir un range de la forme suivante : partir d’une cellule définie, ici E46, et aller jusqu’à une autre cellule (en colonne) qui a une valeur variable. La valeur variable est issu d’une autre cellule, par exemple C20 dans laquelle un nombre est écrit, par exemple 13. Du coup je cherche à avoir un range qui fait 13 cellules à partir de E46, donc E46:E58 si le nombre inscrit est 13, E48:E57 si le nombre inscrit dans C20 est 12, etc.
Ça ne doit pas être super difficile mais je n’ai pas réussi à trouver de réponse sur internet !

Merci !

Marsh Posté le 27-03-2021 à 00:34:47

Marsh Posté le 27-03-2021 à 16:46:02

Salut, peut-être via RechercheV : Recherche d'une valeur numérique de http://boisgontierj.free.fr/ qui te permettra ensuite de définir ta plage ?

Message édité par kiki29 le 28-03-2021 à 10:08:28

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Marsh Posté le 29-03-2021 à 10:16:04

Bonjour,

Pour la première partie de la question « E46:E58 si le nombre inscrit est 13 » c'est assez simple :

Code :

Option Explicit
Sub Test()
Dim cel As Range
Dim rng As Range
Dim nbL As Long
With Worksheets("Feuil1" ) 'à adapter
nbL = .Range("C20" ).Value
Set cel = .Range("E46" )
End With
Set rng = cel.Resize(nbL)
MsgBox rng.Address
End Sub

Par contre je ne comprend pas la seconde partie « E48:E57 si le nombre inscrit dans C20 est 12 », là il n'y a que 10 cellules et la cellule de départ n'est plus E46.
Est-ce une coquille ?

Message édité par patrice33740 le 29-03-2021 à 10:18:10

---------------
Cordialement, Patrice

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *