Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Ben alors personne n'est encore passé...bon ben j'm'y colle alors...lol
Voici une procédure...
Sub Cacher_Afficher()
If [A1].Value = 1 Then
With Feuil1
.Rows(2).Hidden = True
.Rows(3).Hidden = True
End With
Else
With Feuil1
.Rows(2).Hidden = False
.Rows(3).Hidden = False
End With
End If
End Sub
Son principe...si la valeur de la cellule A1 sur Feuil1 est égale à 1 alors on masque les lignes 2 et 3 (True) sinon on les affiches (False)...
PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...
je veux bien admettre qu'il est possible de réduire une procédure mais y'a quand même des limites...
Oli, si j'ai proposé les deux conditions dans ma macro, c'était bien pour répondre au plus près à la demande initiale de Rico qui voulait masquer/afficher des lignes selon une condition :
Donc j'ai paramétré la procédure qui permet de masquer les lignes 2 et 3 (si la cellule A1 contient la valeur 1)...et d'autre part d'afficher ces lignes si la cellule A1 contient une autre valeur...
or avec ta procédure il n'est plus possible d'afficher les lignes une fois masquées...ce qui à mon sens ne répond plus à la question de départ...de plus ta macro aura du mal à fonctionner sans End If...
tiens tant que j'y suis...la même chose (mais en boucle)...
Sub Cacher_Afficher()
'% correspond à Integer
Dim i%
'on gèle l'écran
Application.ScreenUpdating = False
'on commence à la ligne 2 pour finir à 10
For i = 2 To 10
If [A1].Value = 1 Then Rows(i).Hidden = True Else: Rows(i).Hidden = False
Next i
'mise à jour écran
Application.ScreenUpdating = True
End Sub
D'ailleurs j'ai oublié de mettre dans mon dernier post l'astérisque stipulant que ta solution amaigrissante n'apparaissait pas encore dans ce fil...loool
Alors pour rigoler voici ce que j'ai trouvé sur la base de ta procédure...
Sub Cacher_Afficher()
Feuil1.Rows("2:3").Hidden = [A1] = 1
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.