Souci avec Range

[zeltron24]

Bonsoir le Forum,

Je souhaite juste trouver la formule afin de remplacer une sélection Range par une variable.
Je m'explique plus clairement:

Je sélectionne (Range("B6: D200") Je souhaite pouvoir modifier D200 car le nombre de rangées est variable

J'ai crée une macro avec

Dim i as Long
i = Range("vNombre")

Range("B6: D, i").Select
Mais cela ne fonctionne pas pourtant i a bien la valeur souhaité en l’occurrence 33
Je pense que c'est une question de formulation j'ai essayé aussi "B6: D & i" La méthode range a échoué aussi
Merci pour votre aide

EDIT: L'espace entre : D est pour éviter d'avoir une icone

 

[Staple1600]

Re : Souci avec Range

Bonsoir à tous

zeltron24
Tu sais que je te vais te suggérer (.. suivez le trombone) 😉

Sinon

Dim i as Long
i = Range("vNombre")
Range("B6:D" &  i).Select

devrait fonctionner, non ?

 

[mapomme]

Re : Souci avec Range

Bonsoir zeltron24,

On peut essayer :

Range("B6:D" & i).Select

ou

Range("B6:D" & Range("vNombre")).Select

Edit : bonjour Staple1600 🙂

 

[camarchepas]

Re : Souci avec Range

Bonsoir à tous ,

Si j'ai bien compris :


Sub ff()
Dim Lieu As String
Dim I As Long

I = 8
Lieu = Feuil1.Range("A3:" & Split(Cells(1, I).Address, "$")(1) & 200).Address


End Sub

 

[zeltron24]

Re : Souci avec Range

Bonsoir staple1600 et mapomme

Ah mon cher staple1600 comme ça me manqué que tu ne me taquiné plus. Lol
Merci à vous deux je savais que ce n'était qu'une question de formulation.
Bonne soirée à vous et A+