Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel insertion formule par macro

insertion formule par macro

2 réponses
Avatar
R M
Bonjour à tous,

J'ai récupéré une macro mais n'étant pas développeur, je lutte quelque peu.
La macro crée un fichier mensuel, avec une colonne par jour, j'ajoute un
cumul mensuel après chaque semaine, et un cumul en fin de mois...
Sachant que le mois n'a jamais le même nombre de jour et qu'il ne commence
pas toujours par le même jour (lundi, mardi...) je tente d'inserer la
formule dans la derniere colonne... Je fais la somme de toutes les cellules
en excluant les colonne avec l'intitulé "SEM" pour cumul mensuel...
Voici le code... Naturellement je suis coincé d'où mon poste...
Quelqu'un aurait il une idée (pour info j'ai une erreur "1004")
Merci
Romuald

Cond = Chr(34) & "<>SEM" & Chr(34)
For l = 10 To 20
formulecel = "=SUMIF(R3C3:R3C" & poscolfinmois - 1 & ";" & Cond &
";R" & l & "C3:R" & l & "C" & poscolfinmois - 1 & ")"
FePerf.Cells(l, poscolfinmois).Select
ActiveCell.FormulaR1C1 = formulecel
Next
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
D'une manière générale, le code serait beaucoup plus lisible si les
références de style A1 étaient utilisées ((pardon pour le plagiat !).
(exemple : R3C3 = C3)
De plus il n'est pas nécessaire de sélectionner une cellule pour lui
affecter une valeur (ou une formule).
Par contre j'avoue mal comprendre le deuxième paramètre dans la formule ?
For l = 1 to 20
formulecel = "=SUMIF(C3:C" & poscolfinmois - 1 & ";" & cond & ";C1:C" &
poscolfinmois - 1 & ")"
Cells(l, poscolfinmois).Formula = formulecel
Next l


Cordialement
Pascal

"R M" a écrit dans le message de news:
%
Bonjour à tous,

J'ai récupéré une macro mais n'étant pas développeur, je lutte quelque
peu.
La macro crée un fichier mensuel, avec une colonne par jour, j'ajoute un
cumul mensuel après chaque semaine, et un cumul en fin de mois...
Sachant que le mois n'a jamais le même nombre de jour et qu'il ne commence
pas toujours par le même jour (lundi, mardi...) je tente d'inserer la
formule dans la derniere colonne... Je fais la somme de toutes les
cellules
en excluant les colonne avec l'intitulé "SEM" pour cumul mensuel...
Voici le code... Naturellement je suis coincé d'où mon poste...
Quelqu'un aurait il une idée (pour info j'ai une erreur "1004")
Merci
Romuald

Cond = Chr(34) & "<>SEM" & Chr(34)
For l = 10 To 20
formulecel = "=SUMIF(R3C3:R3C" & poscolfinmois - 1 & ";" & Cond &
";R" & l & "C3:R" & l & "C" & poscolfinmois - 1 & ")"
FePerf.Cells(l, poscolfinmois).Select
ActiveCell.FormulaR1C1 = formulecel
Next




Avatar
R M
Je suis obligé de choisir des références R1C1 car mon compte peut commencer
sur 2 colonnes différentes (soit j'entame une semaine par un lundi, soit je
suis obligé de rajouter le cumul de la semaine précédente); en l occurence
c'est C3 ou C4 ma première cellule.

sem en cours 01-oct 02-oct SEM 04-oct 29-oct 30-oct SEM MOIS

nombre a cumuler


Quant au nombre de cellules à compter, il dépend du nombre de jours dans le
mois, et du nombre de semaines entières...
Est ce plus clair?
Merci
cdt


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
D'une manière générale, le code serait beaucoup plus lisible si les
références de style A1 étaient utilisées ((pardon pour le plagiat !).
(exemple : R3C3 = C3)
De plus il n'est pas nécessaire de sélectionner une cellule pour lui
affecter une valeur (ou une formule).
Par contre j'avoue mal comprendre le deuxième paramètre dans la formule ?
For l = 1 to 20
formulecel = "=SUMIF(C3:C" & poscolfinmois - 1 & ";" & cond & ";C1:C" &
poscolfinmois - 1 & ")"
Cells(l, poscolfinmois).Formula = formulecel
Next l


Cordialement
Pascal

"R M" a écrit dans le message de news:
%
Bonjour à tous,

J'ai récupéré une macro mais n'étant pas développeur, je lutte quelque
peu.
La macro crée un fichier mensuel, avec une colonne par jour, j'ajoute un
cumul mensuel après chaque semaine, et un cumul en fin de mois...
Sachant que le mois n'a jamais le même nombre de jour et qu'il ne
commence


pas toujours par le même jour (lundi, mardi...) je tente d'inserer la
formule dans la derniere colonne... Je fais la somme de toutes les
cellules
en excluant les colonne avec l'intitulé "SEM" pour cumul mensuel...
Voici le code... Naturellement je suis coincé d'où mon poste...
Quelqu'un aurait il une idée (pour info j'ai une erreur "1004")
Merci
Romuald

Cond = Chr(34) & "<>SEM" & Chr(34)
For l = 10 To 20
formulecel = "=SUMIF(R3C3:R3C" & poscolfinmois - 1 & ";" & Cond &
";R" & l & "C3:R" & l & "C" & poscolfinmois - 1 & ")"
FePerf.Cells(l, poscolfinmois).Select
ActiveCell.FormulaR1C1 = formulecel
Next