Microsoft 365 Ecriture de formules dans VBA sur cellules non vides

[ShuarS]

Bonjour à tous,

Meilleurs Vœux 2021 !

Je n’ai pas fait de VBA depuis un moment et je coince sur l’écriture du code.

Je joins un fichier pour modèle.
La seule particularité est le nombre de cellules non vides en colonne B.
Ces cellules peuvent être variables en quantité et en ligne.
C.-à-d., non vide en B3 et B5 dans mon exemple, mais dans un autre fichier ce pourrait être B12 et B20.

L’idée est donc dans un premier temps d’identifier les cellules non vides de la colonne B.
Ensuite j’aimerais en D1 ; E1 ; F1 écrire au lancement de la macro une formule de SOMME sur les ces colonnes et lignes non vides.
Pour finir en colonne H, j’aimerais écrire une SOMME des lignes non vides.

J’espère avoir été clair,
Merci pour votre aide.

Shu

 

[job75]

@danielco aux posts #8 et #11 pourquoi écrire 2 fois .SpecialCells(xlCellTypeConstants) ???

 

[danielco]

@danielco aux posts #8 et #11 pourquoi écrire 2 fois .SpecialCells(xlCellTypeConstants) ???

Merci de l'avoir signalé.
Parkinson ? Sérieusement, j'ai dû cafouiller. J'ai testé mon code sur une ligne et c'est en renvoyant à la ligne que j'ai cacaté. Il faut lire bien sûr :

  [B:B].SpecialCells(xlCellTypeConstants) _
    .Offset(, 6).FormulaR1C1 = "=SUM(RC4:RC6)"

Daniel