Boucle de balayage d'une feuille

[MaB]

Bonjour,

Comment peut on, de manière générique, constituer une boucle de baalyage d'une feuille de calcul pour examiner des lignes ou des colonnes et appliquer un traitement sur chacune d'elles ?
par exemple supprimer toutes les cellules d'une ligne à zéro pour les remplacer par des Blancs.

Salut

Bonne nuit

 

[myDearFriend!]

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:=''

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:=''

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.

 

[MaB]

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

 

[sylv900]

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

 

[Sylvain]

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