Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[résolu] Fonction personalisée : comptage

  • Initiateur de la discussion Initiateur de la discussion Dugenou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dugenou

XLDnaute Barbatruc
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
 

Pièces jointes

Dernière édition:
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 ?
HTML:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
788
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…