Lecture automatique de lignes et colonnes

Bonjour,

j'ai beau chercher mais je ne parviens pas à trouver la réponse à la façon de créer une macro qui permettrait de passer d'une ligne à l'autre à l'aide d'une boucle.

A chaque pas de la boucle je dois traiter la ligne de mon tableau selon le contenu des cases.

Je suppose qu'il faut faire un range sur la ligne concernée - Range(C?,L?) ou lire case par case donc en faisant une double boucle sur la ligne et la colonne.

Merci de votre aide.

BB

Bonjour benobo,

Pas tout compris ton problème, un fichier joint serait plus explicite ou bien un exemple.

A défaut, c'est peut-être ça qu'il te faut ?

Activecell.Offset(1).Select

Merci,

voici un fichier comme exemple.

En fait je voudrais additionner toutes les cases jaunes (d'une ligne à la fois) et mettre ce résultat en dernière colonne de chaque ligne.

BB

Ah oui ok. Rien à voir avec ce que je t'ai proposé.

Teste avec ça plutôt :

Sub test()
    For i = 3 To 10
        For j = 2 To 13
            If Cells(i, j).Interior.ColorIndex = 6 Then cpt = cpt + Cells(i, j).Value
        Next j
        Cells(i, j + 1) = cpt
        cpt = 0
    Next i
End Sub

Merci mille fois, c'est exactement ce que je recherchais.

BB

Bonjour benobo,

Si ton problème est résolu :