[EXCEL] macro suppression
eric59
-
eric59 -
eric59 -
Bonjour,
j'aimerai faire une macro (je n'y arrive pas) pour supprimer des lignes dans un fichier de +de 20000 lignes et 3 colonnes (A, B,C).
1 - je veux supprimer toutes les lignes qui se termine par $ de la colonne A
2 - je veux remplacer tous les * de la colonne C par X
merci de votre aide précieuse.
j'aimerai faire une macro (je n'y arrive pas) pour supprimer des lignes dans un fichier de +de 20000 lignes et 3 colonnes (A, B,C).
1 - je veux supprimer toutes les lignes qui se termine par $ de la colonne A
2 - je veux remplacer tous les * de la colonne C par X
merci de votre aide précieuse.
Configuration: Windows XP Firefox 2.0.0.11
3 réponses
-
Voila le code
i = 2
While (Not (Range("a" & i) = ""))
If (Right(Range("a" & i), 1) = "$") Then
Range("A" & i).EntireRow.Delete
Else
If (Range("c" & i) = "*") Then
Range("c" & i) = "X"
End If
i = i + 1
End If
Wend
A+
Nico -
Alors voila l'explication
i est la variable qui représente le N° de la ligne en cours
i = 2
While (Not (Range("a" & i) = ""))
Tant que la cellule "a" de la ligne en cours n'est pas à blanc (je parcours toutes les lignes de la feuille)
If (Right(Range("a" & i), 1) = "$") Then
Si la cellule "a" fini par $ (fini par = dernier caractère de droite = $)
Range("A" & i).EntireRow.Delete
Je supprime la ligne
Else
Sinon (la cellule ne fint pas par $)
If (Range("c" & i) = "*") Then
Si la cellule "c" est égale à *
Range("c" & i) = "X"
alors la cellule "c" est égale à "X"
End If
i = i + 1
passage la ligne suivante
End If
Wend
fin de la boucle tant que
En espérant que ce sera plus clair
A+
Nico -
