VBA: Range avec variable Fermé

Question

Bonjours a tous,

j'espère que vous avez passé un bon W-E

Voici mon problème

j'aimerai que dans une boucle 8 cellule de la même ligne soit dans 1 seule variable (Range)
mais je n'y arrive pas

j'avais penser a faire ceci 
j = Range("A1").CurrentRegion.Rows.Count
Myrange = Range(ActiveCell.Cells(j, 1), ActiveCell.Cells(j, 3))
mais sa ne marche pas

par contre ceci fonctionne
Range(ActiveCell.Cells(j, 1), ActiveCell.Cells(j, 3)).Select

je ne comprend pas le pourquoi

d'avance merci

michel_m · Accepted Answer

Bonjour,

Sub selectionner_zone()
Dim myrange As Range
j = Range("A1").CurrentRegion.Rows.Count
Set myrange = Range(Cells(j, 1), Cells(j, 3))
'test macro: on colorie la zone sélectionnée myrange en jaune
myrange.Interior.ColorIndex = 6
Set myrange = Nothing
End Sub

il fallait déclarer et instancier myrange
activecell ne servait à rien

Michel

jmarichal · Answer

ça marche

merci et bonne semaine

Shooshoo · Answer

Bonjour, 

Vieux sujet mais j'espère que les membres sont toujours actifs!
Je suis pas baleze en VB etlà il faudrait que je recherche la première ou dernière cellule d'une colonne qui définit par une variable

En cherchant un peu, je suis tombé sur ça:

Dim MaPlage As Range

MaPlage = Cells(i, 21).Resize(i, 3600)

MaPlage.Cells(MaPlage.Cells.Count).Select

(avec i comme variable) mais ça ne fonctionne pas!

Je vous remercie de votre aide

VBA: Range avec variable

3 réponses

Discussions similaires