Aide rapide sur bout de code VBA

[BAT]

Bonjour à tous !

Je cherche à transformer se bout de code qui me permet de masquer les lignes dont les valeurs de la colonne O sont = à 11 vers un code qui supprime ces lignes. Tous doit se faire à sur "cel.EntireRow.Hidden = False" je pense ! Non ??

For Each cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
li = cel.Row 'définit la variable li

'condition
'et la cellule
If Cells(li, 15).Value = "11" Then
cel.EntireRow.Hidden = False 'affiche la ligne
Else 'sinon
cel.EntireRow.Hidden = True 'masque ligne
End If 'fin uide la condition
Next cel 'prochane cellule de la plage
End With

 

[wilfried_42]

Re : Aide rapide sur bout de code VBA

salut bat

dans la destruction de ligne, on trouve un gros hic exemple

dans un bloc de 20 lignes suppresion de ma 10 eme

for i = 1 to 20
if i= 10 then delete
next i

le probleme est que lorsque tu supprimes la 10eme ligne la 11 eme prend sa place et devenant la 10eme ne sera plus traitee à cause du next i

il faut donc inverser la boucle

for i = 20 to 1 step -1
if i = 10 then entirerow(i).delete
next

salutations

 

[Pierrot93]

Re : Aide rapide sur bout de code VBA

Bonjour Bat, Wilfried

Autre méthode :

Sub TEST()
Dim MaPlage As Range, MesLignes As Integer, l As Integer
Set MaPlage = Range("A2:A" & Range("A65536").End(xlUp).Row)
MesLignes = MaPlage.Rows.Count
For l = MesLignes To 2 Step -1
    If MaPlage(l, 1).Value = "11" Then MaPlage(l, 1).EntireRow.Delete: _
    MesLignes = MesLignes - 1
Next l
End Sub

Tu déduit 1 de ta plage lorsque tu "delete" ca évite ensuite de boucler dans le vide.

bon après midi
@+

 

[Pierrot93]

Re : Aide rapide sur bout de code VBA

Re,

après mure reflexion ca ne boucle pas dans le vide, tu peux enlever "MesLignes = MesLignes - 1", pas besoin avec le "step -1" e,n partant dans ce sens.

Désolé....

@+