VBA Excel : remplacer des "0" dans une colonne

Bonjour,

J'aimerais remplacer, dans une colonne, les "0" par des cellules vides :
Ca ne me parait pas très compliqué mais pourtant je bloque sur : cell.value = 0
ça me met le message incompatibilité de type, je ne comprend pas pourquoi...

Avez vous une idée ?
Merci,

Code:

---

1 2 3 4 5 6 7 8 9 10

dim cell as range   For Each cell In Range("G1").EntireColumn   If cell.Value = 0 Then cell.Value = "" End If   Next cell

---

Citation:

---

Envoyé par markym

ça me met le message incompatibilité de type, je ne comprend pas pourquoi...

---

Sans doute parce que certaines de ces cellules ne contiennent pas de valeur numériques mais du texte (une cellule vide dans Excel est considérée comme du texte).

Cela dit, à mon avis, tu devrais plutôt t'orienter sur la méthode Replace avec le paramètre LookAt à xlWhole.
Ca t'éviterait une boucle.
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Autre détail : plutôt que d'écrire Range("G1").EntireColumn, il est plus simple d'écrire Columns("G") qui a le même résultat.

EDIT : je n'avais pas remarqué que tu avais mis un nom différent entre la variable de la boucle et celle qui est testée (tu rajoutes un "S"). Ca ne risque donc pas de fonctionner.
Prends l'habitude de précéder ton code de Option Explicit ou, mieux, fais en sorte qu'il se place par défaut : Menu Outils > Options > Onglet Editeur > coche "Déclaration de variables obligatoire".
Ca t'évitera beaucoup de problèmes.

oui merci, c'était bien ça,

par contre est ce normal maintenant que ça me mette un message d'erreur "mémoire insuffisante"

et même en réduisant sur 10 cellules


Markym

je n'avais pas vu ton message Menhir,

Concernant le Replace, ça ne marcherait pas car je ne veux remplacer que les valeurs des cellules qui contiennent "0" uniquement et non pas celle qui contiennent des valeurs numériques avec des "0" comme 420.2 par exemple.

J'avais bien oublié un S dans le code mais maintenant ça me met un message "mémoire insuffisante"...

Mon erreur vient de la ligne :

Code:

---

For Each cell In Range("G1").EntireColumn

---

Ce code ci-dessous fonctionne bien :

Code:

---

1 2 3 4 5 6 7 8 9

dim cell as range   For Each cell In Range("G1:G10")   If cell.Value = 0 Then cell.Value = "" End If   Next cell

---

Lorsque je change en : Range("G1:G10") alors je n'ai plus de problème concernant le type.

Et il ne fallait pas rajouter de S à Cell.Value...

Si une personne à une explication je veux bien sinon je clos le sujet.

Merci en tout cas

bonjour

Code:

---

For Each cell In Range("G1").EntireColumn.cells

---

cela dit!!!!!

est il vraiment necessaire de boucler sur toute la colonne en entier? : je pense que non

ne serait il pas preferable de boucler sur seulement les cellules utilisées dans cette colonne "G"? :je pense que oui!!!

Code:

---

For Each cell In Range("G1",cells(rows.count,"G").end(xlup)).cells

---

;)

Bonjour,
Pourquoi une boucle ?

Code:

---

Range("C1:C101").Replace "0", "", xlWhole

---

[EDIT]
Pour faire l'inverse. Remplacer les cellules vides par une valeur nulle

Code:

---

Range("C1:C101").SpecialCells(xlCellTypeBlanks) = 0

---

et pour masquer les valeurs nulles d'une feuille (celle-ci doit être active au moment d'activer l'option)

Code:

---

ActiveWindow.DisplayZeros = False

---

Manuellement c'est [Fichier]/Options - Options avancées Options d'affichage de la feuille de calcul : Décocher l'option Afficher un zéro dans les cellules qui ont une valeur nulle

Citation:

---

Envoyé par markym

Concernant le Replace, ça ne marcherait pas car je ne veux remplacer que les valeurs des cellules qui contiennent "0" uniquement et non pas celle qui contiennent des valeurs numériques avec des "0" comme 420.2 par exemple.

---

Visiblement, tu n'as pas lu correctement mon message, en particulier le conseil concernant le paramètre LookAt.

Citation:

---

J'avais bien oublié un S dans le code mais maintenant ça me met un message "mémoire insuffisante"...

---

Pour info, Cells est un objet de VBA qui représente la collection de TOUTES les cellules.

Bonjour Menhir,
Désolé, je n'avais pas lu que tu avais déjà donné dans ton intervention la solution avec la méthode Replace. je me suis contenté de parcourir en vitesse les codes proposés.

Oui désolé Menhir, j'avais lu un peu trop vite ta réponse et je n'ai pas compris tout de suite le sens de LookAt

Merci à Patrick et Philippe, ça marche 100 fois mieux!

Code:

---

1 2	Range("G1", Cells(Rows.Count, "G")).Replace "0", "", xlWhole

---

Markym

Il serait judicieux d'un peu limiter la zone de recherche.
Surtout que ça n'est pas très difficile :

Code:

---

Range("G1", Cells(Rows.Count, "G").End(xlUp)).Replace "0", "", xlWhole

---