XL 2016 Impossibilité exécuter une Macro

Lilie86

XLDnaute Nouveau
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 B 4 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"

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.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas