Boucle de balayage d'une feuille

Bonsoir MaB,

Tu n'as pas besoin d'une boucle si tu souhaites simplement effectuer un remplacement de valeur dans les cellules de la feuille :

Cells.Replace What:=0, Replacement:=''

Cliquez pour agrandir...

Remplacera tous les 0 par rien dans la feuille.

Si tu souhaites cibler une plage particulière pour effectuer ce traitement :

Dim Plage As Range
      Set Plage = Rows(5)
      Plage.Replace What:=0, Replacement:=''

Cliquez pour agrandir...

Remplacera tous les 0 par rien dans la seule ligne 5.

Pour info, tu peux aussi simplement désactiver l'affichage des valeurs 0 par : menu Outils / Options / Onglet Affichage et décocher 'Valeurs zéro'.

Cordialement.

Merci

Mais ce n'est pas tout à fait ce que je voulais, me suis je probablement mal exprimé

Je souhaite avoir dans toute feuille que je crée une macro générique du type

Pour chaque cellule de la feuille
Traitement à effectuer sur chaque cellule de la feuille
Fin de feuille


C'est plus la syntaxe de ce type de boucle qui me manque

salut
essaye un truc du genre :

for i = 1 to nbcolonne
Range (i & ':1').Select
nbligne= Cells(Range(i & ':' & i).Count, ActiveCell.Column).End(xlUp).Row
for j= 1 to nbligne
instruction du genre if cells(j,i)=truc then
cells(j,i)=machin
endif
next i


bon courage

Bonjour,

oui ou comme ça :

Sub efface_0()
  Dim cellule As Range
  For Each cellule In ActiveSheet.UsedRange
    If cellule.Value = 0 Then cellule.Value = ''
  Next
End Sub

Cliquez pour agrandir...