Problème de Range

[jmarichal]

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

 

[jmarichal]

Re : Problème de Range

après une petite recherche je me rend compte que j'ai oublier SET

 

[RENAUDER]

Re : Problème de Range

Bonjour,
peut-être cela

    Dim Myrange As Range
    j = Range("A1").CurrentRegion.Rows.Count
    Set Myrange = Range(ActiveCell.Cells(j, 1), ActiveCell.Cells(j, 3))
    MsgBox Myrange.Address

 

[job75]

Re : Problème de Range

Bonjour,

Ecrire :

Dim Myrange As Range
---------------------
Set Myrange = Range(......)

Les variables Range ont un comportement particulier...

A+

Bonjour Renauder, pas raffraichi à temps