VBA Excel : Suppression de cellule

Question

Bonjour tout le monde,
j'aimerais, au cours d'une macro, scanner un tableau de deux colonnes, et supprimer la ligne entière si une des deux cellules de cette ligne est vide. Je sais, pour l'instant rien de très compliqué. Mais en fait, toutes ces cellules contiennent des formules, et le bon vieux 
  
  For z = 2 To Derlig
    If Cells(z, 1).Value = 0 Then
        Rows(z).Delete Shift:=xlUp
        End If
    
    If Cells(z, 2).Value = "" Then
        Rows(z).Delete Shift:=xlUp
        End If
       
       Next z
 
ne marche pas. En fait, j'aimerais que la macro supprime la ligne si rien n'apparaît dans la cellule. 
Dans chaque cellule, il y a une fonction du type :
=SI(CHERCHE("p";SUPPRESPACE(A31))>5;"";SUPPRESPACE(SUBSTITUE(SUBSTITUE(A31;"<permission name=";"");" />";"")))

Merci d'avance !

michel_m · Answer

Bonjour,

peut être avec un test hasfomula

et une valeur Zéro

test=cells(z,2).value

if cells(z,2).hasformula and test =0 then
cells(z,2).clearContents

pas du tout sûr de moi, mais...

Bushinone · Answer

Non, cela ne fonctionne pas... ^^ 
Tant pis, j'essaie autre chose...

VBA Excel : Suppression de cellule

2 réponses

Newsletters