code vab

[charpy]

Bonjour

qui peux me dire pourquoi ce code marche pas

if cells = 0 then clearcontents

normalement ce code efface le cellules a zero c'est bien ca


merci

pascal

 

[Munchkin]

Bonjour Pascal

Il faut au moins dire quelle ligne et quelle colonne pour la cellule

cells (ligne, colonne)

voilà
Munchkin

 

[charpy]

salut Munchkin

si je fait :

if cells("A1:AB77) = 0 then clearcontents

c'est bon il prend les cellules selectionner et ils les efface

pascal

 

[charpy]

salut
désole j'ai repondu trop vite ca ne fonction toujours pas mais avec le code :
if cells("A1:AB77) = 0 then clearcontents
qui a une solution ?

pascal

 

[Munchkin]

Pascal

est ce que c'est cells("A1:AB77") = 0 ou rabge("A1:AB77")?

car c'est une plage de cellule et non pas une seul

cells c'est pour une cellule
range c'est pour une plage

sauf si je me trompe
Munchkin

 

[Pascal76]

Bonjour Pascal

Essaies ceci

For Each cell In Range("A1:AB77")
If cell = c Then cell.ClearContents
Next

Bon courage

Pascal

 

[Munchkin]

excuse mois

je voulais écrire range("A1:AB77")?

mais le voilà Pascal76 avec sa solution

For Each cell In Range("A1:AB77")
If cell = 0 Then cell.ClearContents
Next

ce devrais allez
Munchkin

 

[charpy]

merci pascal

ca marche terrible

merci encore

a+
charpy

 

[@+Thierry]

Bonjour Pascal, Re Munchkin, Re Pascal, le Forum

En complément d'info, sans préciser de plage on peut aussi faire ceci :

Sub ValueZeroClearing()
Dim Cell As Range

   For Each Cell In ActiveSheet.UsedRange
      If Cell = 0 Then Cell = ""
   Next

End Sub

Cependant, la méthode du Cells, qui n'est pas applicable ici, peut s'avérer bien plus utile et rapide qu'une boucle pour certains "nettoyages globaux" sur une Feuille :

Sub FullClearing()
Cells.Clear
End Sub
Sub ValueClearing()
Cells.ClearContents
End Sub
Sub CommentsClearing()
Cells.ClearComments
End Sub
Sub FormatClearing()
Cells.ClearFormats
End Sub


Bon Appétit
@+Thierry