Discussion :

[Benouman]

Bonjour,
Je voulais créer une Macro qui supprime:
- Les lignes Vides.
- Les Lignes ou la colonne B n'est pas un chiffre.
- Toutes les lignes ou la colonne B commence par une *

Voici mon code: ca fonctionne à date, mais je me demande s'il y a mieux (par curiosité )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub Mise_En_Forme()
Dim i As Integer
 
 
    For i = Range("B65536").End(xlUp).Row To 1 Step -1
    ' Supprimer les lignes ou les colonnes B commence par une *
    If Range("B" & i) Like "* *" Then Rows(i).Delete
    If Range("B" & i) Like "Rubrique*" Then Rows(i).Delete
    If Range("B" & i) Like "Montant*" Then Rows(i).Delete
    If Range("B" & i) Like "Devise*" Then Rows(i).Delete
    If Range("B" & i) Like "*** " Then Rows(i).Delete
    ' Supprimer les lignes vides
    Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
Next i
 
End Sub

Merci!

[Pierre Fauconnier]

Salut.

Les conditions énoncées dans le code que tu montres ne correspondent pas à celles énoncées dans ton message.

La condition like "* *" ne teste pas ce qui commence par * (il y a un espace de trop dans la chaîne)

Le problème avec ton code, c'est que tu testes des lignes déjà testées. En effet, si pour Bi (i = compteur de boucle), le code de ta ligne 9 supprime la ligne, tes lignes remontent et donc, les lignes 10 à 13 testent une ligne déjà testée à la boucle précédente.

La ligne de code [codeinline]Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete[/codeineline] supprime la ligne entière si B est vide (et pas si la ligne entière est vide).

La macro vient manifestement d'un fichier 2003. En XL2010, tu aurais intérêt à utiliser range("b1048576").end(xlup), au cas ou ta feuille serait remplie au delà de la ligne 65536.

Conclusion rapide: ton énoncé pose problème par rapport au code proposé

[Benouman]

Merci pour la réponse, Effectivement, je savais qu'il y a des choses à améliorer... Par contre pour la condition like "* *" , il n'y a pas d'espace de trop, car si tu ne fait pas d'espace, la condition va effacer toutes les lignes.

Tu peux le tester...

Salut.

Les conditions énoncées dans le code que tu montres ne correspondent pas à celles énoncées dans ton message.

La condition like "* *" ne teste pas ce qui commence par * (il y a un espace de trop dans la chaîne)

Le problème avec ton code, c'est que tu testes des lignes déjà testées. En effet, si pour Bi (i = compteur de boucle), le code de ta ligne 9 supprime la ligne, tes lignes remontent et donc, les lignes 10 à 13 testent une ligne déjà testée à la boucle précédente.

La ligne de code [codeinline]Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete[/codeineline] supprime la ligne entière si B est vide (et pas si la ligne entière est vide).

La macro vient manifestement d'un fichier 2003. En XL2010, tu aurais intérêt à utiliser range("b1048576").end(xlup), au cas ou ta feuille serait remplie au delà de la ligne 65536.

Conclusion rapide: ton énoncé pose problème par rapport au code proposé

[unparia]

Bonjour
Moi, je m'en tiens à ce que tu as écrit, à savoir :

Je voulais créer une Macro qui supprime:
- Les lignes Vides.
- Les Lignes ou la colonne B n'est pas un chiffre.
- Toutes les lignes ou la colonne B commence par une *

Il suffit alors de supprimer toutes les lignes dont la propriété text de la cellule Bn n'est pas un numérique, puisqu'un vide n'est pas un numérique et qu'un texte commençant par un "*" n'en est pas un non plus .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not isnumeric(Range("B" & i).text) then Rows(i).Delete

Il n'y aura aucun croche-pieds dans la numérotation puisque je vois (step -1) que le parcours est fait de bas en haut.

Au passage : l'utilisation de l'opérateur Like (si on l'utilise) pour vérifier que le premier caractère d'un texte est un astérisque se fait ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If la_chaîne like "[*]*" Then ...

[Benouman]

Merci C'est super, je savais qu'on pouvait faire beaucoup mieux.

Bonjour
Moi, je m'en tiens à ce que tu as écrit, à savoir :

Il suffit alors de supprimer toutes les lignes dont la propriété text de la cellule Bn n'est pas un numérique, puisqu'un vide n'est pas un numérique et qu'un texte commençant par un "*" n'en est pas un non plus .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not isnumeric(Range("B" & i).text) then Rows(i).Delete

Il n'y aura aucun croche-pieds dans la numérotation puisque je vois (step -1) que le parcours est fait de bas en haut.

Au passage : l'utilisation de l'opérateur Like (si on l'utilise) pour vérifier que le premier caractère d'un texte est un astérisque se fait ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If la_chaîne like "[*]*" Then ...

[Pierre Fauconnier]

Je me suis mal exprimé...

"* *" ne teste pas ce qui commence par "*", mais bien ce qui contient un espace... Si tu veux tester ce qui commence par *, tu dois utiliser "[*]*"

Pour le reste, ta demande ne correspondant pas au code, qui teste que les lignes commencent par tel ou tel mot, il serait utile que tu précises ce que tu souhaites supprimer, afin d'éviter des discussions interminables sur le pourquoi du comment dont certains sont hélas friands