Supprimer valeur zéro des cellules sur excel

[Résolu/Fermé]
Signaler
-
 suricate55 -
Excel2007

Bonjour,

Comment faire pour supprimer et non effacer toutes les valeurs zéro des cellules d'une base de donnés en un seul clic à partir d'une macro ou visuel basic

2 réponses

Messages postés
24178
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
17 septembre 2021
6 884
Bonjour,

supprimer et non effacer
Tu veux supprimer les cellules et les autres valeurs remontent d'un cran ?
Et si tu supprimes A3 par exemple, y'a-t-il des valeurs liées en B, C, ... à supprimer aussi ?

eric
Bonjour,

Non! aucune valeur liée car j'aurais copier et coller seulement la valeur ils n'y aurait plus de formule.

J'aimerais que les cellules vide ne soient pas égale à zéro mais qu'elle soit contenant vide et non vide test"" pour que le texte adjacent à la cellule s'affiche sur le reste de l'autre cellule car je suis restreint par un cadre limité.
J'ai utilisé la logique de ta formule et maintenant ça fonctionne

ActiveSheet.Unprotect
Range("F15:F193,N15:N193").Select
For Each MyCell In Selection
If MyCell.Value Like "0" Then
MyCell.ClearContents
End If
Next
End Sub

Merci
Messages postés
24178
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
17 septembre 2021
6 884
Re,

Ca se fait très facilement par formule mais bon :
Sub suppZéro()
    Dim c As Range
    For Each c In Selection
        If c = 0 Then c = ""
    Next c
End Sub
Traite la plage sélectionnée.

eric