Visual Basic: Formule SOMME.SI jusqu'à la dernière ligne

Résolu
BILLING Messages postés 162 Date d'inscription   Statut Membre Dernière intervention   -  
BILLING Messages postés 162 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je ne sais pas comment écrire en Visual Basic la formule suivante:

=SI($F2<>0;SOMME.SI($A$2:$A$8569;$A2;$AK$2:$AK$8569);"")

En fait, je veux que ma Macro copie cette formule dans chaque cellule de 'BI', jusqu'à la dernière donnée de 'A', dont le numéro de ligne changera hebdomadairement de façon imprévisible. pour ça, ça va. Je connais cette méthode pour copier la formule:

Range("BI2").Select
derlig = Columns("A").Find("*", , , , , xlPrevious).Row
With Range("BI2")
.FormulaR1C1 = _
La formule"
.AutoFill Destination:=Range("BI2:BI" & derlig)
End With

Mon problème est la formule elle-même. Je ne sais pas comment l'écrire pour qu'elle cherche dans 'A' jusqu'à la dernière ligne aisni que dans 'AK'.

Voici le lien à mon fichier échantillon: https://www.cjoint.com/?3LerFK5k2yy

Merci :-)


A voir également:

2 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

.FormulaLocal = "=SI($F2<>0;SOMME.SI($A$2:$A$" & derlig & ";$A2;$AK$2:$AK$" & derlig & ");"""")"

eric
0
BILLING Messages postés 162 Date d'inscription   Statut Membre Dernière intervention   48
 
Merci Éric. Ça fonctionne.
0