DO WHILE en VBA EXCEL

Erika -  
Bidouilleu_R Messages postés 1209 Statut Membre -
Bonjour,

Bonjour,

je suis en entrain d'utiliser le langage VBA excel, j'aimerais savoir comment on utiliser la boucle Do while

En fait j'ai des données sur excel et je voulais que ma boucle traite toute la colonne F, une fois qu'elle rancontre le code "NOT", qu'elle efface toute la ligne correspondant à ce code.

n'hésitez pas si je n'ai pas été claire à me demander plus d'infos

merci pour votre réponse
Configuration: Windows XP Internet Explorer 7.0

1 réponse

  1.
    Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    bonjour,
    un exemple.

    Sub Efface_ligne()
    '
    ' Cette macro efface les lignes si dans la colonne F il y a (not ou NOT ou Not)
    '

    '
    Dim i As Integer
    Sheets("feuil1").Select

    Range("F1").Select ' on commence ici
    nblig = Range(Selection, Selection.End(xlDown)).Rows.Count

    i = 1 ' première ligne

    Do While i < nblig
    If UCase(Cells(i, 6)) = "NOT" Then
    ' si le mot majuscule de la cellule = "NOT"
    Cells(i, 6).Select ' selectionne la ligne : inutile c'est pour t'aider à suivre
    Rows(i).Delete Shift:=xlUp ' efface la ligne entière

    i = i - 1 ' on recule d'une ligne quand on efface
    End If

    i = i + 1 'ligne suivante

    Loop

    End Sub

    A+
    1