XL 2016 Explication Code

Ed's

XLDnaute Nouveau
Bonjour, est-ce que quelqu'un pourrai m'expliquer ce code afin que je puisse sélectionner les bonnes colonnes sur mon fichier, svp.
je joins le fichier, merci de votre aide…
VB:
Option Explicit


Private Sub Worksheet_Change(ByVal R As Range)

Dim P As Range, F As Worksheet, Q As Range, lig As Variant, col As Variant

Set P = [C5].CurrentRegion
Set R = Intersect(R, P)
If R Is Nothing Then Exit Sub

Set F = Sheets("Suivi")
For Each R In R.EntireRow 'si entrées/effacements multiples
    Set Q = Intersect(R, P)
    
    lig = Application.Match(Q(5), F.Columns(2), 0)
    col = Application.Match(Q(1), F.Rows(2), 0)
    
    If IsNumeric(lig) And IsNumeric(col) Then F.Cells(lig, col) = Application.SumIfs(P.Columns(4), P.Columns(5), Q(5), P.Columns(1), Q(1), P.Columns(3), Q(3))

 Next
End Sub
 

Pièces jointes

  • Test_Somme.SI.Ens (2).xlsm
    42.4 KB · Affichages: 18

Statistiques des forums

Discussions
290 834
Messages
1 910 793
Membres
176 870
dernier inscrit
oguruma
Haut Bas