Impossible d'executer une MACRO

Bonjour à tous,

Je me présente, je suis Aurélie, de Rennes, et j'aurai besoin de votre aide pour avancer dans mon fichier Excel.

Il s'agit d'un fichier Excel utilisé pour faire des prévisionnels d'activité.. bien utile avec la période de Covid 19 qui baisse le niveau d'activité...

Mon père est maraîcher, avec plusieurs salariés, et nous avons besoin de ce fichier Excel que je vous ai mis en PJ.

J'ai un message d'erreur qui apparait "impossibilité d'exécuter la Macro" quand je modifie les cellules B4 et B5. Selon le type d'investissement que c'est (liste déroulante de ces cellules), normalement dans les cellules E4 et E5 sont indiquées les durées d'amortissement comptables, et ensuite le montant annuel est reporté dans la ligne 33 du prévisionnel.

Aussi, quand je vais dans "Développeur" puis Visualiser Code (eh oui j'ai un peu fouiller sur le WEB avant de faire appel à vous ), je vois cette macro dans Module 1 :

Je pense que le pb vient des messages dans "ObjetcréditChangement" et "ObjetcréditChangement2"

Voici le lien du fichier Excel : il est en PJ de ce message.

Dim Choix

' Zonecombin?e1_QuandChangement Macro

' Macro enregistr?e le 22/07/1999 par Jos? HOFMAN the good one

'

'

Sub ObjetCr?ditQdChangement()

'

' R?sultat du choix effectu?

'

'Choix = Feuilles("Travail_DLF").Plage("ObjetCr?dit").Texte

Choix = Sheets("Travail_DLF").Range("ObjetCr?dit").Value

'

' Selon le choix de l'objet du cr?dit, la dur?e par d?faut de l'amortissement est

' pr?sent?e ou est inactiv?e.

'

If Choix = "1" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement").FormulaR1C1 = 0

Sheets("DLF").DropDowns("LDur?e").Visible = False

ElseIf Choix = "4" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement").FormulaR1C1 = 3

Sheets("DLF").DropDowns("LDur?e").Visible = True

ElseIf Choix = "2" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement").FormulaR1C1 = 20

Sheets("DLF").DropDowns("LDur?e").Visible = True

ElseIf Choix = "3" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement").FormulaR1C1 = 5

Sheets("DLF").DropDowns("LDur?e").Visible = True

ElseIf Choix = "5" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement").FormulaR1C1 = 0

Sheets("DLF").DropDowns("LDur?e").Visible = False

Sheets("DLF").Range("MntInvestissement").FormulaR1C1 = 0

End If

End Sub

'

'

Sub ObjetCr?ditQdChangement2()

'

' R?sultat du choix effectu? sur obet n?2 du cr?dit

' Macro enregistr?e le 22/07/1999 par Jos? HOFMAN the best

'

'Choix = Feuilles("Travail_DLF").Plage("ObjetCr?dit2").Texte

Choix = Sheets("Travail_DLF").Range("ObjetCr?dit2").Value

'

' Selon le choix de l'objet du cr?dit, la dur?e par d?faut de l'amortissement est

' pr?sent?e ou est inactiv?e.

'

If Choix = "1" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement2").FormulaR1C1 = 0

Sheets("DLF").DropDowns("LDur?e2").Visible = False

ElseIf Choix = "4" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement2").FormulaR1C1 = 3

Sheets("DLF").DropDowns("LDur?e2").Visible = True

ElseIf Choix = "2" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement2").FormulaR1C1 = 20

Sheets("DLF").DropDowns("LDur?e2").Visible = True

ElseIf Choix = "3" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement2").FormulaR1C1 = 5

Sheets("DLF").DropDowns("LDur?e2").Visible = True

ElseIf Choix = "5" Then

Sheets("Travail_DLF").Range("Dur?eAmorttissement2").FormulaR1C1 = 0

Sheets("DLF").DropDowns("LDur?e2").Visible = False

Sheets("DLF").Range("MntInvestissement2").FormulaR1C1 = 0

End If

End Sub

Qu'est ce qui n'est pas bon ?

Voila voila en gros, ce qui m'empêche d'avancer. J'espère avoir été la plus claire possible, avec mon language de non experte ..!

Un grand merci à ceux qui prendrons de leurs temps pour m'aider et partager leurs savoirs.

Bonne journée à tous, bonne soirée et prenez soin de vous.

bonjur,

Ce classeur provint-il d'un MAC ?

Le code est truffé de caractères spéciaux et/ou accentués inusités sur PC.

A+

Rechercher des sujets similaires à "impossible executer macro"