Discussion :

[pilounet54]

bonjour
j'ai ceci avec un bouton, inconvenient c'est qu'a chaque fois que j'efface avec ce code cela garde en mémoire le range et sur l'utilisation apres d'un usedrange pour selectionner est imprimer , le nombre de ligne n'est pas correcte
avez vous une astuce ?

Code :

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

1
2
3
Worksheets("Feuil1").Range("C4:Q1000").ClearContents
  Range("C4:Q1000").Borders.Value = 0
  Worksheets("Feuil1").Range("C4:Q1000").Interior.ColorIndex = xlNone

merci

[Daniel.C]

Bonjour,

Code :

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

Worksheets("Feuil1").Range("C4:Q1000").Clear

peut-être ?

[nchal]

salut,

Je sais pas si j'ai compris ton problème. Alors je te balance un truc en espérant que sa peut t'aider. Il suffit de déclarer ton range en Objet, comme sa tu utilise ton objet et le usedrange ne sera pas influencé par ton Range :

Code :

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

1
2
3
4
5
6
7
 
Dim MaPlage as Range
Set MaPlage = Worksheets("Feuil1").Range("C4:Q1000")
With MaPlage
       .Borders.Value = 0
       .Interior.ColorIndex = xlNone
End With