Discussion :

[tomy7]

bonjour j ai un sub qui me fait ramer le pc y a t il un moyen de l allégé... ou de changer de methode... il sert a vider des cellules qui ne contiennent pas de formule que du texte apres une copie de feuille:

ce code est activé a partir d un bouton sur un forms:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim NewSh As Worksheet
    Dim a, b, c, d As Range
    Worksheets("Main").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
    Set NewSh = ActiveWorkbook.Worksheets(Sheets.Count)
    NewSh.Name = "Add" & Sheets.Count - 2
    NewSh.Visible = True
    NewSh.Select
 
    For Each a In ActiveSheet.Range("G12:N263")
        If Not a.HasFormula Then a.ClearContents
    Next a
    For Each b In ActiveSheet.Range("X9:AC10")
         b.ClearContents
    Next b
     For Each c In ActiveSheet.Range("R12:R263")
        If Not c.HasFormula Then c.ClearContents
    Next c
     For Each d In ActiveSheet.Range("T12:T263")
      d.ClearContents
    Next d

merci

[wilfried_42]

Bonjour

essaye ca

Code :

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

1
2
3
4
5
6
On error resume next ' s'il n'y a aucune valeur vide) provoque une erreur
Range("G12:N263").Cells.SpecialCells(xlCellTypeConstants).ClearContents
Range("X9:AC10").Cells.SpecialCells(xlCellTypeConstants).ClearContents
Range("R12:R263").Cells.SpecialCells(xlCellTypeConstants).ClearContents
Range("T12:T263").Cells.SpecialCells(xlCellTypeConstants).ClearContents
on error goto 0

[tomy7]

je dirai que ton code est bourin.... j adore.

thanks Wilfried