Discussion :

[XaXa2010]

Bonjour,

Je suis débutant sur VBA et je cherche à faire une macro dont l'objectif est le suivant:

J'ai un tableau et je souhaite supprimer une ligne si une des cellules contient une valeur précise, sachant que d'une fois à l'autre le tableau contiendra un nombre variable de lignes.

Exemple dans le tableau ci joint:

je souhaite supprimer la ligne si dans la colonne "nombre" il y a 0.

[casefayere]

Bonjour,
essaye ce code à adapter

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim i As Integer
With ActiveSheet
For i = 3 To .UsedRange.Count
    If .Range("b" & i) = 0 Then .Range("a" & i).EntireRow.Delete
    Next i
End With
End Sub

bonne fin de journée

[Gorfael]

Salut XaXa2010 et le forum
un essais d'après la macro au-dessus

Code :

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

1
2
3
4
5
6
Sub test()
Dim X As Long
For X = UsedRange.Count to 3 step -1
    If Range("B" & X) = 0 Then Rows(X).Delete
Next X
End Sub

Différences :
- X déclaré en Long, une ligne pouvant depasser la limite d'Integer
- ActiveSheet étant la feuille par défaut, on ne la précise pas.
- On décrémente : si les lignes 7 et 8 répondent au critère, avec une boucle incrémenté, on teste la 7 et on la supprime => la 8 devient 7, mais la boucle va continuer et tester la ligne 8, mais c'était la 9, la 8 étant devenue 7.
- au lieu d'EntireRows, on utilise Rows
A+

[casefayere]

Bonsoir et merci pour moi Gorfael

je n'ai plus (ou pas) les bons reflexes de rationalité

toujours utile de voir les codes simplifiés et plus logiques (décrementation)

Bonne soirée

[laetitia]

bonjour XaXa2010 les amis casefayere & Gorfael le forum. personnellement je l'ecrirais comme cela pourquoi utiliser UsedRange dans ce cas la ???

Code :

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

1
2
3
4
5
6
Sub es()
 Dim i As Long
  For i = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
  If Cells(i, 2) = 0 Then Rows(i).Delete
  Next i
End Sub

[Qwazerty]

bonjour XaXa2010 les amis casefayere & Gorfael le forum (j'ai volé ta ligne Leti je suis fainéant ce soir ^^) Bisous a toi

L'avantage de UsedRange réside dans le fait qu'il fonctionnera même si une cellule vide est presente dans les données de la colonne B. Mais bon je pense que tu l'avais vu, puisque tu mets

dans ce cas la

et que aux vus du fichier, les donnée sont continues.
Donc ce poste est plus l'occasion de te faire un bibi :p

A++
Qwaz

[Gorfael]

Salut à tous
laetitia, j'y avait pensé mais si les dernières cellules de B ne contiennent rien (soit 0) la macro devrait les effacer, et le seul moyen est d'utiliser UsedRange, puisque le End(XlUp) les sautera. N'étant pas utilisateur du fichier, je ne peux pas savoir laquelle des deux est la plus adaptée.
De plus, j'ai juste travaillé à partir du code de casefayere, pas du fichier

casefayere, la décrémentation devient évidenye quand... tu t'es déjà fait avoir et que t'as planché sur ton code pendant des heures en demanant au morceau de fromage blanc qui maintient l'écart entre tes oreilles pourquoi ça ne fonctionne pas systématiquement Je t'assure que tu ne l'oublie plus.
A+