Impossibilité d'executer une macro [Résolu]

Signaler
Messages postés
1
Date d'inscription
mercredi 27 novembre 2019
Statut
Membre
Dernière intervention
6 avril 2020
-
Messages postés
15219
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
-
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 : https://mon-partage.fr/f/leW6AYdc/


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.

1 réponse

Messages postés
15219
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 285
Bonjour,

Pouvez expliquer un peu mieux comment ca marche votre truc?