Appliqué macro sur 2 feuilles ?

Re forum,

comment doit je modier la macro pour afficher les colonnes aussi pour page1 et page2 simultanement?

"là c'est juste pour page1.

Sub VoirColonne()

Dim Cl As String

Cl = InputBox("mot de passe ?")

If Cl = "ops" Then

With Sheets("page1")

.Unprotect 'Password:="xxx"

.Range("j:j, k:k, l:l, m:m, n:n").EntireColumn.Hidden = False

.Protect 'Password:="xxxx"

End With

Else

MsgBox ("faux !")

End If

End Sub

Bonjour,

tu pourrais créer un tableau avec le nom de tes feuilles à traiter et ensuite faire une boucle pour traiter chaque item du tableau:

Sub VoirColonne()
    Dim Cl As String
    Cl = InputBox("mot de passe ?")
    If Cl = "ops" Then
        Dim ListeFeuille(0 To 1) As String
        ListeFeuille(0) = "Page1"
        ListeFeuille(1) = "Page2"

        For i = 0 To UBound(ListeFeuille)
            With Sheets(ListeFeuille(i))
                .Unprotect 'Password:="xxx"
                .Range("j:j, k:k, l:l, m:m, n:n").EntireColumn.Hidden = False
                .Protect 'Password:="xxxx"
            End With
        Next i
    Else
        MsgBox ("faux !")
    End If
End Sub

Bonsoir

Sub VoirColonne()
Dim Cl As String
Cl = InputBox("mot de passe ?")
If Cl = "ops" Then
x = Array("Page1", "Page2")
For i = 0 To 1
Sheets(x(i)).Unprotect
Sheets(x(i)).Range("j:j, k:k, l:l, m:m, n:n").EntireColumn.Hidden = False
Sheets(x(i)).Protect
Next
Else
MsgBox ("faux !")
End If
End Sub

Amicalement

Nad

Re

voilà j'ai essayé un code pour masquer et afficher des colonnes mais sa marche pas pour masquer ?

priere me corriger l'erreur svp

Sub VoirColonne()

Dim Cl As String

Cl = InputBox("mot de passe ?")

If Cl = "toto" Then

Dim ListeFeuille(0 To 1) As String

ListeFeuille(0) = "page1"

ListeFeuille(1) = "page2"

For i = 0 To UBound(ListeFeuille)

With Sheets(ListeFeuille(i))

.Unprotect 'Password:="ops"

.Range("j:j, k:k, l:l, m:m, n:n").EntireColumn.Hidden = False

.Protect 'Password:="ops"

End With

Else

MsgBox ("faux !")

End If

End Sub

Sub MasqueColonne()

Dim ListeFeuille(0 To 1) As String

ListeFeuille(0) = "page1"

ListeFeuille(1) = "page2"

For i = 0 To UBound(ListeFeuille)

With Sheets(ListeFeuille(i))

.Unprotect 'Password:="dudu"

.Range("j:j, k:k, l:l, m:m, n:n").EntireColumn.Hidden = True

.Protect 'Password:="dudu"

End With

End Sub

Salut le forum

Merci d'éditer ton message et de mettre ton code en balise.

Tu sélectionne ton code et tu clique sur Code en haut de la fenêtre, cela donne une

meilleur visibilité pour les intervenants.

Mytå

Re le forum

Kikim78, tes macros corrigées

Sub VoirColonne()
Dim ListeFeuille(0 To 1) As String
Dim Cl As String

ListeFeuille(0) = "page1"
ListeFeuille(1) = "page2"

Cl = InputBox("mot de passe ?")
If Cl = "toto" Then
  For i = 0 To UBound(ListeFeuille)
    With Sheets(ListeFeuille(i))
      .Unprotect 'Password:="ops"
      .Columns("I:N").EntireColumn.Hidden = False
      .Protect 'Password:="ops"
    End With
 Next i
Else
  MsgBox ("Permission refusée !")
End If

End Sub

Sub MasqueColonne()
Dim ListeFeuille(0 To 1) As String

ListeFeuille(0) = "page1"
ListeFeuille(1) = "page2"

For i = 0 To UBound(ListeFeuille)
  With Sheets(ListeFeuille(i))
    .Unprotect 'Password:="dudu"
    .Columns("I:N").EntireColumn.Hidden = True
    .Protect 'Password:="dudu"
  End With
Next i

End Sub

Mytå

Bonjour le forum

Solutation adequate !

Cordialement