[XL-2003] range Variables Offset [Résolu]

[Djromé]

Salut les Kracks,


Je ne trouve pas le setup pour le code suivant:

Code :

 Range(lastLineComment, lastLineComment.Offset(0, 3)).Select

Comme vous l'avez compris, je souhaiterai sélectionner les cellules de ma variables aux cellules de ma variables et 3 colonnes plus loin!

[Jean-Pierre49]

Bonjour

Une piste

Code :

1
2
3
4
5
Dim lastLineComment as Range
 
Set lastLineComment = Range("A1") ' a adapter
 
lastLineComment.Offset(0, 3).Select

Tu dis

Bon courage

[Djromé]

Merci Jean-Pierre,

Je ne cherche pas à sélectionner la cellule en colonne D uniquement mais la cellule de ma variable à la colonne D, du genre:

Code :

Range("A1:D1").Select

A1 étant bien lastLineComment défini comme ta proposition mais D1 devant être:
lastlinecomment.offset(0,3)

Il doit y avoir un problème de virgule ou de tréma!!!

Merci tout de même

[Jean-Pierre49]

Chez moi

Code :

1
2
3
4
5
Dim lastLineComment As Range
 
Set lastLineComment = Range("A1") ' a adapter
 
Range(lastLineComment, lastLineComment.Offset(0, 3)).Select

Selectionne bien A1 à D1

Tu dis

[Djromé]

Merci Jean-Pierre,

Chez moi celà fonctionne également, mais j'ai un problème qui se croise dans la définition de la variable.

En effet, elle est déclarée comme Variant suite au code suivant qui définie l'adresse de la cellule voulue:

Code :

lastLineComment = Range("A" & 27 + strAccClient + strItemRequestAuditor + 2).Address

Comme tu peux le voir, il y a d'autres variables référencées!

Aussi, je souhaiterai fusionner les cellules ".MergeCells=False" comme indiqué:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Range(lastLineComment, lastLineComment.Offset(0, 3)).Select
With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = True
        .ReadingOrder = xlContext
        .MergeCells = True
    End With

Y'a-t-il une déclaration différente à effectuer?

[Jean-Pierre49]

Il faut déclarer 2 variables
dans

Code :

lastLineComment = Range("A" & 27 + strAccClient + strItemRequestAuditor + 2).Address

lastLineComment est un string

dans

Code :

Range(lastLineComment, lastLineComment.Offset(0, 3)).Select

C'est explicitement un range

Bon courage

[Djromé]

Jean-Pierre,

Pourrai-je te demander comment t'y prendrai-tu pour résoudre mon problème.

lastLineComment récupère l'ADRESSE de la dernière ligne voulue. A ce titre je la déclare donc comme STRING.

Ensuite je souhaiterai sélectionner le résultat "EX: "$A$46" avec trois colonne suivante, ce qui exige une variable RANGE.

Comment puis-je passer de mon résultat en STRING à une sélection en RANGE?

Dois-je créer une autre variable:
dim lastLineAdress as Range
lastLineAdress = lastLineComment ???

Encore merci pour ta persévérance!

[Jean-Pierre49]

test

une piste

Code :

1
2
3
4
Dim lastLineAdress As String
lastLineAdress = Range("A1").Address ' par exemple
lastLineAdress = Replace(lastLineAdress, "$ ", " ")
Range(lastLineAdress).Select

Cela fonctionne

Je dois décrocher à demain

[Djromé]

Salut Jean-Pierre,

J'ai trouver la solution suivante pour sélectionner deux variables dans un range (mais sans le offset intégré, je déclare ce dernier avant sur une variable string bis )

Code :

1
2
3
4
5
6
7
8
9
Sub test()
 
Dim lastLineAddress, lastLineAddress2 As String
lastLineAddress = Range("A65000").End(xlUp).Address
lastLineAddress2 = Range("A65000").End(xlUp).Offset(0, 3).Address
 
Range(lastLineAddress, lastLineAddress2).Select
 
End Sub

Merci pour ta piste...
Je suis toujours preneur (plus simple) d'un SETUP "si existant" comme suit:

Code :

Range(lamêmeVariable, lamêmeVariable.Offset(0,3)).Select

[Jean-Pierre49]

Bonjour Djromé

Que veux-tu dire

Je suis toujours preneur (plus simple) d'un SETUP "si existant" comme suit:

Voir le post #4 cela fonctionne

Tu dis

[Djromé]

Salut Jean-Pierre,

Je veux dire des variables qui font références à une adresse (donc String si je suis tes instructions).

Effectivement, avec ton exemple en Range, celà fonctionne!

@+

[Jean-Pierre49]

Pour Offset tu dois instancier la cellule de départ

Code :

1
2
3
4
Dim Cellule  As Range
 
Set Cellule = Range("A1").Address
Cellule.Offset(0, 3).Select

Maintenant sit u veux partie d’une adresse ça va être quelque chose comme

Code :

1
2
3
4
5
6
7
Dim Cellule  As Range
Dim lamêmeVariable As String
 
lamêmeVariable = Range("A1").Address
 
Set Cellule = Range(lamêmeVariable)
Range(Cellule, Cellule.Offset(0, 3)).Select

Si j’ai bien compris
Tu dis

[Djromé]

Salut Jean-Pierre,

Désolé pour le remerciement en retard,

Merci beaucoup!

@+