Range Selection variable

porcinet82

XLDnaute Barbatruc

• 31 Août 2007

• #2

Re : Range Selection variable

Salut,

Pas sur d'avoir bien saisie, le week end approchant, mais je dirai un truc de ce genre :
Range(Cells(1, 1), Cells(4, Range("A4").End(xlToRight).Column)).Select


@+

 

Vote positif 0 Vote négatif

V

viscere

Guest

• 31 Août 2007

• #3

Re : Range Selection variable

encore erreur range..

je veux sélectionner la première ligne et la 4 ème ligne sans connaitre la borne de droite

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 31 Août 2007

• #4

Re : Range Selection variable

re,

Ok, je n'avais pas saisie que tu voulais simplement la premiere et la quatrième ligne. Voici le code :
Range(Range(Cells(1, 1), Cells(1, Range("A4").End(xlToRight).Column)).Address & "," & Range(Cells(4, 1), Cells(4, Range("A4").End(xlToRight).Column)).Address).Select

@+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 31 Août 2007

• #5

Re : Range Selection variable

porcinet82 à dit:

re,

Ok, je n'avais pas saisie que tu voulais simplement la premiere et la quatrième ligne. Voici le code :
Range(Range(Cells(1, 1), Cells(1, Range("A4").End(xlToRight).Column)).Address & "," & Range(Cells(4, 1), Cells(4, Range("A4").End(xlToRight).Column)).Address).Select

@+

Cliquez pour agrandir...

Salut

Code:

Dim X as Integer
 
X=iif([IV1].End(xltoleft).column>[IV4].End(xltoleft).column,[IV1].End(xltoleft).column,[IV4].End(xltoleft).column)
Union(Range([A1],cells(1,X)),range([A4],cells(4,X))).select

X= colonne la plus à gauche entre la dernière utilisée en ligne 1 et ligne 4
Après, c'est la même chose que porcinet82 (Salutations 😛 ) avec des notations différentes

Mais... Si tu peux éviter les :
Objets.select
Selection.instructions
en les transformant en Objets.instructions directement (quand c'est possible), ta macro s'en portera mieux.
A+

 

Vote positif 0 Vote négatif

V

viscere

Guest

• 31 Août 2007

• #6

Re : Range Selection variable

Porcinet toujours la même erreur.

et gorfael j'ai pas tout compris à ta réponse....

 

Vote positif 0 Vote négatif

C

cops71

Guest

• 31 Août 2007

• #7

Re : Range Selection variable

Bonjour à tous,

Pour moi, la solution serait (à condition que ton a représente la cellule A1) :

Code:

Dim DerniereColonne As Byte
DerniereColonne = Range("A1").End(xlToRight).Column
Range("A1:" & Range("A1").Offset(0, DerniereColonne - 1).Address & ",A4:" & Range("A1").Offset(3, DerniereColonne - 1).Address).Select

Je ne sais pas si c'est la meilleure solution mais pour moi cela marche quelquesoit le nb de colonnes de la première ligne...

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 3 Septembre 2007

• #8

Re : Range Selection variable

Salut,

Iil me semble que toutes les réponses sont équivalentes. Par contre, je ne vois pas pourquoi la mienne ne fonctionne pas, je l'ai testée chez moi et elle fonctionne parfaitement...

@+

 

Vote positif 0 Vote négatif