VBA problème avec méthode Range pour graphique avec plages disctoninues et variable

[chagro]

Bonjour, je bloque depuis plusieurs jours sur ce problème:


Private Sub Graphique_Click()

'déclaration des variables

Dim an As String
Dim genre As String
Dim ligne As String
Dim lignebis As String
'corps du texte

'on choisit l'année
an = Annee.Value

'on choisit l'espèce
genre = espece.Value

'on associe pour chaque année l'IPA (abondance) correspondant à l'espèce selon la distance au foyer
If an = 1989 Then
'on sélectionne la feuille de l'année 1989
Sheets("1989").Select
'on sélectionne la cellule contenant le nom de l'espèce
Cells.Find(What:=genre, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
' on veut faire graphique de l'espèce

ligne = ActiveCell.Offset(2, 0).Address
lignebis = ActiveCell.End(xlDown).Address

Range("D4201,""ligne:" & "lignebis""").Select

quand je lance le programme il me dit qu'il y a un problème avec la méthode range. J'ai essayé différentes syntaxes, mais aucune n'a marché. Et je n'ai rien trouvé sur le forum.

Avez vous une idée ou une piste ou alors faut il utiliser une autre méthode et si oui laquelle?

Merci

 

[youky(BJ)]

Re : VBA problème avec méthode Range pour graphique avec plages disctoninues et varia

Bonsoir chagro,
Bienvenu au forum
Sans doute ceci . . .
Range("D4201" & "," & ligne & ":" & lignebis).Select

Bruno

 

[chagro]

Re : VBA problème avec méthode Range pour graphique avec plages disctoninues et varia

Merci beaucoup, ça marche.