Discussion :

[pilounet54]

je cherche simple à effacer les cellules concernées

Code :

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

1
2
3
With Range(Cells(mCellule.Row, mCellule.Column + 0), Cells(mCellule.Row, mCellule.Column + 12)).Value
                  .Value = ""
                End With

il doit pas avoir grand chose ,j'ai essayé avec .text mais aucun resultat quelqu'un aurait-il une idée ?

[gFZT82]

Bonjour,

Code :

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

Range(Cells(mCellule.Row, mCellule.Column + 0), Cells(mCellule.Row, mCellule.Column + 12)).ClearContents

Cordialement.

[mercatog]

Code :

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

maCellule.Resize(1,13).ClearContents