MACRO : Erreur définir par l'app. ou par l'objetRésolu/Fermé

Question

Bonjour,


Je viens ici en dernier recours car j'ai tout essayé et je n'arrive pas à voir d'où vient mon problème.


J'ai tableau excel où j'ai rajouté une colonne donc j'ai du modifier mes macros car tout était décaler. Jusqu'à là je n'ai pas eu de souci.
Sauf sur une macro qui me met les formules à jour sur la colonne entière quand j’insère des nouvelles lignes. 

Depuis l'ajout de la nouvelle colonne j'ai toujours le message "Erreur d'execution '1004': Erreur définir par l'app. ou par l'objet". J'ai modifié ma "super formule" mais rien n'y fait..

Pourriez-vous, s'il vous plait, me dire d'où pourrait venir le problème ? :)


Voici le code : 

Sub MAJ_Formules_EtapesAMC()

Dim FL1 As Worksheet
   Dim NoLig As Long, NoCol As Integer
   Dim Formule As String
   Set FL1 = Worksheets("Tableau des idées")
   NoCol = 12    'colonne A a adapter
   Formule = "=SI(LC(11)="";SI(LC(32)="";SI(LC(29)="";SI(LC(26)="";SI(LC(20)="";SI(LC(12)="";SI(LC(6)="";SI(LC(4)="";SI(LC(2)="";SI(LC(-11)="";"";Listes!L5C12);Listes!L6C12);Listes!L7C12);Listes!L8C12);Listes!L9C12);Listes!L10C12);Listes!L11C12);Listes!L12C12);Listes!L13C12);Listes!L14C12)"
  'on écrit la formule a adapter
  FL1.Range("L8").Resize(Range("L" & Rows.Count).End(xlUp).Row - 7).FormulaLocal = Formule
  Set FL1 = Nothing
End Sub

Voici la ligne en jaune qui me pose problème quand je fais débogage :

FL1.Range("L8").Resize(Range("L" & Rows.Count).End(xlUp).Row - 7).FormulaLocal = Formule


Merci à vous de m'avoir lu, 


Bien à vous,

Awzgg

fabien25000 · Answer

Bonjour, 

de mon humble point de vue je ne comprends pas la déclaration de variables qui ne sont pas exploitées ni l'utilité d'utiliser une variable pour nommer une seule feuille.. comme ça ça ne suffit pas? :
Sub MAJ_Formules_EtapesAMC()

Dim Formule As String

Formule = "=SI(LC(11)="""";SI(LC(32)="""";SI(LC(29)="""";SI(LC(26)="""";SI(LC(20)="""";SI(LC(12)="""";SI(LC(6)="""";SI(LC(4)="""";SI(LC(2)="""";SI(LC(-11)="""";"""";Listes!L5C12);Listes!L6C12);Listes!L7C12);Listes!L8C12);Listes!L9C12);Listes!L10C12);Listes!L11C12);Listes!L12C12);Listes!L13C12);Listes!L14C12)"

'on écrit la formule a adapter
  Worksheets("Tableau des idées").Range("L8").Resize(Range("L" & Rows.Count).End(xlUp).Row - 7).FormulaLocal = Formule

End Sub

MACRO : Erreur définir par l'app. ou par l'objet

1 réponse

Newsletters