Bonjour,
J'ai une plage de cellule variable (ligne + colonne)
Quand j'utilise le code (1), j'obtiens une erreur, alors qu'avec le code (2) ça marche mais les colonnes ne sont plus variables.
Auriez-vous une solution ? Merci.
Function PREVI_PLD(NumLNG As Integer) As Integer
Dim Ligne, ColDEB, ColFIN As Integer
Dim Plage As Range
Ligne = NumLNG
DateDEB = DateValue("01/01/2021")
DateFIN = DateValue("01/03/2022")
ColDEB = CLng(DateDEB) - 44197 + 2
ColFIN = CLng(DateFIN) - 44197 + 2
(1) Set Plage = Sheets("DONNEES_PLANNING").Range(Cells(Ligne, ColDEB), Cells(Ligne, ColFIN))
(2) Set Plage = Sheets("DONNEES_PLANNING").Range("B" & Ligne & ":PJ" & Ligne)
PREVI_PLD = Application.WorksheetFunction.CountIf(Plage, "P")
Set Plage = Nothing