Proble execution boucle do while

Fermé
seblg29 Messages postés 19 Date d'inscription lundi 9 mars 2015 Statut Membre Dernière intervention 31 janvier 2019 - Modifié par NHenry le 24/10/2015 à 13:04
NHenry Messages postés 15214 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 16 avril 2025 - 30 oct. 2015 à 11:55
Bonjour,

J'ai quelque souci sur un de mes scripts..

Je souhaite calculer une somme sur des lignes différentes (colonne 5) qui sont toutes oranges (la couleur orange servant de limite pour ce calcul de somme), et ensuite reporter le résultat de ce calcul en colonne 8 sur la première ligne orange.

Cependant lorsque les lignes ne sont pas oranges, ou sur les lignes oranges suivant la première, mon code me renvoi des 0. Je ne vois pas comment lui dire de ne rien renvoyer.

Voici mon code pour que vous y voyez plus claire : 

For j = 12 To i
    ligneini = j
    compt = 0

    Do While Worksheets(feuille).Cells(j, 5).Interior.Color = 49407
    compt = compt + Worksheets(feuille).Cells(j, 5).Value
        If Worksheets(feuille).Cells(j, 5).Interior.Color <> 49407 Then
            Exit Do
        End If
    j = j + 1
    Loop

    Worksheets(feuille).Cells(ligneini, 8).Value = compt
    Worksheets(feuille).Cells(ligneini, 9).Value = Application.Average(Range(Cells(ligneini, 3), Cells(j - 1, 3)))

Next

End Sub





EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

3 réponses

Réponse 1 / 3
NHenry Messages postés 15214 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 16 avril 2025 363
24 oct. 2015 à 13:40
Penses toujours à mettre "Option Explicit" en haut de ton code (première ligne du fichier).

Essayes de faire du pas à pas (F8), et espionne les valeurs des variables (Shift+F9), tu peux aussi mettre des points d'arrêt (F9).
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
26 oct. 2015 à 06:31
Bonjour

Si les cellules orange sont issues d'une mise en forme conditionnelles, il faut
raisonner sur la formule de mise en couleur et non sur la couleur
0
Réponse 3 / 3
seblg29
26 oct. 2015 à 09:02
Bonjour,

Merci pour vos commentaires,
J'ai déjà essayé le mode pas à pas.
Mon problème intervient au niveau de la boucle if.

Do While Worksheets(feuille).Cells(j, 5).Interior.Color = 49407
compt = compt + Worksheets(feuille).Cells(j, 5).Value
If Worksheets(feuille).Cells(j, 5).Interior.Color <> 49407 Then
Exit Do
End If
j = j + 1
Loop

Il faudrait que lorsque la couleur de ma cellule est orange (code 49407), on "passe" au j + 1. Or ici, mon instruction me renvoi des 0 sur toutes les lignes "non orange"...

Cordialement,

Sébastien Le Guillou
0
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
26 oct. 2015 à 09:49
Excuse moi de t'avoir dérangé en essayant de t'aider
0
NHenry Messages postés 15214 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 16 avril 2025 363
30 oct. 2015 à 11:55
Do while test d'abord si la condition est vraie.
Donc si la case n'est pas orange lors du premier tour, il ne passe pas dans la boucle.

Tu peux mettre la condition à la fin :
Do
...
Loop While ...
0

Discussions similaires

[BASH] Existe t-il un boucle do while?
niernier -
niernier -

Bonjour,
Je voudrais savoir si il existait en bash une boucle do while (comme en langage C) ou s'il existait un moyen de l'imiter.

En attente d'une réponse je vous remercie !

3 réponses
Fichier de type DO
endimyon -
Jay -

Bonjour,
je suis actuellement en recherche d'emploi et viens de recevoir par mail une offre. l'employeur me demande de renvoyer la fiche de présentation dument remplie mais en pièce jointe du mail c'est un fichier *.DO
quand je clique dessus il me demande de le télécharger sur mon disque pour le lire et quand je veut le lire, impossible de l'ouvrir, que ce soit avec open office org ou mon navigateur internet qui redemande de le télécharger quand j' essai de l'ouvrir avec.
c'est très important merci d'avance de votre aide.

21 réponses
Fichier .pdf enregistré en .do
yasyas -
dizoune -

Bonjour,

Je suis allé chercher un fichier .pdf me concernant sur un site, mais lorsque je veux l'enregistrer en local, il ne me donne qu'un seul choix de format d'enregistrement : le .do. Et après l'avoir enregistré ainsi, aucun moyen de l'ouvrir. J'ai essayé de changer l'extension du fichier en .pdf, toujours pareil.

Quelqu'un aurait-il une solution ??

Merci par avance

10 réponses
Fichier telecharge en do au lieu de pdf
dreamteam77 -
Rony -

Bonjour,
Sur le site de l'Assurance retraite, depuis que j'utilise Chrome comme navigateur, les relevés à télécharger sont en .do au lieu de .pdf (avec internet-explorer).
Si je change l'extension du fichier, ça ne marche pas.
Comment faire pour que Chrome télécharge les documents en .pdf ?
D'avance, merci de votre aide.
Cordialement.

8 réponses
tele s'eteind et s'allume en boucle
avion386 -
txiki -

bonjour, mon televiseur samsung led UE46D5700 (2011) s'allume et s'eteind en boucle j'ai enleve les piles de la telecommande, c'est pareil j'ai mis des pile neuves , meme probleme j'ai eteind la tele pendant 5 minutes et remis en route sans piles sur la telecommande, meme probleme ..idem avec les piles remises comment faire ? un conseil serai le bienvenu, par avance merci j'ai essaye avec une autre telecommande samsung qui fonctionnait avec auparavent , probleme idem

4 réponses