[résolu] Fonction personalisée : comptage

[Dugenou]

Bonjour à tous,

J'ai besoin de votre aide pour créer une fonction personnalisée car je suis nul en VB.

Dans le fichier joint vous trouverez 2 lignes d'exemple et le résultat espéré.
Je souhaite savoir combien il faut additionner de cellules consécutives pour atteindre un certain total.
Pas de colonne intermédiaire ou de feuille supplémentaire : je pense donc qu'il faut faire une boucle (de 1 à 31 ) et tester à chaque fois si on est > ou = à la référence, quand on est < on ajoute une cellule, quand on est > ou = on note le N° de la boucle et c'est OK.

Merci d'avance

 

[pierrejean]

Re : Fonction personalisée : comptage

Bonjour Dugenou

2 propositions

 

[Dugenou]

Re : Fonction personalisée : comptage

Bonjour PierreJean,

Merci beaucoup c'est exactement ça. La proposition 2 me convient mieux car je peux changer la zone et la valeur de référence.
Par curiosité : si dans la première fonction(nbcasesomme), je veux pouvoir choisir la cellule qui contient la valeur de référence : j'écris ceci ?

Function nbcasesommeJY(valeur, depart As Range)
For i = 1 To 31
tot = tot + depart.Offset(0, i - 1).Value
If tot >= valeur.Value Then
  nbcasesommeJY = i
Exit Function
End If
Next i
End Function

Encore Merci

 

[pierrejean]

Re : Fonction personalisée : comptage

Re

Oui , cela semble bien etre ça
Le mieux est de tester