Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Brunos
Bonjour,
J'aimerais avoir une macro suivante:
Va à la dermier onglet Si la cellule P6=2, Masque les lignes 42 et 43.
Bonjour Erico,
Je suppose que dernier onglet = denière feuille à droite dans le classeur. Dans ce cas : Sub Masque() Worksheets(Worksheets.Count).Select If [P6].Value = 2 Then Rows("42:43").EntireRow.Hidden = True Else Rows("42:43").EntireRow.Hidden = False End If End Sub
Si c'est la feuille la plus à gauche, Worksheets(1).Select
Brunos
Bonjour,
J'aimerais avoir une macro suivante:
Va à la dermier onglet
Si la cellule P6=2, Masque les lignes 42 et 43.
Bonjour Erico,
Je suppose que dernier onglet = denière feuille à droite dans le
classeur.
Dans ce cas :
Sub Masque()
Worksheets(Worksheets.Count).Select
If [P6].Value = 2 Then
Rows("42:43").EntireRow.Hidden = True
Else
Rows("42:43").EntireRow.Hidden = False
End If
End Sub
Si c'est la feuille la plus à gauche, Worksheets(1).Select
Va à la dermier onglet Si la cellule P6=2, Masque les lignes 42 et 43.
Bonjour Erico,
Je suppose que dernier onglet = denière feuille à droite dans le classeur. Dans ce cas : Sub Masque() Worksheets(Worksheets.Count).Select If [P6].Value = 2 Then Rows("42:43").EntireRow.Hidden = True Else Rows("42:43").EntireRow.Hidden = False End If End Sub
Si c'est la feuille la plus à gauche, Worksheets(1).Select
Va à la dermier onglet Si la cellule P6=2, Masque les lignes 42 et 43.
Bonjour Erico,
Je suppose que dernier onglet = denière feuille à droite dans le classeur. Dans ce cas : Sub Masque() Worksheets(Worksheets.Count).Select If [P6].Value = 2 Then Rows("42:43").EntireRow.Hidden = True Else Rows("42:43").EntireRow.Hidden = False End If End Sub
Si c'est la feuille la plus à gauche, Worksheets(1).Select
On 18 jan, 14:23, "Brunos" <pasdem...@moi.mezig> wrote:
Bonjour,
J'aimerais avoir une macro suivante:
Va à la dermier onglet
Si la cellule P6=2, Masque les lignes 42 et 43.
Bonjour Erico,
Je suppose que dernier onglet = denière feuille à droite dans le
classeur.
Dans ce cas :
Sub Masque()
Worksheets(Worksheets.Count).Select
If [P6].Value = 2 Then
Rows("42:43").EntireRow.Hidden = True
Else
Rows("42:43").EntireRow.Hidden = False
End If
End Sub
Si c'est la feuille la plus à gauche, Worksheets(1).Select
Va à la dermier onglet Si la cellule P6=2, Masque les lignes 42 et 43.
Bonjour Erico,
Je suppose que dernier onglet = denière feuille à droite dans le classeur. Dans ce cas : Sub Masque() Worksheets(Worksheets.Count).Select If [P6].Value = 2 Then Rows("42:43").EntireRow.Hidden = True Else Rows("42:43").EntireRow.Hidden = False End If End Sub
Si c'est la feuille la plus à gauche, Worksheets(1).Select
Va à la dermier onglet Si la cellule P6=2, Masque les lignes 42 et 43.
Bonjour Erico,
Je suppose que dernier onglet = denière feuille à droite dans le classeur. Dans ce cas : Sub Masque() Worksheets(Worksheets.Count).Select If [P6].Value = 2 Then Rows("42:43").EntireRow.Hidden = True Else Rows("42:43").EntireRow.Hidden = False End If End Sub
Si c'est la feuille la plus à gauche, Worksheets(1).Select
Brunos
Petite leçon de concision... :o)
Brunos
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
12302a1e-7e46-4fff-bc1b-ae85b9f14bdf@q77g2000hsh.googlegroups.com...
Bonjour
On 18 jan, 14:23, "Brunos" <pasdem...@moi.mezig> wrote:
Bonjour,
J'aimerais avoir une macro suivante:
Va à la dermier onglet
Si la cellule P6=2, Masque les lignes 42 et 43.
Bonjour Erico,
Je suppose que dernier onglet = denière feuille à droite dans le
classeur.
Dans ce cas :
Sub Masque()
Worksheets(Worksheets.Count).Select
If [P6].Value = 2 Then
Rows("42:43").EntireRow.Hidden = True
Else
Rows("42:43").EntireRow.Hidden = False
End If
End Sub
Si c'est la feuille la plus à gauche, Worksheets(1).Select
Va à la dermier onglet Si la cellule P6=2, Masque les lignes 42 et 43.
Bonjour Erico,
Je suppose que dernier onglet = denière feuille à droite dans le classeur. Dans ce cas : Sub Masque() Worksheets(Worksheets.Count).Select If [P6].Value = 2 Then Rows("42:43").EntireRow.Hidden = True Else Rows("42:43").EntireRow.Hidden = False End If End Sub
Si c'est la feuille la plus à gauche, Worksheets(1).Select