erreur sur macro

[gege21]

bonjours a tous

je gêner un graphique via une macro qui marche bien sauf si je prend la dernier année ici 2014
je ne c pas pourquoi

 

[pierrejean]

Re : erreur sur macro

Bonjour geg21

tester remplacer:

 For Lig = 1 To DLig

par

 For Lig = 1 To DLig + 1

 

[gege21]

Re : erreur sur macro

merci pierrejean
sa marche a la perfection

sans vouloir abuse
comment faire pour avoir en messagebox si je rentre une année non valide plutôt qu'un plantage du code

et merci encore pour ton aide

 

[pierrejean]

Re : erreur sur macro

Re

......
An_ok = False
VAn = Sheets("Feuil1").TextBox1
For n = 1 To Sheets("Donnée").Range("A65536").End(xlUp).Row
If Year(Sheets("Donnée").Range("A" & n)) = VAn Then
An_ok = True
Exit For
End If
Next n
If An_ok = False Then
MsgBox ("Cette Année n'existe pas")
Exit Sub
End If
FirstCel = "": LastCel = ""
.........

 

[gege21]

Re : erreur sur macro

merci pierrejean