Insertion formule par vba dynamique
Bonjour,
J'essaye de créer automatiquement des formules dans ma feuille de calcul via vba.
J'ai appris ce jour à en faire (merci internet).
J'ai commencé par un truc simple:
Code:
1 2
| Sheets("Suivi Fi. Readaptic").Cells(ligne, colonne_2).Formula = "=" & Sheets("Suivi Fi. Readaptic").Cells(ligne, colonne_2 - 2).Address(RowAbsolute:=False, ColumnAbsolute:=False) _
& "-" & Sheets("Suivi Fi. Readaptic").Cells(ligne, colonne_2 - 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) |
Cela m'a permis d'obtenir, en fonction de ma ligne et de ma colonne:
A présent, j'essaye de créer, au début de la ligne, un somme.si. J'ai tenté en changeant par sumif, mais j'ai tout de même une erreur 1004.
Pour info, si je mets tout sauf le "=" du début, et que je le rajoute à la main à posteriori (en gros il m'a marqué automatiquement le calcul comme une ligne de texte), cela fonctionne.
Voici le code:
Code:
1 2 3
| Sheets("Suivi Fi. Readaptic").Cells(ligne, 3).Formula = "=SOMME.SI(" & Sheets("Suivi Fi. Readaptic").Cells(35, colonne_2 - 2).Address & ":" & _
Sheets("Suivi Fi. Readaptic").Cells(35, nb_colonne.Count + 2).Address & ";C$35;" & Sheets("Suivi Fi. Readaptic").Cells(ligne, colonne_2 - 2).Address & ":" & _
Sheets("Suivi Fi. Readaptic").Cells(ligne, nb_colonne.Count + 2).Address & ")" |
Je suis censé obtenir ceci:
Code:
=SOMME.SI($F$35:$HM$35;C$35;$F$45:$HM$45)
Que dois-je faire pour que cela fonctionne svp?
Merci d'avance pour votre aide :)
pas besoin de la propriété Formula
il faut plutôt prendre la propriété value et regarder si excel est en anglais, sumif sinon essayez le somme( si(condition; conséquence))