For to next (encore)Résolu

Question

Message plus particulièrement à l'attention de Jack ou Mortalino qui m'ont accompagné ces dernières nuits blanches...
J'arrive au bout de ma première partie, mais bute encore sur un problème que j'avais préssenti.
-------------
L'idée (pour mémoire) est de coloriser les lignes d'une liste de (variable Nombre) selon des critères précis.
Les 5 premières lignes (ça ça va !) puis les suivantes selon un pas de sélection (variable Pas) tel que (Pas = Nombre -5 divisé par Echantillon). Toutes mes variables sont OK et récupérées, y compris la variable "Pas".
Mont bout de code est les suivant :
------------------------------------
    Pas = Nombre / CGEA
    '----------------------------------------------
    
    For i = 9 To Nombre + 8
    '---- 9 parce qu'on commence après la 9éme ligne
        
        If Compteur >= Pas Then
            Compteur = 1
        End If
        
        Rows(i).Select
        With Selection.Interior
             .ColorIndex = 6
             .Pattern = xlSolid
             .PatternColorIndex = xlAutomatic
        End With
         Compteur = Compteur + 1
    Next i
----------------------------------------------------------
Mais là encore, ça me colorise toutes les lignes de 9 à Nombre.
----------------------------------------------------------
Merci pour ce dernier coup de pouce !

 -Dominike -

Renfield · Accepted Answer

Possible que tu cherches simplement a faire :

For i=9 To Nombre+8 Step Pas

cs_MPi · Answer

À quoi sert la variable Compteur ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

pile_poil · Answer

bonjour !



Pas = Nombre / CGEA

    '----------------------------------------------
    
    For i = 9 To Nombre + 8
    '---- 9 parce qu'on commence après la 9éme ligne
        
        If Compteur >= Pas Then
            Compteur = 1
        End If
        
        Rows(i).Select
        With Selection.Interior
             .ColorIndex = 6
             .Pattern = xlSolid
             .PatternColorIndex = xlAutomatic
        End With
         Compteur = Compteur + 1
    Next i

 tu colorise rows(i) donc toute la cuisine (en rouge) que tu fais ne sert à rien . ou alors c'est le rows(i) qui est à modifier en rows(compteur) ou rows(pas) suivant ce que tu veux obtenir quoi que tel que écrit tu ne devrais pas avoir le résultat attendu 
d'ailleurs quel est il ce résultat attendu car pas tres explicite sur ce point ton post !

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

cs_Dominike · Answer

Sais pas vraiment, j'ai récupéré ce bout de code le pensant adapté en me posant toutefois la même question.
J'ai toutefois tenté de m'enpasser sans résultat probant.
Il me manque un petit bout de je ne sais quoi !

 -Dominike -

pile_poil · Answer

et nous il nous manque soit des explications claires sur ce que tu veux faire  car la boule de cristal elle est câssée 

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

cs_Dominike · Answer

Merci à vous tous !
Quand je dis que je me complique l'existence....
La solution simple de Renfield me paraît opportune en l'adaptant sûrement.
Je teste en vous remerciant encore.

 -Dominike -

cs_Dominike · Answer

Avec votre aide et mon obstination, mon programme tourne à merveille.
Il ne me reste plus qu'à l'habiller un peu joli...
Par la suite, j'aimerai participer au forum mais pour aider aussi.
Seulement, ceux qui ont besoin d'aide sont le plus souvent plus costauds que moi.
Donc il ne me reste plus qu'à acheter le bouquin conseillé et à bosser dur...
A bientôt à tous sur ce forum !

 -Dominike -

For to next (encore)

7 réponses

Votre réponse

Discussions similaires