Discussion :

[JohnNC115]

Bonjour à tous

Je viens de coder un petit bout de programme et je n'arrive pas à comprendre ce qui va de travers

toutes mes variables ont été définies au préalable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With ThisWorkbook.Sheets("QUANTITE")

définition de ma zone de balayage
    For Each Thecell In .Range(.Cells(3, 9), .Cells(65536, 9).End(xlUp))

condition d'application
        If .Cells(Thecell.Row, 2).Value <> "" Then
        Thecell.Value = Application.WorksheetFunction.Sum(.Range(.Cells(Thecell.Row, 4), .Cells(Thecell.Row, 8)))
        End If
    Next
End With

D'après ce que j'ai compris des boucle for each, logiquement ma variable "Thecell" devrait balayer les cellules de "J3" à la dernière cellule non vide de la colonne "J"

Or quand je lui demande la ligne de Thecell, il démarre à 2

auriez vous une explication (j'ai sans doute fait une erreur ou j'ai mal compris quelque chose)

merci d'avance

[rvtoulon]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range(.Cells(3, 9)

= Cellule I3, pas J3.
Je crois que tu cherches pas dans la bonne colonne, remplace 9 par 10

[JohnNC115]

Oups, autant pour moi je m'ai trompé de numéro ^^"
mais c'est bien la colonne J dans laquelle je veux effectuer ma boucle

donc en donnant comme matrice "J3:J(dernière cellule non vide)" à ma boucle for each, logiquement si je lui demande quelle est la ligne de la première cellule testée, il devrait m'annoncer la ligne 3

or là il m'annonce ligne 2

[rvtoulon]

OK.
je te propose une petite modif du code pour savoir quel est la plage renvoyée par le code, tu fais un déroulement pas à pas(appuie succesif sur F8) et tu nous dit quel est le message du msgbox:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim maplage As Range
With ThisWorkbook.Sheets("QUANTITE")
Set maplage = .Range(.Cells(3, 10), .Cells(65536, 10).End(xlUp))
MsgBox maplage.Address
'définition de ma zone de balayage
    For Each Thecell In maplage
'Condition d 'application
        If .Cells(Thecell.Row, 2).Value <> "" Then
        Thecell.Value = Application.WorksheetFunction.Sum(.Range(.Cells(Thecell.Row, 4), .Cells(Thecell.Row, 8)))
        End If
    Next
End With

[JohnNC115]

comme je l'avais prévu le msgbox m'indique "$J$2"

mais pourquoi est il ausssi méchant

au fait merci rvtoulon de prendre de ton temps pour me répondre, ça fait toujours plaisir

[rvtoulon]

Quel devrait être la dernière cellule non vide de la colonne J de la feuille ("QUANTITE") ?
a part en J2 ?

[JohnNC115]

Ah ben tu poses juste la question à laquelle j'allais répondre: grosse erreur de code de ma part vu que la dernière cellule non vide est bien la J2

Je suis un gros boulet ... parfois

désolé de t'avoir fait perdre du temps