Code range VBA

Recherche :

Dernière réponse

Sujet : Code range VBA

patrice33740

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 ?

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

patrice33740

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 ?

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 ?

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 !