Code range VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Code range VBA

newco

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 !

Publicité

kiki29

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

patrice33740

Avec la réponse, c'est facile.

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Code range VBA

Sujets relatifs
Alignement avec visual studio code	[C#] Code décompilé ne recompile pas...
aide écriture code c++ recherche et cumul de nombres	Accélerer l'exécution de mon programme en VBA
Perte des données copiées lors du lancement d'une macro VBA/Excel	insertion colonne et codage VBA
VBA Word signets	VBA PPT - Sélectionner plusieurs Shape pour appliquer une animation
un code php qui déconne (erreur bête surement )
Plus de sujets relatifs à : Code range VBA

Page générée en 0.028 secondes