DO WHILE en VBA EXCEL
Fermé
Erika
-
6 juil. 2009 à 12:35
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 6 juil. 2009 à 15:15
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 6 juil. 2009 à 15:15
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
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:
- DO WHILE en VBA EXCEL
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
295
6 juil. 2009 à 15:15
6 juil. 2009 à 15:15
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+
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+