Supprimer cellule=0

[SIDOTO]

Bonjour.
Je voudrais supprimer dans une liste de cellules (a1:a10) toutes les cellules ayant pour valeur 0.
Merci

 

[tototiti2008]

Re : Supprimer cellule=0

Bonjour SIDOTO,

Peux-tu préciser ?
Supprimer les cellules ? Supprimer les lignes ? Effacer le contenu des cellules ?

 

[job75]

Re : Supprimer cellule=0

Bonjour sidoto et bienvenue,

Vous voulez supprimer ou effacer ces cellules, ou encore ne pas afficher les 0 ?

Salut tototiti

A vous lire, et A+

 

[SIDOTO]

Re : Supprimer cellule=0

PS : il faufrait que cette suppression se fasse par le biais d'une macro.

 

[SIDOTO]

Re : Supprimer cellule=0

Pour etre plus clair :
Avant macro Après macro
a1: 12 12
a2: 2 2
a3: 0 4
a4: 4 17
a5: 17

 

[jeanpierre]

Re : Supprimer cellule=0

Bonjour SIDOTO, tototit, job75,

Supprimer, oui, mais quoi ?

De toutes façons par formule ce n'est pas possible ne reste donc que la macro.

La question reste d'actualité, QUOI, les cellules ou certaines, les lignes... ?

Bon après-midi.

Jean-Pierre

 

[job75]

Re : Supprimer cellule=0

Re,

La macro suivante supprime les lignes des cellules de valeurs 0 (pas celles des cellules vides) :

Sub Supprime()
For Each Cel In Range("A1:A10")
If Cel.Value = "0" Then Cel.EntireRow.Delete
Next
End Sub

A+

 

[SIDOTO]

Re : Supprimer cellule=0

Merci pour vos réponses.
il ne s'agit pas de supprimer une ligne mais bien une cellule.
Dans un groupe de cellules (ex: a1:a10) supprimer toutes les cellules qui ont pour valeur 0.

 

[job75]

Re : Supprimer cellule=0

Re,

Sub Supprime()
For Each Cel In Range("A1:A10")
If Cel.Value = "0" Then Cel.Delete Shift:=xlUp
Next
End Sub

A+

 

[Cousinhub]

Re : Supprimer cellule=0

Bonjour,

Bonjour, job

Perso, pour des suppressions de cellules (ou lignes), je pars du bas vers le haut....

Si 2 cellules adjacentes (A4 et A5) contiennent 0, seule A4 sera supprimée, avec ton code...

Sub Supprime()
For i = 10 To 1 Step -1
If Cells(i, 1).Value = "0" Then Cells(i, 1).Delete Shift:=xlUp
Next i
End Sub

 

[job75]

Re : Supprimer cellule=0

Re,

Merci de ce correctif bh2, j'avais oublié cette précaution.

A+

 

[SIDOTO]

Re : Supprimer cellule=0

merci, merci, merci.🙂🙂🙂