Bonjour,
J'apprend Excel...
Comment effectuer la fonction n+1?
Mon classeur possède plusieurs feuilles dont la première a une référence,
par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301.
Merci.
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
Oliv'
*Zède que je salut a écrit *:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
par une macro voir les liens excels ci-dessous
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*Zède <Zde@discussions.microsoft.com> que je salut a écrit *:
Bonjour,
J'apprend Excel...
Comment effectuer la fonction n+1?
Mon classeur possède plusieurs feuilles dont la première a une
référence, par exemple 300. Je souhaite que la deuxième soit 300+1
soit 301.
Merci.
par une macro voir les liens excels ci-dessous
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
par une macro voir les liens excels ci-dessous
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jacky
Bonsoir,
Comment effectuer la fonction n+1? Ceci peut-être
'--------- Sub jj() If Not IsNumeric(ActiveSheet.Name) Then Exit Sub For i = 1 To Worksheets.Count If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name ActiveSheet.Name + i - 1 Next End Sub '--------- Salutations JJ
"Zède" a écrit dans le message de news:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
Bonsoir,
Comment effectuer la fonction n+1?
Ceci peut-être
'---------
Sub jj()
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub
For i = 1 To Worksheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name ActiveSheet.Name + i - 1
Next
End Sub
'---------
Salutations
JJ
"Zède" <Zde@discussions.microsoft.com> a écrit dans le message de
news:6B9D7D7A-27FC-43CC-88ED-787EF8655A74@microsoft.com...
Bonjour,
J'apprend Excel...
Comment effectuer la fonction n+1?
Mon classeur possède plusieurs feuilles dont la première a une référence,
par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301.
Merci.
'--------- Sub jj() If Not IsNumeric(ActiveSheet.Name) Then Exit Sub For i = 1 To Worksheets.Count If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name ActiveSheet.Name + i - 1 Next End Sub '--------- Salutations JJ
"Zède" a écrit dans le message de news:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
Zède
Merci Oliv... Je débute alors les macro... merci quand même!
*Zède que je salut a écrit *:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
par une macro voir les liens excels ci-dessous
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci Oliv...
Je débute alors les macro...
merci quand même!
*Zède <Zde@discussions.microsoft.com> que je salut a écrit *:
Bonjour,
J'apprend Excel...
Comment effectuer la fonction n+1?
Mon classeur possède plusieurs feuilles dont la première a une
référence, par exemple 300. Je souhaite que la deuxième soit 300+1
soit 301.
Merci.
par une macro voir les liens excels ci-dessous
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci Oliv... Je débute alors les macro... merci quand même!
*Zède que je salut a écrit *:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
par une macro voir les liens excels ci-dessous
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Zède
Hello Jacky cf Oliv : je débute... je peux l'avoir en français? Merci. bye
Bonsoir,
Comment effectuer la fonction n+1? Ceci peut-être
'--------- Sub jj() If Not IsNumeric(ActiveSheet.Name) Then Exit Sub For i = 1 To Worksheets.Count If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name > ActiveSheet.Name + i - 1 Next End Sub '--------- Salutations JJ
"Zède" a écrit dans le message de news:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
Hello Jacky
cf Oliv : je débute...
je peux l'avoir en français?
Merci.
bye
Bonsoir,
Comment effectuer la fonction n+1?
Ceci peut-être
'---------
Sub jj()
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub
For i = 1 To Worksheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name > ActiveSheet.Name + i - 1
Next
End Sub
'---------
Salutations
JJ
"Zède" <Zde@discussions.microsoft.com> a écrit dans le message de
news:6B9D7D7A-27FC-43CC-88ED-787EF8655A74@microsoft.com...
Bonjour,
J'apprend Excel...
Comment effectuer la fonction n+1?
Mon classeur possède plusieurs feuilles dont la première a une référence,
par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301.
Merci.
Hello Jacky cf Oliv : je débute... je peux l'avoir en français? Merci. bye
Bonsoir,
Comment effectuer la fonction n+1? Ceci peut-être
'--------- Sub jj() If Not IsNumeric(ActiveSheet.Name) Then Exit Sub For i = 1 To Worksheets.Count If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name > ActiveSheet.Name + i - 1 Next End Sub '--------- Salutations JJ
"Zède" a écrit dans le message de news:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
Jacky
Re....
je peux l'avoir en français? Ben non, vba ne cause qu'en anglais.
Désolé Petite traduction:
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub '** si le nom de la feuille n'est pas un chiffre, j'arrête. For i = 1 To Worksheets.Count '**commence la boucle en commencant par la feuille 1 jusqu'au nombre de feuilles présentes dans le classeur. If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name ¬tiveSheet.Name + i - 1 '** donne le chiffres suivant comme "nom" à la feuille suivante sans tenir compte de la feuille en cours Next '** passe au I suivant
Il faudra se mettre un peu à l'anglais, mais ce n'est pas très dur. Bon courage JJ
"Zède" a écrit dans le message de news:
Hello Jacky cf Oliv : je débute... je peux l'avoir en français? Merci. bye
Bonsoir,
Comment effectuer la fonction n+1? Ceci peut-être
'--------- Sub jj() If Not IsNumeric(ActiveSheet.Name) Then Exit Sub For i = 1 To Worksheets.Count If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name >> ActiveSheet.Name + i - 1 Next End Sub '--------- Salutations JJ
"Zède" a écrit dans le message de news:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
Re....
je peux l'avoir en français?
Ben non, vba ne cause qu'en anglais.
Désolé
Petite traduction:
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub '** si le nom de la
feuille n'est pas un chiffre, j'arrête.
For i = 1 To Worksheets.Count '**commence la boucle en commencant par
la feuille 1 jusqu'au nombre de feuilles présentes dans le classeur.
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name ¬tiveSheet.Name
+ i - 1 '** donne le chiffres suivant comme "nom" à la feuille suivante
sans tenir compte de la feuille en cours
Next '** passe au I suivant
Il faudra se mettre un peu à l'anglais, mais ce n'est pas très dur.
Bon courage
JJ
"Zède" <Zde@discussions.microsoft.com> a écrit dans le message de news:
0FE1E74A-15B2-4F69-B8FF-CEFC6D71C537@microsoft.com...
Hello Jacky
cf Oliv : je débute...
je peux l'avoir en français?
Merci.
bye
Bonsoir,
Comment effectuer la fonction n+1?
Ceci peut-être
'---------
Sub jj()
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub
For i = 1 To Worksheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name >> ActiveSheet.Name + i - 1
Next
End Sub
'---------
Salutations
JJ
"Zède" <Zde@discussions.microsoft.com> a écrit dans le message de
news:6B9D7D7A-27FC-43CC-88ED-787EF8655A74@microsoft.com...
Bonjour,
J'apprend Excel...
Comment effectuer la fonction n+1?
Mon classeur possède plusieurs feuilles dont la première a une
référence,
par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301.
Merci.
je peux l'avoir en français? Ben non, vba ne cause qu'en anglais.
Désolé Petite traduction:
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub '** si le nom de la feuille n'est pas un chiffre, j'arrête. For i = 1 To Worksheets.Count '**commence la boucle en commencant par la feuille 1 jusqu'au nombre de feuilles présentes dans le classeur. If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name ¬tiveSheet.Name + i - 1 '** donne le chiffres suivant comme "nom" à la feuille suivante sans tenir compte de la feuille en cours Next '** passe au I suivant
Il faudra se mettre un peu à l'anglais, mais ce n'est pas très dur. Bon courage JJ
"Zède" a écrit dans le message de news:
Hello Jacky cf Oliv : je débute... je peux l'avoir en français? Merci. bye
Bonsoir,
Comment effectuer la fonction n+1? Ceci peut-être
'--------- Sub jj() If Not IsNumeric(ActiveSheet.Name) Then Exit Sub For i = 1 To Worksheets.Count If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name >> ActiveSheet.Name + i - 1 Next End Sub '--------- Salutations JJ
"Zède" a écrit dans le message de news:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
Zède
Tankyou!
Re....
je peux l'avoir en français? Ben non, vba ne cause qu'en anglais.
Désolé Petite traduction:
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub '** si le nom de la feuille n'est pas un chiffre, j'arrête. For i = 1 To Worksheets.Count '**commence la boucle en commencant par la feuille 1 jusqu'au nombre de feuilles présentes dans le classeur. If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name ¬tiveSheet.Name + i - 1 '** donne le chiffres suivant comme "nom" à la feuille suivante sans tenir compte de la feuille en cours Next '** passe au I suivant
Il faudra se mettre un peu à l'anglais, mais ce n'est pas très dur. Bon courage JJ
"Zède" a écrit dans le message de news:
Hello Jacky cf Oliv : je débute... je peux l'avoir en français? Merci. bye
Bonsoir,
Comment effectuer la fonction n+1? Ceci peut-être
'--------- Sub jj() If Not IsNumeric(ActiveSheet.Name) Then Exit Sub For i = 1 To Worksheets.Count If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name > >> ActiveSheet.Name + i - 1 Next End Sub '--------- Salutations JJ
"Zède" a écrit dans le message de news:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
Tankyou!
Re....
je peux l'avoir en français?
Ben non, vba ne cause qu'en anglais.
Désolé
Petite traduction:
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub '** si le nom de la
feuille n'est pas un chiffre, j'arrête.
For i = 1 To Worksheets.Count '**commence la boucle en commencant par
la feuille 1 jusqu'au nombre de feuilles présentes dans le classeur.
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name ¬tiveSheet.Name
+ i - 1 '** donne le chiffres suivant comme "nom" à la feuille suivante
sans tenir compte de la feuille en cours
Next '** passe au I suivant
Il faudra se mettre un peu à l'anglais, mais ce n'est pas très dur.
Bon courage
JJ
"Zède" <Zde@discussions.microsoft.com> a écrit dans le message de news:
0FE1E74A-15B2-4F69-B8FF-CEFC6D71C537@microsoft.com...
Hello Jacky
cf Oliv : je débute...
je peux l'avoir en français?
Merci.
bye
Bonsoir,
Comment effectuer la fonction n+1?
Ceci peut-être
'---------
Sub jj()
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub
For i = 1 To Worksheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name > >> ActiveSheet.Name + i - 1
Next
End Sub
'---------
Salutations
JJ
"Zède" <Zde@discussions.microsoft.com> a écrit dans le message de
news:6B9D7D7A-27FC-43CC-88ED-787EF8655A74@microsoft.com...
Bonjour,
J'apprend Excel...
Comment effectuer la fonction n+1?
Mon classeur possède plusieurs feuilles dont la première a une
référence,
par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301.
Merci.
je peux l'avoir en français? Ben non, vba ne cause qu'en anglais.
Désolé Petite traduction:
If Not IsNumeric(ActiveSheet.Name) Then Exit Sub '** si le nom de la feuille n'est pas un chiffre, j'arrête. For i = 1 To Worksheets.Count '**commence la boucle en commencant par la feuille 1 jusqu'au nombre de feuilles présentes dans le classeur. If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name ¬tiveSheet.Name + i - 1 '** donne le chiffres suivant comme "nom" à la feuille suivante sans tenir compte de la feuille en cours Next '** passe au I suivant
Il faudra se mettre un peu à l'anglais, mais ce n'est pas très dur. Bon courage JJ
"Zède" a écrit dans le message de news:
Hello Jacky cf Oliv : je débute... je peux l'avoir en français? Merci. bye
Bonsoir,
Comment effectuer la fonction n+1? Ceci peut-être
'--------- Sub jj() If Not IsNumeric(ActiveSheet.Name) Then Exit Sub For i = 1 To Worksheets.Count If Sheets(i).Name <> ActiveSheet.Name Then Sheets(i).Name > >> ActiveSheet.Name + i - 1 Next End Sub '--------- Salutations JJ
"Zède" a écrit dans le message de news:
Bonjour, J'apprend Excel... Comment effectuer la fonction n+1? Mon classeur possède plusieurs feuilles dont la première a une référence, par exemple 300. Je souhaite que la deuxième soit 300+1 soit 301. Merci.
