Excel se ferme suite à une formule de calcul !

[ultra_v]

bonjour ,


je n'arrive pas travailler avec une application excel , dés que je remplis le champs "année" sur excel "B1" excel se ferme et m'affiche un message d'erreur


je ne comprends pas pourquoi , pourriez vous m'aider s'il vous plait ?

j'ai essayé sur plusieurs ordinateurs ça donne la méme chose

fichier en pièce joint

 

[Guest]

Re : Excel se ferme suite à une formule de calcul !

Bonjour,

Dans les évènements change il faut faire attention à ne pas provoquer de changement en chaine....

De plus tes lignes de codes sont lancées sur chaque changement de n'importe quelle cellule de la feuille.
S'il n'y a que le changement de B1 qui t'interresse, il faut tester si Target est B1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$1" Then Exit Sub
    Application.EnableEvents = False 'empêcher la gestion des évènements
    Dim C As Range
    Set C = Feuil1.Cells.Find(What:=[b1])
    If C Is Nothing Then [C3] = Feuil1.[B2] Else [C3] = C.Offset(, 1) * 1
    Application.EnableEvents = True 'rétablir la gestion des évènements
End Sub

A+

 

[ultra_v]

Re : Excel se ferme suite à une formule de calcul !

merci beaucoup Jean-Marcel , Hasco
vous m'avez sauver