erreur sur macro

pierrejean

XLDnaute Barbatruc

• 17 Janvier 2011

• #2

Re : erreur sur macro

Bonjour geg21

tester remplacer:

Code:

 For Lig = 1 To DLig

par

Code:

 For Lig = 1 To DLig + 1

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 17 Janvier 2011

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Janvier 2011

• #4

Re : erreur sur macro

Re

VB:

......
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 = ""
.........

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 17 Janvier 2011

• #5

Re : erreur sur macro

merci pierrejean

 

Vote positif 0 Vote négatif