Microsoft 365 Ecriture de formules dans VBA sur cellules non vides

ShuarS

ShuarS

XLDnaute Occasionnel
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
 

Pièces jointes

  • TEST_LP.xlsx
    9 KB · Affichages: 24
Solution
S
@ShuarS, le fil,

ton fichier en retour ; même utilisation : Ctrl e

VB: 
Option Explicit

Sub Essai()
  Dim dlg&: dlg = Cells(Rows.Count, 2).End(3).Row: If dlg < 3 Then Exit Sub
  Dim Tbl, T(5), lig&, col%: dlg = dlg - 2: Tbl = [B3].Resize(dlg, 17)
  For lig = 1 To dlg
    If Tbl(lig, 1) <> "" Then
      T(0) = 0
      For col = 3 To 7
        T(0) = T(0) + Tbl(lig, col)
        T(col - 2) = T(col - 2) + Tbl(lig, col)
      Next col
      Tbl(lig, 17) = T(0)
    End If
  Next lig
  Application.ScreenUpdating = 0: Columns(18).ClearContents
  For col = 4 To 8
    Cells(2, col) = T(col - 3)
  Next col
  [R3].Resize(dlg) = Application.Index(Tbl, Evaluate("Row(" & "1:" & dlg & ")"), 17)
End Sub

effectivement...
Trier par date Trier par votes
D

danielco

XLDnaute Accro
job75 à dit:
@danielco aux posts #8 et #11 pourquoi écrire 2 fois .SpecialCells(xlCellTypeConstants) ???
Cliquez pour agrandir...
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 :

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

Daniel
 
Vote positif 0 Vote négatif

Discussions similaires

W
  • Question
Microsoft 365 Fusionne les cellules vides parmi celle avec des valeurs
Réponses
4
Affichages
193
woira95
W
P
  • Question
Microsoft 365 Addition de cellules vides et non vides
Réponses
11
Affichages
410
Droopyougo
Droopyougo
M
  • Question
Microsoft 365 trouver la dernière valeur numérique non nulle dans une colonne comportant des cellules vides et des cellules avec la valeur zéro.
Réponses
5
Affichages
493
matgrim
M
J
  • Question
XL 2016 Nombre de lignes différentes destination/données
Réponses
7
Affichages
169
Jakes
J
Usine à gaz
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
237
Usine à gaz
Usine à gaz
E
  • Question
XL 2019 [Résolu]Liste non vide avec plusieurs conditions
Réponses
4
Affichages
239
Etn
E
Lambico
  • Question
Microsoft 365 Additionner les 7 cellules non vides de la colonne B en dessus
2
Réponses
15
Affichages
700
TooFatBoy
TooFatBoy
T
  • Résolu(e)
XL 2010 Formule - Si 2 cellules non vides sur une plage de cellules
Réponses
5
Affichages
449
Titi456
T
M
  • Question
Microsoft 365 Pb de formules qui se modifient dans des cellules verrouillées
Réponses
14
Affichages
249
TooFatBoy
TooFatBoy
M
  • Question
Microsoft 365 Créer une liste sans cellules vides à partir d'un fichier
Réponses
13
Affichages
971
job75
job75

Membres actuellement en ligne

24 membres et 339 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 101
Messages
2 085 300
Membres
102 857
dernier inscrit
Nony1931