Discussion :

[vandromme]

Bonjour

Je voudrais remplacer 20 et 891 dans l'instruction suivante

Code :

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

Application.Goto Reference:="R20C3:R891C6"

par les variables déclarées (de fait des constantes)
PL (première ligne) =19
DL (dernière ligne) = 891

où 20=PL+1 et 891 = DL

J'ai essayé toutes les écritures possibles ... sauf la bonne.

Merci de votre aide.

Bien cordialement

[Philippe Tulliez]

Bonjour,
La méthode Goto ne définit pas une plage mais la sélectionne et sauf si cette action est indispensable, il n'y a aucune raison de l'utiliser
Pour référencer une plage et l'utiliser, les lignes 5 à 7 dans le code ci-dessous suffisent, sans oublier bien entendu sa déclaration (ligne 2)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub t()
  Dim rng As Range
  Dim FirstRow As Long, LastRow As Long
  FirstRow = 5: LastRow = 10
  With ActiveSheet
   Set rng = .Range(.Cells(FirstRow, 2), .Cells(LastRow, 3))
  End With
  Application.Goto Reference:=rng
  Set rng = Nothing
End Sub

[Thautheme]

Bonjour Vandromme, bonjour le forum

Essaie comme ça :

Code :

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

Range(Cells(PL, 3), Cells(DL, 6)).Select

ou comme ça :

Code :

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

Application.Goto Reference:="R" & PL & "C3:R" & DL & "C6"

[Édition]
Bonjour Philippe nos posts se sont croisés...

[vandromme]

Un grand merci à vous deux