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
isabelle
bonjour xem,
Sub Macro1() Dim f As Worksheet, f1 As Worksheet On Error Resume Next Set f1 = ActiveSheet ActiveSheet.Previous.Activate f1.Range("A1").ClearContents For Each f In Worksheets If f.Name <> f1.Name Then _ Sheets(f.Name).Select Replace:úlse Next ActiveWindow.SelectedSheets.Visible = False End Sub
si besoin il faut modifier Worksheet par Sheet pour inclure tout les feuilles (graph, macro xl4 et autres)
isabelle
Bonjour/soir tout le monde
Est-il possible de cacher tous les onglets des feuilles sauf celui de la feuille active?
Merci de vos réponses. Xem
bonjour xem,
Sub Macro1()
Dim f As Worksheet, f1 As Worksheet
On Error Resume Next
Set f1 = ActiveSheet
ActiveSheet.Previous.Activate
f1.Range("A1").ClearContents
For Each f In Worksheets
If f.Name <> f1.Name Then _
Sheets(f.Name).Select Replace:úlse
Next
ActiveWindow.SelectedSheets.Visible = False
End Sub
si besoin il faut modifier Worksheet par Sheet pour inclure tout les feuilles (graph, macro xl4 et autres)
isabelle
Bonjour/soir tout le monde
Est-il possible de cacher tous les onglets des feuilles
sauf celui de la feuille active?
Sub Macro1() Dim f As Worksheet, f1 As Worksheet On Error Resume Next Set f1 = ActiveSheet ActiveSheet.Previous.Activate f1.Range("A1").ClearContents For Each f In Worksheets If f.Name <> f1.Name Then _ Sheets(f.Name).Select Replace:úlse Next ActiveWindow.SelectedSheets.Visible = False End Sub
si besoin il faut modifier Worksheet par Sheet pour inclure tout les feuilles (graph, macro xl4 et autres)
isabelle
Bonjour/soir tout le monde
Est-il possible de cacher tous les onglets des feuilles sauf celui de la feuille active?
Merci de vos réponses. Xem
isabelle
bonjour xem,
Sub Macro1() Dim f As Worksheet, f1 As Worksheet On Error Resume Next Set f1 = ActiveSheet ActiveSheet.Previous.Activate For Each f In Worksheets If f.Name <> f1.Name Then _ Sheets(f.Name).Select Replace:úlse Next ActiveWindow.SelectedSheets.Visible = False End Sub
si besoin il faut modifier Worksheet par Sheet pour inclure tout les feuilles (graph, macro xl4 et autres)
isabelle
Bonjour/soir tout le monde
Est-il possible de cacher tous les onglets des feuilles sauf celui de la feuille active?
Merci de vos réponses. Xem
bonjour xem,
Sub Macro1()
Dim f As Worksheet, f1 As Worksheet
On Error Resume Next
Set f1 = ActiveSheet
ActiveSheet.Previous.Activate
For Each f In Worksheets
If f.Name <> f1.Name Then _
Sheets(f.Name).Select Replace:úlse
Next
ActiveWindow.SelectedSheets.Visible = False
End Sub
si besoin il faut modifier Worksheet par Sheet pour inclure tout les feuilles (graph, macro xl4 et autres)
isabelle
Bonjour/soir tout le monde
Est-il possible de cacher tous les onglets des feuilles
sauf celui de la feuille active?
Sub Macro1() Dim f As Worksheet, f1 As Worksheet On Error Resume Next Set f1 = ActiveSheet ActiveSheet.Previous.Activate For Each f In Worksheets If f.Name <> f1.Name Then _ Sheets(f.Name).Select Replace:úlse Next ActiveWindow.SelectedSheets.Visible = False End Sub
si besoin il faut modifier Worksheet par Sheet pour inclure tout les feuilles (graph, macro xl4 et autres)
isabelle
Bonjour/soir tout le monde
Est-il possible de cacher tous les onglets des feuilles sauf celui de la feuille active?
Merci de vos réponses. Xem
xem
Merci, Isabelle Parfait Bonne nuit xem "isabelle" a écrit dans le message de news:
bonjour xem,
Sub Macro1() Dim f As Worksheet, f1 As Worksheet On Error Resume Next Set f1 = ActiveSheet ActiveSheet.Previous.Activate For Each f In Worksheets If f.Name <> f1.Name Then _ Sheets(f.Name).Select Replace:úlse Next ActiveWindow.SelectedSheets.Visible = False End Sub
si besoin il faut modifier Worksheet par Sheet pour inclure tout les feuilles (graph, macro xl4 et autres)
isabelle
Bonjour/soir tout le monde
Est-il possible de cacher tous les onglets des feuilles sauf celui de la feuille active?
Merci de vos réponses. Xem
Merci, Isabelle
Parfait
Bonne nuit
xem
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41786C3E.9F1E7BCC@videotron.ca...
bonjour xem,
Sub Macro1()
Dim f As Worksheet, f1 As Worksheet
On Error Resume Next
Set f1 = ActiveSheet
ActiveSheet.Previous.Activate
For Each f In Worksheets
If f.Name <> f1.Name Then _
Sheets(f.Name).Select Replace:úlse
Next
ActiveWindow.SelectedSheets.Visible = False
End Sub
si besoin il faut modifier Worksheet par Sheet pour inclure tout les
feuilles (graph, macro xl4 et autres)
isabelle
Bonjour/soir tout le monde
Est-il possible de cacher tous les onglets des feuilles
sauf celui de la feuille active?
Merci, Isabelle Parfait Bonne nuit xem "isabelle" a écrit dans le message de news:
bonjour xem,
Sub Macro1() Dim f As Worksheet, f1 As Worksheet On Error Resume Next Set f1 = ActiveSheet ActiveSheet.Previous.Activate For Each f In Worksheets If f.Name <> f1.Name Then _ Sheets(f.Name).Select Replace:úlse Next ActiveWindow.SelectedSheets.Visible = False End Sub
si besoin il faut modifier Worksheet par Sheet pour inclure tout les feuilles (graph, macro xl4 et autres)
isabelle
Bonjour/soir tout le monde
Est-il possible de cacher tous les onglets des feuilles sauf celui de la feuille active?
