Macro Supprimer Lignes

Caro -  
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

  • Votes
  • Date
  • Date décroissante
  1. CapitainCo
    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

    Discussions similaires

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

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

    25 réponses