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 ?