[VBA] aide sur une chainen de calcul
Résolu
Nicoroth
Messages postés
54
Date d'inscription
Statut
Membre
Dernière intervention
-
Nicoroth Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
Nicoroth Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- [VBA] aide sur une chainen de calcul
- Calcul moyenne excel - Guide
- Calcul km marche à pied gratuit - Télécharger - Sport
- Calcul charpente bois gratuit - Télécharger - Architecture & Déco
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Logiciel gratuit calcul surface m2 - Télécharger - Outils professionnels
3 réponses
Bonjour,
ou encore :
Lupin
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
Salut,
moi j'ai compris qu'il veut ça cela fonctionne de 1 a 10 bien sur mais egalement de 20 a 30
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