[VBA] aide sur une chainen de calcul Résolu

Question

J ai une ligne de code:
 
dim i as byte
 
for i=1 to 10
 
      If Range("A" & i).Value = "0" Then
           Range ("A" & i).Entirerow.Hidden=true
      Else 
           Range("A" & i).EntireRow.Hidden=False
      End iF
 
next

Et en fait j aimerai que cela fonctionne de 1 a 10 bien sur mais egalement de 20 a 30 par exemple, donc si qqn peut m expliquer, je pense pas que ce soit trop compliquer mais j arrive pas a trouver^^

MERCI

Utilisateur anonyme · Answer

Bonjour,


Sub Test()

    Dim i As Integer

    For i = 20 To 30
        If Range("A" & i).Value = "0" Then
            Range("A" & i).EntireRow.Hidden = True
        Else
            Range("A" & i).EntireRow.Hidden = False
        End If
    Next

End Sub


ou encore :


Sub Lance()
    Cache_Ligne 20, 30
End Sub
'

Sub Cache_Ligne(ByVal Limite_Inferieur As Integer, ByVal Limite_Superieur As Integer)

    Dim i As Integer

    For i = Limite_Inferieur To Limite_Superieur
        If Range("A" & i).Value = "0" Then
            Range("A" & i).EntireRow.Hidden = True
        Else
            Range("A" & i).EntireRow.Hidden = False
        End If
    Next

End Sub


Lupin

lami20j · Answer

Salut,

moi j'ai compris qu'il veut ça cela fonctionne de 1 a 10 bien sur mais egalement de 20 a 30 

Sub a()
Dim i As Interior
    For i = 1 To 30
        If (i > 10 And i < 20) Then
            i = 20
        End If
        
        If Range("A" & i).Value = 0 Then
            Range("A" & i).EntireRow.Hidden = True
        Else
            Range("A" & i).EntireRow.Hidden = False
        End If
    Next i
End Sub

Nicoroth · Answer

Merci l ami

Tu as bien compris ce que je voulais et cela fonctionne parfaitement merci

[VBA] aide sur une chainen de calcul

3 réponses

Discussions similaires

Newsletters