Souci avec Range

zeltron24 · 4 Mars 2015

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 · 4 Mars 2015

Re : Souci avec Range

Bonsoir à tous

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

Sinon

Code:

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

devrait fonctionner, non ?

mapomme · 4 Mars 2015

Re : Souci avec Range

Bonsoir zeltron24,

On peut essayer :

Code:

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

ou

Code:

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

Edit : bonjour Staple1600 🙂

camarchepas · 4 Mars 2015

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 · 4 Mars 2015

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+

Souci avec Range

zeltron24

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

zeltron24

XLDnaute Impliqué

Discussions similaires

Souci avec Range

zeltron24

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

zeltron24

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency