bonjour,
je souhaite remplir une cellule via une macro avec une formule.
feuille1 contient un tableau.
feuille2 doit contenir des sommes conditionnelles, et je voudrai générer les formules via macro;
A2 et B2 contiennent les conditions pour la somme conditionnelle, et la formule fonctionne sur une autre feuille.
voici le code :
Sub formule_somme()
Dim cel As Range 'déclare la variable cel
Dim numero_ligne As Integer
Dim nom_colonne As String
'boucle sur toutes les cellules de la ligne 2
For Each cel In Range("E2", "H2")
numero_ligne = cel.Row
nom_colonne = cel.Column
'si la cellule est vide, elle prend la valeur de la cellule du dessus
cel.Formula = "=SOMME.SI.ENS(feuille1!nom_colonne:nom_colonne;feuille1!C:C;A2;feuille1!D
;B2)"
Next cel 'prochaine cellule
End Sub
j'ai une erreur sur la partie cel.Formula, à priori le signe = ne passe pas.
existe-t-il un moyen de renseigner la formule sans le = ?
je souhaite remplir une cellule via une macro avec une formule.
feuille1 contient un tableau.
feuille2 doit contenir des sommes conditionnelles, et je voudrai générer les formules via macro;
A2 et B2 contiennent les conditions pour la somme conditionnelle, et la formule fonctionne sur une autre feuille.
voici le code :
Sub formule_somme()
Dim cel As Range 'déclare la variable cel
Dim numero_ligne As Integer
Dim nom_colonne As String
'boucle sur toutes les cellules de la ligne 2
For Each cel In Range("E2", "H2")
numero_ligne = cel.Row
nom_colonne = cel.Column
'si la cellule est vide, elle prend la valeur de la cellule du dessus
cel.Formula = "=SOMME.SI.ENS(feuille1!nom_colonne:nom_colonne;feuille1!C:C;A2;feuille1!D
Next cel 'prochaine cellule
End Sub
j'ai une erreur sur la partie cel.Formula, à priori le signe = ne passe pas.
existe-t-il un moyen de renseigner la formule sans le = ?