Bonjour le Forum
Cette macro fonctionne merveilleusement bien avec l'aide de Job75.
Si le nom n'a pas était trouvé, les cellules restent vides.
J'aimerais que ces cellules restent vides si le nom et/ou la date n'a pas était trouvé.
Merci de toute aide
David
Cette macro fonctionne merveilleusement bien avec l'aide de Job75.
Si le nom n'a pas était trouvé, les cellules restent vides.
J'aimerais que ces cellules restent vides si le nom et/ou la date n'a pas était trouvé.
Merci de toute aide
David
Private Sub ScrollBar1_Change()
Application.EnableEvents = False
Sheets("DIRECTION").Range("B9:R" & Sheets("DIRECTION").[C65536].End(xlUp).Row).Name = "T"
With [C12].Resize([B42].End(xlUp).Row - 11, [Q11].End(xlToLeft).Column - 2)
.FormulaR1C1 = "=SUMPRODUCT((INDEX(T,,2)=RC2)*(INDEX(T,,3)=R11C),INDEX(T,,9)+INDEX(T,,10))" 'somme des colonnes Coef + Spec
.Value = .Value 'supprime les formules
.Interior.Color = &HFF00&
End With
Sheets("DIRECTION").Range("B9:R" & Application.Match("zzz", Sheets("DIRECTION").[C:C])).Name = "T"
Application.EnableEvents = True
End Sub
Pièces jointes
Dernière édition: