Discussion :

[pilounet54]

bonjour
J'ai ceci que je souhaiterai commencer à partir de la ligne 6 et la colonne

Code :

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

1
2
3
4
5
6
7
Dim mCellule As Object
 
    For Each mCellule In Target
        If mCellule.Column = 1 Then
            traiter_cellule1 mCellule
        End If
    Next mCellule

Comment je modifie svp

"Merci"

[jfontaine]

Bonjour,

Utiliser un Type de variable Range me semble mieux adapté

Code :

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

Dim mCellule As Range

dans ton code tu testes si mCellule est en colonne 1 (Colonne A), que se passe t'il si Target n'englobe pas cette colonne?
Est ce la colonne 1 de l'objet Target que tu souhaites tester?

pour la ligne 6 même question que pour la colonne, c'est la ligne 6 de la feuille ou de la plage de cellules target?

[pilounet54]

c'est plus a partir de la cellule cells 6,1 sur la colonne 1
je pense t'avoir repondu je te remercie

[jfontaine]

Tu ne réponse pas à mes questions

dans ton code tu testes si mCellule est en colonne 1 (Colonne A), que se passe t'il si Target n'englobe pas cette colonne?
Est ce la colonne 1 de l'objet Target que tu souhaites tester?

C'est peut-être cela que tu cherches ...

Code :

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

1
2
3
4
5
6
7
Dim mCellule As Range
 
    For Each mCellule In Target
        If mCellule.Column = 1 and mCellule.Row >=6 Then
            traiter_cellule1 mCellule
        End If
    Next mCellule

[pilounet54]

impec merci !