Insérer une formule par VBA
Bonjour,
J'ai besoin de modifier la formule contenue dans plusieurs centaines de fichiers et bien sûr pas question de le faire à la main.
J'ai essayé diverses méthodes, mais cela se termine en général par une erreur 1004.
Je fait cela
Code:
1 2 3
| Range("K3").Select
Formule = "=SI(GAUCHE(CELLULE(""Filename"");NBCAR(DATA!J4))=DATA!J4;RECHERCHEV(CONCATENER(" & "K4" & ";"" "";" & "K5" & ";""."";" & "K6" & ");INDIRECT.EXT(DATA!J1);7;FAUX);"""")"
ActiveCell.FormulaR1C1 = Formule |
Quand j'insère le texte de la variable cela marche, mais par vba cela se termine par 1004.
Avez-vous une idées.
Merci de votre aide
Insérer une formule dans une cellule via du vba
Bonjour,
j'essaie d'insérer une formule dans une cellule excel via du VBA mais lorsque le code est exécuté, excel me renvoie une erreur de type 1004.
Vous verrez que dans la formule, j'utilise des "noms" qui désignent des plages de cellules qui sont définis dans le fichier excel.
Voici le code:
Sub essai()
Dim Ligne_002 As Variant
Ligne_002 = "=CONCATENATE(Cell_Caisse;"";"";Signature_Day;"";"";C2;"";"";Y;"";"";E2;"";"";VLOOKUP(E2;REF;2);"";"";SUMPRODUCT((Assimilation_type=E2)*(D_L_Y));"";"";SUMPRODUCT((Assimilation_type=E2)*(I_L_Y)))"
Sheets("DATA").Select
Range("A2").Select
Range("A2").Formula = Ligne_002
End Sub
Quelqu'un aurait il une idée?
merci d'avance
Yves