Sujet Précédent Sujet Suivant

VBA Excel : Suppression de cellule

Fermé
Bushinone Messages postés 8 Date d'inscription mardi 22 juillet 2008 Statut Membre Dernière intervention 25 juillet 2008 - 23 juil. 2008 à 11:38
Bushinone Messages postés 8 Date d'inscription mardi 22 juillet 2008 Statut Membre Dernière intervention 25 juillet 2008 - 24 juil. 2008 à 10:34
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 !
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
23 juil. 2008 à 12:05
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...
0
Réponse 2 / 2
Bushinone Messages postés 8 Date d'inscription mardi 22 juillet 2008 Statut Membre Dernière intervention 25 juillet 2008
24 juil. 2008 à 10:34
Non, cela ne fonctionne pas... ^^
Tant pis, j'essaie autre chose...
0