Inserer selection dans formule

Bonjour ,

J'ai dans mon VBA ces lignes :

Formule1 = "=SOMME.SI(G$54:H$1507;K1;M$54:M$1507)"

Range("L1:L5,L14,L27:L29").Formula = Formule1

Dans la formule, je veux que la parti en italique sélectionne la case de gauche de la ou la formule est insérée. je voudrais donc que pour L1:L5,L14,L27:L29 le VBA insère pour :

L1 = SOMME.SI(G$54:H$1507;K1;M$54:M$1507)

L2 = SOMME.SI(G$54:H$1507;K2;M$54:M$1507)

L3 = SOMME.SI(G$54:H$1507;K3;M$54:M$1507)

Est-ce que quelqu'un pourrait m'aider svp ? et surtout ai-je été assez clair x) ?

Merci

Bonjour,

Oui mais tiens-nous le fichier à disposition pour se rendre compte de ton besoin.

Voila le fichier avec le résultat final que je voudrais une fois le macro activé sachant qu’excepté les cases ou les formules seront insérer tout est déjà en place, la le classeur est simplifier.

Re,

Essaye le code suivant :

Sub Insertion_formule()
    Range("L1:L5,L14,L27:L29").FormulaR1C1 = "=SUMIF(PRODUIT1,RC[-1],QTE)"
    Range("L6:L13,L15:L26,L30:L48,L50:L51").FormulaR1C1 = "=SUMIF(PRODUIT2,RC[-1],QTE)"
End Sub

NB : j'ai nommé les plages comme PRODUIT1, PRODUIT2 et QTE. Il faut adapter à ton cas

Merci Raja pour la sélection de la case ça fonctionne niquel, par contre j'ai essayer de nommer les zones directement dans le VBA mais cela fonctionne pas, est-ce mon code qui n'est pas bon ou autre chose ?

    ActiveWorkbook.Names.Add Name:="PRODUIT1", RefersToR1C1:="=G54:H1507"
    ActiveWorkbook.Names.Add Name:="PRODUIT1", RefersToR1C1:="=H54:H1507"
    ActiveWorkbook.Names.Add Name:="QTE", RefersToR1C1:="=M54:H1507"

    Range("L1:L5,L14,L27:L29").FormulaR1C1 = "=SUMIF(PRODUIT1,RC[-1],QTE)"
    Range("L6:L13,L15:L26,L30:L48,L50:L51").FormulaR1C1 = "=SUMIF(PRODUIT2,RC[-1],QTE)"

Re,

Le 2ème nom n'est pas correct. Il doit être "PRODUIT2". Attention à la fonction copier coller !!!!

Oui c'est vrai mais même corrigé c'est pas bon , en faite il s’insérer comme du texte et ça donne :

=SOMME.SI(PRODUIT1;K1;QTE)

j'ai aussi essayer avec

PRODUIT1 = "G54:H1507"
PRODUIT2 = "H54:H1507"
QTE = "M54:H150"

    Range("L1:L5,L14,L27:L29").FormulaR1C1 = "=SUMIF(PRODUIT1,RC[-1],QTE)"
    Range("L6:L13,L15:L26,L30:L48,L50:L51").FormulaR1C1 = "=SUMIF(PRODUIT2,RC[-1],QTE)"

Mais rien ne change...

Re,

Essaye plutôt comme ça :

Sub Insertion_formule()
    ActiveWorkbook.Names.Add Name:="PRODUIT1", RefersToR1C1:="=Feuil1!R54C7:R65C7"
    ActiveWorkbook.Names.Add Name:="PRODUIT2", RefersToR1C1:="=Feuil1!R54C8:R65C8"
    ActiveWorkbook.Names.Add Name:="QTE", RefersToR1C1:="=Feuil1!R54C13:R65C13"
    Range("L1:L5,L14,L27:L29").FormulaR1C1 = "=SUMIF(PRODUIT1,RC[-1],QTE)"
    Range("L6:L13,L15:L26,L30:L48,L50:L51").FormulaR1C1 = "=SUMIF(PRODUIT2,RC[-1],QTE)"
End Sub

Ca fonctionne niquel, merci pour ton aide

Rechercher des sujets similaires à "inserer selection formule"