Selectionner une plage de cellule par rapport à une ligne

[krysten]

Bonjour,

Mon but est de selectionner une plage de cellule qui correspond à une ligne par rapport à la cellule qui est selectionnée.

J'ai commencé comme ça

Dans cet exemple c'est la cellule E88 qui est selectionnée.

Sub test()

Dim adressecellule

adressecellule = ActiveWindow.RangeSelection.Address(RowAbsolute:=False)
Range(adressecellule, "M88").Select

End Sub

En fait je veux que la première variable de mon range soit:
La premiere cellule de la ligne de la cellule active (dans mon exemple ça serait A88)
et la 2eme variable:
la dernière cellule sur la même ligne (M88 dans mon exemple)

Pour qu'ensuite si c'est la cellule E102 qui est active, alors ça sera la plage de cellule range("A102","M102") qui sera selectionné.

Suis-je clair? 😱

Merci d'avance à celui ou celle qui saura me décrypter !! 😀

 

[krysten]

Re : Selectionner une plage de cellule par rapport à une ligne

C'est bon j'ai trouvé 🙂

Je donne le code:

Sub test2()

Dim adressecellule
Dim numligne

adressecellule = ActiveWindow.RangeSelection.Address(RowAbsolute:=False)
Range("Q3") = adressecellule
numligne = Range("Q5")
Range("A" + numligne, "M" + numligne).Select

End Sub

 

[nolich]

Re : Selectionner une plage de cellule par rapport à une ligne

Bonjour Krysten, bonjour à toutes et à tous 🙂

Je pense que tu as été clair, à priori 🙂

Essaie ceci :

Sub Test()
'
Dim NoLigne As Long

  noligne = ActiveCell.Row
  Range(Cells(noligne, 1), Cells(noligne, Cells(noligne, 256).End(xlToLeft).Column)).Select
End Sub

@+