je voudrais savoir comment faire (par macro surement) pour que mes onglets 6
à 13 portent le nom qui est en cellule C11 de chaque onglet?
Merci d'avance.
YANN
Sub Macro1() For n = 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Next n End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien ou des caractères incorrects.
ST
"YANN24" a écrit dans le message de news:
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes onglets 6
à 13 portent le nom qui est en cellule C11 de chaque onglet? Merci d'avance. YANN
YANN24
Merci. et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil? Merci YANN
Essaie ce code :
Sub Macro1() For n = 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Next n End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien ou des caractères incorrects.
ST
"YANN24" a écrit dans le message de news:
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes onglets 6
à 13 portent le nom qui est en cellule C11 de chaque onglet? Merci d'avance. YANN
Merci.
et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des
feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil?
Merci
YANN
Essaie ce code :
Sub Macro1()
For n = 6 To 13
Sheets(n).Name = Sheets(n).Range("C11").Value
Next n
End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien ou
des caractères incorrects.
ST
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:FEB91DAB-4B78-4749-B83A-1913EBA23AC2@microsoft.com...
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes onglets
6
à 13 portent le nom qui est en cellule C11 de chaque onglet?
Merci d'avance.
YANN
Merci. et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil? Merci YANN
Essaie ce code :
Sub Macro1() For n = 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Next n End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien ou des caractères incorrects.
ST
"YANN24" a écrit dans le message de news:
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes onglets 6
à 13 portent le nom qui est en cellule C11 de chaque onglet? Merci d'avance. YANN
isabelle
bonjour Yann24,
Sub Macro1() For n = 6 To 18 Select Case n Case 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Case 14 To 18 Sheets(n).Name = Sheets(n).Range("C12").Value End Select Next n End Sub
isabelle
Merci. et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil? Merci YANN
Essaie ce code :
Sub Macro1() For n = 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Next n End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien ou des caractères incorrects.
ST
"YANN24" a écrit dans le message de news:
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes onglets
6
à 13 portent le nom qui est en cellule C11 de chaque onglet? Merci d'avance. YANN
bonjour Yann24,
Sub Macro1()
For n = 6 To 18
Select Case n
Case 6 To 13
Sheets(n).Name = Sheets(n).Range("C11").Value
Case 14 To 18
Sheets(n).Name = Sheets(n).Range("C12").Value
End Select
Next n
End Sub
isabelle
Merci.
et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des
feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil?
Merci
YANN
Essaie ce code :
Sub Macro1()
For n = 6 To 13
Sheets(n).Name = Sheets(n).Range("C11").Value
Next n
End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien ou
des caractères incorrects.
ST
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:FEB91DAB-4B78-4749-B83A-1913EBA23AC2@microsoft.com...
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes onglets
6
à 13 portent le nom qui est en cellule C11 de chaque onglet?
Merci d'avance.
YANN
Sub Macro1() For n = 6 To 18 Select Case n Case 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Case 14 To 18 Sheets(n).Name = Sheets(n).Range("C12").Value End Select Next n End Sub
isabelle
Merci. et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil? Merci YANN
Essaie ce code :
Sub Macro1() For n = 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Next n End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien ou des caractères incorrects.
ST
"YANN24" a écrit dans le message de news:
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes onglets
6
à 13 portent le nom qui est en cellule C11 de chaque onglet? Merci d'avance. YANN
ST
Exactement, tu peux faire une autre boucle en modifiant 6, 13 et C11.
Il y a peut etre une autre façon de faire (select Case) mais je ne sais pas ce que tu veux obtenir au final. La solution pourrait être la suivante
Sub Macro1() For n = 1 To Sheets.Count Select Case n Case 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Case 14 To 18 Sheets(n).Name = Sheets(n).Range("C12").Value End Select Next n End Sub
Ce dernier code exécute une boucle de la première feuille à la dernière feuille du classeur actif. Ensuite, elle vérifie la valeur de n (no de feuille) et attribue un nom à la feuille si le n correspond aux deux critères déjà renseignés.
ST
"YANN24" a écrit dans le message de news:
Merci. et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil? Merci YANN
Essaie ce code :
Sub Macro1() For n = 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Next n End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien ou
des caractères incorrects.
ST
"YANN24" a écrit dans le message de news:
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes onglets
6
à 13 portent le nom qui est en cellule C11 de chaque onglet? Merci d'avance. YANN
Exactement, tu peux faire une autre boucle en modifiant 6, 13 et C11.
Il y a peut etre une autre façon de faire (select Case) mais je ne sais pas
ce que tu veux obtenir au final. La solution pourrait être la suivante
Sub Macro1()
For n = 1 To Sheets.Count
Select Case n
Case 6 To 13
Sheets(n).Name = Sheets(n).Range("C11").Value
Case 14 To 18
Sheets(n).Name = Sheets(n).Range("C12").Value
End Select
Next n
End Sub
Ce dernier code exécute une boucle de la première feuille à la dernière
feuille du classeur actif. Ensuite, elle vérifie la valeur de n (no de
feuille) et attribue un nom à la feuille si le n correspond aux deux
critères déjà renseignés.
ST
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:DFFCB03C-E7B7-41AC-AC2E-B9DA9028551C@microsoft.com...
Merci.
et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des
feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil?
Merci
YANN
Essaie ce code :
Sub Macro1()
For n = 6 To 13
Sheets(n).Name = Sheets(n).Range("C11").Value
Next n
End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien
ou
des caractères incorrects.
ST
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:FEB91DAB-4B78-4749-B83A-1913EBA23AC2@microsoft.com...
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes
onglets
6
à 13 portent le nom qui est en cellule C11 de chaque onglet?
Merci d'avance.
YANN
Exactement, tu peux faire une autre boucle en modifiant 6, 13 et C11.
Il y a peut etre une autre façon de faire (select Case) mais je ne sais pas ce que tu veux obtenir au final. La solution pourrait être la suivante
Sub Macro1() For n = 1 To Sheets.Count Select Case n Case 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Case 14 To 18 Sheets(n).Name = Sheets(n).Range("C12").Value End Select Next n End Sub
Ce dernier code exécute une boucle de la première feuille à la dernière feuille du classeur actif. Ensuite, elle vérifie la valeur de n (no de feuille) et attribue un nom à la feuille si le n correspond aux deux critères déjà renseignés.
ST
"YANN24" a écrit dans le message de news:
Merci. et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil? Merci YANN
Essaie ce code :
Sub Macro1() For n = 6 To 13 Sheets(n).Name = Sheets(n).Range("C11").Value Next n End Sub
Attention, je n'ai pas prévu le cas où la cellule C11 ne contient rien ou
des caractères incorrects.
ST
"YANN24" a écrit dans le message de news:
Bonjour,
je voudrais savoir comment faire (par macro surement) pour que mes onglets
6
à 13 portent le nom qui est en cellule C11 de chaque onglet? Merci d'avance. YANN
Ricky
Bonjour *YANN24*
Modifie ainsi
| Merci. | et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des | feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil? | Merci | YANN | | | Sub Macro1() | | For n = 6 To 13 | | Sheets(n).Name = Sheets(n).Range("C11").Value | | Next n | | For n = 14 To 18 | | Sheets(n).Name = Sheets(n).Range("C12").Value | | Next n | | End Sub | | | | Attention, je n'ai pas prévu le cas où la cellule C11 ne contient | | rien ou des caractères incorrects. | | | | ST
-- Ricky [MVP] Visitez les faq.... http://www.faqoe.com http://faqword.free.fr http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Bonjour *YANN24*
Modifie ainsi
| Merci.
| et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des
| feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil?
| Merci
| YANN
|
| | Sub Macro1()
| | For n = 6 To 13
| | Sheets(n).Name = Sheets(n).Range("C11").Value
| | Next n
| | For n = 14 To 18
| | Sheets(n).Name = Sheets(n).Range("C12").Value
| | Next n
| | End Sub
| |
| | Attention, je n'ai pas prévu le cas où la cellule C11 ne contient
| | rien ou des caractères incorrects.
| |
| | ST
--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
| Merci. | et si je veux que des feuilles 6 à 13, je prend la cellule C11, et des | feuilles 14 à 18 la celulle C12, je fais coment? J'utilise "n" pareil? | Merci | YANN | | | Sub Macro1() | | For n = 6 To 13 | | Sheets(n).Name = Sheets(n).Range("C11").Value | | Next n | | For n = 14 To 18 | | Sheets(n).Name = Sheets(n).Range("C12").Value | | Next n | | End Sub | | | | Attention, je n'ai pas prévu le cas où la cellule C11 ne contient | | rien ou des caractères incorrects. | | | | ST
-- Ricky [MVP] Visitez les faq.... http://www.faqoe.com http://faqword.free.fr http://dj.joss.free.fr/faq.htm http://www.excelabo.net
