DO WHILE en VBA EXCEL

Erika -  
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
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