Discussion :

[markym]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

ç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.

[markym]

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

[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"...

[markym]

Mon erreur vient de la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ce code ci-dessous fonctionne bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,
Pourquoi une boucle ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

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

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.

[Philippe Tulliez]

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.

[markym]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Markym

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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