Supprimer Cellule = 0 dans colonne

Hello,

Besoin de votre aide, j'ai beau chercher je ne trouve pas...

Je cherche à supprimer dans chaque colonnne mes cellules = 0.

J'ai pleins de colonnes (jusqu'à AK) et environ 15K lignes sur ce fichier.

Obliger de faire un tableau, de selectionner les 0 dans la colonne A et de supprimes les cellules. Puis de passer a la colonne B...etc

A l'aide

Bonjour

Supprimer en décalant ou effacer les 0 ?

Pour les effacer, un petit Code dans un module

Sub EffaceSi()
Dim Cellule As Range
For Each Cellule In Range("M1:N10")' ici tu modifies le champ
If Cellule.Value = 0 Then
Cellule.ClearContents
End If
Next
End Sub

Cordialement

Est-ce que 0 est un nombre, texte, date, autre?

Plusieurs possibilités s'offrent à toi :

Appuyer sur CTRL + F en même temps, tu cherches des 0 et tu remplaces par "rien" (tu laisses vide). Tu cliques sur remplacer tous.

Ou dans les options avancées tu choisis d'afficher la valeur 0 ou non.

Amadéus a écrit :

Bonjour

Supprimer en décalant ou effacer les 0 ?

Pour les effacer, un petit Code dans un module

Sub EffaceSi()
Dim Cellule As Range
For Each Cellule In Range("M1:N10")' ici tu modifies le champ
If Cellule.Value = 0 Then
Cellule.ClearContents
End If
Next
End Sub

Cordialement

Merci je test ca

Pincho a écrit :

Est-ce que 0 est un nombre, texte, date, autre?

Plusieurs possibilités s'offrent à toi :

Appuyer sur CTRL + F en même temps, tu cherches des 0 et tu remplaces par "rien" (tu laisses vide). Tu cliques sur remplacer tous.

Ou dans les options avancées tu choisis d'afficher la valeur 0 ou non.

Pas si simple, j'ai pensé au CTRL + F mais mes 10 405€ vont se transformer en 145€...

Idem pour choisir d'afficher ou non. Car je dois faire une fonction NB par la suite (qui prends en compte meme si la valeur de la cellule est nulle.) et pas trop envie d'imbriquer des fonctions. Le fichier pesant déjà plus de 30Mo...