Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui
doivent être remises à zéro sauf une comment faire pour éviter sa selection
car elle contient des formules liées aux autres feuilles.
Voici le code pour supprimer les données dans mes feuilles mais quoi mettre
pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0()
Dim SelectionCell
SelectionCell = Worksheets.Count
Worksheets.Select
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
anonymousA
tu connais le nom de la feuille bien sur . Auquel cas, on va utiliser une boucle qui va discriminer la feuille en question. On pourrrait utiliser une autre méthode mais elle n'est pas plus pratique.
For I=1 to worksheets.count if sheets(I).name="nomdetafeuille" then else sheets(I).Range("A4:G13").ClearContents end if next
A+
"STEN83" a écrit dans le message de news:
Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui doivent être remises à zéro sauf une comment faire pour éviter sa selection
car elle contient des formules liées aux autres feuilles. Voici le code pour supprimer les données dans mes feuilles mais quoi mettre
pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0() Dim SelectionCell SelectionCell = Worksheets.Count Worksheets.Select
Merci à tous -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
tu connais le nom de la feuille bien sur . Auquel cas, on va utiliser une
boucle qui va discriminer la feuille en question. On pourrrait utiliser une
autre méthode mais elle n'est pas plus pratique.
For I=1 to worksheets.count
if sheets(I).name="nomdetafeuille" then
else
sheets(I).Range("A4:G13").ClearContents
end if
next
A+
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de news:
C8C0032C-8AE9-44BD-BBD4-1219AFB4C0F0@microsoft.com...
Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui
doivent être remises à zéro sauf une comment faire pour éviter sa
selection
car elle contient des formules liées aux autres feuilles.
Voici le code pour supprimer les données dans mes feuilles mais quoi
mettre
pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0()
Dim SelectionCell
SelectionCell = Worksheets.Count
Worksheets.Select
tu connais le nom de la feuille bien sur . Auquel cas, on va utiliser une boucle qui va discriminer la feuille en question. On pourrrait utiliser une autre méthode mais elle n'est pas plus pratique.
For I=1 to worksheets.count if sheets(I).name="nomdetafeuille" then else sheets(I).Range("A4:G13").ClearContents end if next
A+
"STEN83" a écrit dans le message de news:
Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui doivent être remises à zéro sauf une comment faire pour éviter sa selection
car elle contient des formules liées aux autres feuilles. Voici le code pour supprimer les données dans mes feuilles mais quoi mettre
pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0() Dim SelectionCell SelectionCell = Worksheets.Count Worksheets.Select
Merci à tous -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
LSteph
Bonsoir Sten, en admettant que l'exception (Feuille) s'appelle "toto" '****** Sub RemiseA0() Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets ws.Select If ws.Name <> "toto" Then _ ws.Range("a4:g13").ClearContents ws.[a4].select Next End Sub '****
'lSteph
"STEN83" a écrit dans le message de news:
Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui doivent être remises à zéro sauf une comment faire pour éviter sa selection car elle contient des formules liées aux autres feuilles. Voici le code pour supprimer les données dans mes feuilles mais quoi mettre pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0() Dim SelectionCell SelectionCell = Worksheets.Count Worksheets.Select
Merci à tous -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Bonsoir Sten,
en admettant que l'exception (Feuille) s'appelle "toto"
'******
Sub RemiseA0()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Select
If ws.Name <> "toto" Then _
ws.Range("a4:g13").ClearContents
ws.[a4].select
Next
End Sub
'****
'lSteph
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de news:
C8C0032C-8AE9-44BD-BBD4-1219AFB4C0F0@microsoft.com...
Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui
doivent être remises à zéro sauf une comment faire pour éviter sa
selection
car elle contient des formules liées aux autres feuilles.
Voici le code pour supprimer les données dans mes feuilles mais quoi
mettre
pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0()
Dim SelectionCell
SelectionCell = Worksheets.Count
Worksheets.Select
Bonsoir Sten, en admettant que l'exception (Feuille) s'appelle "toto" '****** Sub RemiseA0() Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets ws.Select If ws.Name <> "toto" Then _ ws.Range("a4:g13").ClearContents ws.[a4].select Next End Sub '****
'lSteph
"STEN83" a écrit dans le message de news:
Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui doivent être remises à zéro sauf une comment faire pour éviter sa selection car elle contient des formules liées aux autres feuilles. Voici le code pour supprimer les données dans mes feuilles mais quoi mettre pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0() Dim SelectionCell SelectionCell = Worksheets.Count Worksheets.Select
Merci à tous -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
STEN83
Merci c'est ok
Bonsoir Sten, en admettant que l'exception (Feuille) s'appelle "toto" '****** Sub RemiseA0() Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets ws.Select If ws.Name <> "toto" Then _ ws.Range("a4:g13").ClearContents ws.[a4].select Next End Sub '****
'lSteph
"STEN83" a écrit dans le message de news:
Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui doivent être remises à zéro sauf une comment faire pour éviter sa selection car elle contient des formules liées aux autres feuilles. Voici le code pour supprimer les données dans mes feuilles mais quoi mettre pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0() Dim SelectionCell SelectionCell = Worksheets.Count Worksheets.Select
Merci à tous -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Merci c'est ok
Bonsoir Sten,
en admettant que l'exception (Feuille) s'appelle "toto"
'******
Sub RemiseA0()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Select
If ws.Name <> "toto" Then _
ws.Range("a4:g13").ClearContents
ws.[a4].select
Next
End Sub
'****
'lSteph
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de news:
C8C0032C-8AE9-44BD-BBD4-1219AFB4C0F0@microsoft.com...
Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui
doivent être remises à zéro sauf une comment faire pour éviter sa
selection
car elle contient des formules liées aux autres feuilles.
Voici le code pour supprimer les données dans mes feuilles mais quoi
mettre
pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0()
Dim SelectionCell
SelectionCell = Worksheets.Count
Worksheets.Select
Bonsoir Sten, en admettant que l'exception (Feuille) s'appelle "toto" '****** Sub RemiseA0() Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets ws.Select If ws.Name <> "toto" Then _ ws.Range("a4:g13").ClearContents ws.[a4].select Next End Sub '****
'lSteph
"STEN83" a écrit dans le message de news:
Bonjour à tous, voilà mon problème dans un classeur j'ai des feuilles qui doivent être remises à zéro sauf une comment faire pour éviter sa selection car elle contient des formules liées aux autres feuilles. Voici le code pour supprimer les données dans mes feuilles mais quoi mettre pour eviter de sélectionner la feuille qui ne doit pas l'être.
Sub RemiseA0() Dim SelectionCell SelectionCell = Worksheets.Count Worksheets.Select
