Discussion :

[Thomas69]

voici le code que j'utilise actuellement

Code :

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

Workbooks("calcul gomme4,0-2007.xls").Sheets("Programme Gommes").Range("E2:E65536").ClearContents

mais maintenant je voudrais pouvoir effacer a partir de la ligne selection

par exemple je selectionne la cellule I35 et j'efface de E35 à E 65536

et je ne sais pas comment coder
une aide ne serait pas de trop

[zazaraignée]

Code :

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

1
2
3
4
Dim Ligne As Integer
Ligne = Selection.Row
Workbooks("calcul gomme4,0-2007.xls").Sheets("Programme Gommes").Range("E" & _
    Ligne & ":E65536").ClearContents

[Thomas69]

un grand merci zazaraigné


une question si j'avais selection.value ca marchait ou non