J'ai ce code:
Public Function CDZEman(Compte As String, Cle As Range, Optional mois As String, Optional annee As String) As String
C1 = Right("00000000000000000000" & Compte, 20)
Set CleRange = Cle
cler = WorksheetFunction.Sum(CleRange)
cler = CStr(Format(cler * 100, "0000000000000"))
C2 = CStr(Format(Cle.Rows.Count, "0000000"))
If mois = "" Then mois = Month(Now())
If annee = "" Then annee = Year(Now())
mois = Right(CStr(Format(mois, "00")), 2) & Right(CStr(Format(annee, "0000")), 4)
C3 = Space(14) & "0"
CDZEman = "*" & C1 & cler & C2 & mois & C3
End FunctionJe veux modifier cette ligne:
C2 = nbval(Format(Cle.Rows.Count, "0000000"))
pour quelle me donne le nombre des cellules non vide dans la colonne qui contient les montant à ajouter.
( cler = WorksheetFunction.Sum(CleRange)
cler = CStr(Format(cler * 100, "0000000000000")) ).
car, quand je sélectionne par exemple la colonne (G:G), j'obtient le somme exact, mes le nombre des valeurs est de 1048576, c'est à dire le nombre de lignes d'un classeur excel.
https://www.cjoint.com/c/MHqnQ5aiGaN
Posté le 
Posté le