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

XL 2010 Problème itération des boucles

  • Initiateur de la discussion Initiateur de la discussion Johan
  • 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 !

Johan

XLDnaute Occasionnel
Bonjour,

J'aurais besoin de vos lumières pour faire fonctionner une boucle incluse dans une autre. Comme ci-suit :


For i = 2 To ligneTot
val1= Cells(i, 4).Value

If val1 < 0.5 Then
Count = 1

For j = i To ligneTot

val2 = Cells(j, 4).Value
If val2 > 0.5 Then

Count = Count + 1

Exit For
End If
Next

'Exit For
End If
Next

resultat = Count / 2

Cells(22, 3).Value = resultat

L'idée étant de compter chaque fois où ma plage passe sous la valeur 0.5, à partir on compte le moment où elle repasse au dessus, puis en dessous, puis dessus... jusqu'à ce qu'elle ne tombe plus sous 0.5

Ma bouche pose problème dans la mesure où je top la première valeur sous 0.5, puis celle au dessus puis mon count redevient "1" au lieu de 3 (normal vu que je lui dis Count = 1) et ensuite je reste à nouveau bloqué dans le "for j" jusqu' à la fin.

Merci de votre aide
 
Elle fonctionne mais ne répond pas à ce que je veux :/

Calculer le nombre de fois où les valeurs de la colonne D sont <0,5 = 1
Puis le moment ou on repasse au dessus de 0,5 = 2
Puis retourner dans la première boucle pour un deuxième passage sous 0,5 = 3
...
Résultat final divisé par 2


J'essaye de faire autrement avec un "for each cell in range" => WorksheetFunction.CountIf ... mais ca a l'air de bien se casser la gueule aussi.
 
Essaie comme ceci

VB:
Sub test()
For i = 2 To 17
If Cells(i, 4) < 0.5 Then Val1 = Cells(i, 4): Count =  1
If Cells(i, 4) > 0.5 Then Val2 = Cells(i, 4): Count = 0: Count = Count + 1
Next i
Cells(22, 3) = Count / 2
End Sub
 
Dernière édition:
- 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
5
Affichages
703
Réponses
4
Affichages
580
Réponses
8
Affichages
647
Réponses
10
Affichages
531
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
805
Réponses
3
Affichages
578
Réponses
35
Affichages
2 K
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…