Discussion :

[Djromé]

Salut les Kracks,


Je ne trouve pas le setup pour le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

lastLineComment est un string

dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

C'est explicitement un range

Bon courage