Effacer cellule B si A à 0

[Boby71C]

Bonsoir
Pouvez-vous m'indiquer comment faire une boucle pour tester A
A partir de A3
Si A est > à 0
Alors descendre d'une cellule
Si A est = à 0 alors effacer B situé à sa droite
Descendre d'une cellule en A
Reffaire le test jusqu'à la ligne 186

Merci pour votre aide.

Je ne comprend toujours pas les boucles
@+ [file name=Effacer.zip size=4888]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Effacer.zip[/file]

 

[JC de Lorient]

bonsoir Boby, le forum

tu peux essayer avec ce code a mettre dans un module

Sub efface()
Dim cells As Range
For Each cells In Range('A3:A186')
If cells.Value = 0 Then
cells.Offset(0, 1) = ''
End If
Next
End Sub

JC

 

[Boby71C]

Bonsoir à tous
Merci beaucoup JC c'est parfait
Si seulement j'avais vos connaissances en VBA

Bonne fin d'année et que 2006 te soit agréable ainsi qu'à tous les exceliens
@+

 

[FREDASTER]

Bonjour et bonne année,

Je cherche tout simplement la même chose mais en disant que si la celulle est vide alors effacer les celulles.

Car en faisant une SOMMEPROD, j'ai certaines cellules qui sont vides (apparemment) mais en réalité certaines contiennent des espaces de la barre d'espace et cela me mets une erreur #valeur alors que quand je fait SUPPR sur toutes les cellules vides contenant un espace fait avec la barre d'espace là la formule fonctionne.

ce pourquoi je voudrais effacer par une macro les celulles vides de AC3:AC250

Tout simplement, je suppose qu'il faut modifier la macro de la manière suivante :
If cells.value = ''
mais je sèche sur le cells.offset qui moi ne doit pas effacer une cellule à droite mais les celulles vides concernées.

Merci par avance.