Aide rapide sur bout de code VBA

BAT · 6 Décembre 2006

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 · 6 Décembre 2006

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 · 6 Décembre 2006

Re : Aide rapide sur bout de code VBA

Bonjour Bat, Wilfried

Autre méthode :

Code:

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 · 6 Décembre 2006

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é....

@+

Aide rapide sur bout de code VBA

BAT

XLDnaute Occasionnel

wilfried_42

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Aide rapide sur bout de code VBA

BAT

XLDnaute Occasionnel

wilfried_42

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency