Macro Supprimer Lignes

Caro -  
CapitainCo Messages postés 127 Statut Membre -
Bonjour,

J'aurais besoin d'une macro Excel 2003 VBA pour supprimer des lignes avec la condition suivante.
Si dans la colonne A la fonction me donne comme résultat FAUX effacer les lignes et
pour toutes les lignes suivantes dans cette colonne. Merci pour votre aide
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1.
    CapitainCo Messages postés 127 Statut Membre 61
     
    Dim i,y as integer
    i=1
    y=65536
    do while range("A" & i).value <> ""
    if range("A" & i).value="FAUX" then
    Rows(i).Delete

    y=y-i

    Do while i<>y
    Rows(i).Delete
    i=i+1
    loop
    i =i+1
    End If
    loop
    0

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses
Supprimer l'historique de commandes et d'achats sur Amazon
Matthew5 -
Adraen -

25 réponses