Sous une version Excel 2003 à partir d'un classeur vierge,
il est impossible de copier la même feuille plus de 256 fois.
Après cela une erreur 1004 apparait.
Plusieurs ont déjà tenté l'expérience d'ajouter un très grand nombre
de feuille et cela fonctionne.
La méthode "Add" le permet mais la méthode "copy" se limite à 256 feuilles.
Mon test n'est pas exhaustif.... mais selon mes premiers tests, le 256
représente le cumulatif total du nombre d'exemplaire de la même feuille
que l'on peut obtenir par la méthode "Copy"
Dans ton cas, si tu as roulé ta macro un certain nombre de fois, tu as peut être
atteint ce nombre !
Si tu as une version antérieure, rien ne me dit que la limite est de 256 feuilles...
elle pourrait être de 35 feuilles... à tester !
P.S. je n'ai pas regarder ta macro à savoir s'il y avait un problème particulier.
"gilles" a écrit dans le message de news:
bonjour à tous,
APPEL aux spécialistes
la macro ci dessous crée des onglets et les renomme du nom de la cellule M3
qui correspond à un N° de semaine
la zone qui définit ces N° de semaines est un calendrier vertical journalier
sur un onglet séparé
je selectionne la semaine départ et la semaine fin et elle crée les onglets
correspondant aux semaines situées entre ces 2 limites
je ne sais pas pourquoi elle bug au dessus de 35 semaines--
Sub CopieToutesSem()
'Créer les onglets de toutes les semaines
'copie l'onglet "semaine en cours" en autant de semaines que dure le chantier
'et affecte les Noms d'affaire et N° de semaine
Sheets("dates").Select
Range("H6:H1750").Select 'Activate
Dim Name As String
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets("Semaine en cours").Copy
After:=Sheets("Semaine en cours")
'depuis semaine en cours (2) je recopie les heures sur semaine en cours
Sheets("Semaine en cours (2)").Select
Range("M10:M76").Select
Selection.Copy
Sheets("Semaine en cours").Select 'je recopie sur semaine en cours
Range("K10").Select
ActiveSheet.Paste Link:=True 'copie avec liaison
Application.CutCopyMode = False
'je renomme l'onglet
Sheets("Semaine en cours (2)").Select
Sheets("Semaine en cours (2)").Name = MyName
Application.ScreenUpdating = False
[K3].Value = "Semaine"
[M3] = ActiveSheet.Name
Range("M3").Select
Selection.Copy
Range("BE2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("O3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C[42],basedates,2,FALSE)"
Range("O2").Select
ActiveSheet.PROTECT DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Next Mycell
'renomme l'onglet Semaine en cours et le met à la fin pour que
'l'utilisateur ne l'utilise pas
Sheets("Semaine en cours").Select
'
Range("K10:K76").Select
Range("K76").Activate
Selection.ClearContents
Sheets("Paramètres").Select
Sheets("Semaine en cours").Name = "vierge"
End Sub
Si un dieu voit dans la syntaxe une raison à ce pb je lui en serait
grandement reconnaissant!!!
à+
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
Sous une version Excel 2003 à partir d'un classeur vierge,
il est impossible de copier la même feuille plus de 256 fois.
Après cela une erreur 1004 apparait.
Plusieurs ont déjà tenté l'expérience d'ajouter un très grand nombre
de feuille et cela fonctionne.
La méthode "Add" le permet mais la méthode "copy" se limite à 256 feuilles.
Mon test n'est pas exhaustif.... mais selon mes premiers tests, le 256
représente le cumulatif total du nombre d'exemplaire de la même feuille
que l'on peut obtenir par la méthode "Copy"
Dans ton cas, si tu as roulé ta macro un certain nombre de fois, tu as peut être
atteint ce nombre !
Si tu as une version antérieure, rien ne me dit que la limite est de 256 feuilles...
elle pourrait être de 35 feuilles... à tester !
P.S. je n'ai pas regarder ta macro à savoir s'il y avait un problème particulier.
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
552DCE9C-79C5-4D40-89DD-79056A6AAFC8@microsoft.com...
bonjour à tous,
APPEL aux spécialistes
la macro ci dessous crée des onglets et les renomme du nom de la cellule M3
qui correspond à un N° de semaine
la zone qui définit ces N° de semaines est un calendrier vertical journalier
sur un onglet séparé
je selectionne la semaine départ et la semaine fin et elle crée les onglets
correspondant aux semaines situées entre ces 2 limites
je ne sais pas pourquoi elle bug au dessus de 35 semaines--
Sub CopieToutesSem()
'Créer les onglets de toutes les semaines
'copie l'onglet "semaine en cours" en autant de semaines que dure le chantier
'et affecte les Noms d'affaire et N° de semaine
Sheets("dates").Select
Range("H6:H1750").Select 'Activate
Dim Name As String
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets("Semaine en cours").Copy
After:=Sheets("Semaine en cours")
'depuis semaine en cours (2) je recopie les heures sur semaine en cours
Sheets("Semaine en cours (2)").Select
Range("M10:M76").Select
Selection.Copy
Sheets("Semaine en cours").Select 'je recopie sur semaine en cours
Range("K10").Select
ActiveSheet.Paste Link:=True 'copie avec liaison
Application.CutCopyMode = False
'je renomme l'onglet
Sheets("Semaine en cours (2)").Select
Sheets("Semaine en cours (2)").Name = MyName
Application.ScreenUpdating = False
[K3].Value = "Semaine"
[M3] = ActiveSheet.Name
Range("M3").Select
Selection.Copy
Range("BE2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("O3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C[42],basedates,2,FALSE)"
Range("O2").Select
ActiveSheet.PROTECT DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Next Mycell
'renomme l'onglet Semaine en cours et le met à la fin pour que
'l'utilisateur ne l'utilise pas
Sheets("Semaine en cours").Select
'
Range("K10:K76").Select
Range("K76").Activate
Selection.ClearContents
Sheets("Paramètres").Select
Sheets("Semaine en cours").Name = "vierge"
End Sub
Si un dieu voit dans la syntaxe une raison à ce pb je lui en serait
grandement reconnaissant!!!
à+
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
Sous une version Excel 2003 à partir d'un classeur vierge,
il est impossible de copier la même feuille plus de 256 fois.
Après cela une erreur 1004 apparait.
Plusieurs ont déjà tenté l'expérience d'ajouter un très grand nombre
de feuille et cela fonctionne.
La méthode "Add" le permet mais la méthode "copy" se limite à 256 feuilles.
Mon test n'est pas exhaustif.... mais selon mes premiers tests, le 256
représente le cumulatif total du nombre d'exemplaire de la même feuille
que l'on peut obtenir par la méthode "Copy"
Dans ton cas, si tu as roulé ta macro un certain nombre de fois, tu as peut être
atteint ce nombre !
Si tu as une version antérieure, rien ne me dit que la limite est de 256 feuilles...
elle pourrait être de 35 feuilles... à tester !
P.S. je n'ai pas regarder ta macro à savoir s'il y avait un problème particulier.
"gilles" a écrit dans le message de news:
bonjour à tous,
APPEL aux spécialistes
la macro ci dessous crée des onglets et les renomme du nom de la cellule M3
qui correspond à un N° de semaine
la zone qui définit ces N° de semaines est un calendrier vertical journalier
sur un onglet séparé
je selectionne la semaine départ et la semaine fin et elle crée les onglets
correspondant aux semaines situées entre ces 2 limites
je ne sais pas pourquoi elle bug au dessus de 35 semaines--
Sub CopieToutesSem()
'Créer les onglets de toutes les semaines
'copie l'onglet "semaine en cours" en autant de semaines que dure le chantier
'et affecte les Noms d'affaire et N° de semaine
Sheets("dates").Select
Range("H6:H1750").Select 'Activate
Dim Name As String
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets("Semaine en cours").Copy
After:=Sheets("Semaine en cours")
'depuis semaine en cours (2) je recopie les heures sur semaine en cours
Sheets("Semaine en cours (2)").Select
Range("M10:M76").Select
Selection.Copy
Sheets("Semaine en cours").Select 'je recopie sur semaine en cours
Range("K10").Select
ActiveSheet.Paste Link:=True 'copie avec liaison
Application.CutCopyMode = False
'je renomme l'onglet
Sheets("Semaine en cours (2)").Select
Sheets("Semaine en cours (2)").Name = MyName
Application.ScreenUpdating = False
[K3].Value = "Semaine"
[M3] = ActiveSheet.Name
Range("M3").Select
Selection.Copy
Range("BE2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("O3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C[42],basedates,2,FALSE)"
Range("O2").Select
ActiveSheet.PROTECT DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Next Mycell
'renomme l'onglet Semaine en cours et le met à la fin pour que
'l'utilisateur ne l'utilise pas
Sheets("Semaine en cours").Select
'
Range("K10:K76").Select
Range("K76").Activate
Selection.ClearContents
Sheets("Paramètres").Select
Sheets("Semaine en cours").Name = "vierge"
End Sub
Si un dieu voit dans la syntaxe une raison à ce pb je lui en serait
grandement reconnaissant!!!
à+
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
Sous une version Excel 2003 à partir d'un classeur vierge,
il est impossible de copier la même feuille plus de 256 fois.
Après cela une erreur 1004 apparait.
Plusieurs ont déjà tenté l'expérience d'ajouter un très grand nombre
de feuille et cela fonctionne.
La méthode "Add" le permet mais la méthode "copy" se limite à 256 feuilles.
Mon test n'est pas exhaustif.... mais selon mes premiers tests, le 256
représente le cumulatif total du nombre d'exemplaire de la même feuille
que l'on peut obtenir par la méthode "Copy"
Dans ton cas, si tu as roulé ta macro un certain nombre de fois, tu as peut être
atteint ce nombre !
Si tu as une version antérieure, rien ne me dit que la limite est de 256 feuilles...
elle pourrait être de 35 feuilles... à tester !
P.S. je n'ai pas regarder ta macro à savoir s'il y avait un problème particulier.
"gilles" a écrit dans le message de news:
bonjour à tous,
APPEL aux spécialistes
la macro ci dessous crée des onglets et les renomme du nom de la cellule M3
qui correspond à un N° de semaine
la zone qui définit ces N° de semaines est un calendrier vertical journalier
sur un onglet séparé
je selectionne la semaine départ et la semaine fin et elle crée les onglets
correspondant aux semaines situées entre ces 2 limites
je ne sais pas pourquoi elle bug au dessus de 35 semaines--
Sub CopieToutesSem()
'Créer les onglets de toutes les semaines
'copie l'onglet "semaine en cours" en autant de semaines que dure le chantier
'et affecte les Noms d'affaire et N° de semaine
Sheets("dates").Select
Range("H6:H1750").Select 'Activate
Dim Name As String
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets("Semaine en cours").Copy
After:=Sheets("Semaine en cours")
'depuis semaine en cours (2) je recopie les heures sur semaine en cours
Sheets("Semaine en cours (2)").Select
Range("M10:M76").Select
Selection.Copy
Sheets("Semaine en cours").Select 'je recopie sur semaine en cours
Range("K10").Select
ActiveSheet.Paste Link:=True 'copie avec liaison
Application.CutCopyMode = False
'je renomme l'onglet
Sheets("Semaine en cours (2)").Select
Sheets("Semaine en cours (2)").Name = MyName
Application.ScreenUpdating = False
[K3].Value = "Semaine"
[M3] = ActiveSheet.Name
Range("M3").Select
Selection.Copy
Range("BE2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("O3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C[42],basedates,2,FALSE)"
Range("O2").Select
ActiveSheet.PROTECT DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Next Mycell
'renomme l'onglet Semaine en cours et le met à la fin pour que
'l'utilisateur ne l'utilise pas
Sheets("Semaine en cours").Select
'
Range("K10:K76").Select
Range("K76").Activate
Selection.ClearContents
Sheets("Paramètres").Select
Sheets("Semaine en cours").Name = "vierge"
End Sub
Si un dieu voit dans la syntaxe une raison à ce pb je lui en serait
grandement reconnaissant!!!
à+
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
Sous une version Excel 2003 à partir d'un classeur vierge,
il est impossible de copier la même feuille plus de 256 fois.
Après cela une erreur 1004 apparait.
Plusieurs ont déjà tenté l'expérience d'ajouter un très grand nombre
de feuille et cela fonctionne.
La méthode "Add" le permet mais la méthode "copy" se limite à 256 feuilles.
Mon test n'est pas exhaustif.... mais selon mes premiers tests, le 256
représente le cumulatif total du nombre d'exemplaire de la même feuille
que l'on peut obtenir par la méthode "Copy"
Dans ton cas, si tu as roulé ta macro un certain nombre de fois, tu as peut être
atteint ce nombre !
Si tu as une version antérieure, rien ne me dit que la limite est de 256 feuilles...
elle pourrait être de 35 feuilles... à tester !
P.S. je n'ai pas regarder ta macro à savoir s'il y avait un problème particulier.
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
552DCE9C-79C5-4D40-89DD-79056A6AAFC8@microsoft.com...
bonjour à tous,
APPEL aux spécialistes
la macro ci dessous crée des onglets et les renomme du nom de la cellule M3
qui correspond à un N° de semaine
la zone qui définit ces N° de semaines est un calendrier vertical journalier
sur un onglet séparé
je selectionne la semaine départ et la semaine fin et elle crée les onglets
correspondant aux semaines situées entre ces 2 limites
je ne sais pas pourquoi elle bug au dessus de 35 semaines--
Sub CopieToutesSem()
'Créer les onglets de toutes les semaines
'copie l'onglet "semaine en cours" en autant de semaines que dure le chantier
'et affecte les Noms d'affaire et N° de semaine
Sheets("dates").Select
Range("H6:H1750").Select 'Activate
Dim Name As String
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets("Semaine en cours").Copy
After:=Sheets("Semaine en cours")
'depuis semaine en cours (2) je recopie les heures sur semaine en cours
Sheets("Semaine en cours (2)").Select
Range("M10:M76").Select
Selection.Copy
Sheets("Semaine en cours").Select 'je recopie sur semaine en cours
Range("K10").Select
ActiveSheet.Paste Link:=True 'copie avec liaison
Application.CutCopyMode = False
'je renomme l'onglet
Sheets("Semaine en cours (2)").Select
Sheets("Semaine en cours (2)").Name = MyName
Application.ScreenUpdating = False
[K3].Value = "Semaine"
[M3] = ActiveSheet.Name
Range("M3").Select
Selection.Copy
Range("BE2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("O3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C[42],basedates,2,FALSE)"
Range("O2").Select
ActiveSheet.PROTECT DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Next Mycell
'renomme l'onglet Semaine en cours et le met à la fin pour que
'l'utilisateur ne l'utilise pas
Sheets("Semaine en cours").Select
'
Range("K10:K76").Select
Range("K76").Activate
Selection.ClearContents
Sheets("Paramètres").Select
Sheets("Semaine en cours").Name = "vierge"
End Sub
Si un dieu voit dans la syntaxe une raison à ce pb je lui en serait
grandement reconnaissant!!!
à+
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
Sous une version Excel 2003 à partir d'un classeur vierge,
il est impossible de copier la même feuille plus de 256 fois.
Après cela une erreur 1004 apparait.
Plusieurs ont déjà tenté l'expérience d'ajouter un très grand nombre
de feuille et cela fonctionne.
La méthode "Add" le permet mais la méthode "copy" se limite à 256 feuilles.
Mon test n'est pas exhaustif.... mais selon mes premiers tests, le 256
représente le cumulatif total du nombre d'exemplaire de la même feuille
que l'on peut obtenir par la méthode "Copy"
Dans ton cas, si tu as roulé ta macro un certain nombre de fois, tu as peut être
atteint ce nombre !
Si tu as une version antérieure, rien ne me dit que la limite est de 256 feuilles...
elle pourrait être de 35 feuilles... à tester !
P.S. je n'ai pas regarder ta macro à savoir s'il y avait un problème particulier.
"gilles" a écrit dans le message de news:
bonjour à tous,
APPEL aux spécialistes
la macro ci dessous crée des onglets et les renomme du nom de la cellule M3
qui correspond à un N° de semaine
la zone qui définit ces N° de semaines est un calendrier vertical journalier
sur un onglet séparé
je selectionne la semaine départ et la semaine fin et elle crée les onglets
correspondant aux semaines situées entre ces 2 limites
je ne sais pas pourquoi elle bug au dessus de 35 semaines--
Sub CopieToutesSem()
'Créer les onglets de toutes les semaines
'copie l'onglet "semaine en cours" en autant de semaines que dure le chantier
'et affecte les Noms d'affaire et N° de semaine
Sheets("dates").Select
Range("H6:H1750").Select 'Activate
Dim Name As String
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets("Semaine en cours").Copy
After:=Sheets("Semaine en cours")
'depuis semaine en cours (2) je recopie les heures sur semaine en cours
Sheets("Semaine en cours (2)").Select
Range("M10:M76").Select
Selection.Copy
Sheets("Semaine en cours").Select 'je recopie sur semaine en cours
Range("K10").Select
ActiveSheet.Paste Link:=True 'copie avec liaison
Application.CutCopyMode = False
'je renomme l'onglet
Sheets("Semaine en cours (2)").Select
Sheets("Semaine en cours (2)").Name = MyName
Application.ScreenUpdating = False
[K3].Value = "Semaine"
[M3] = ActiveSheet.Name
Range("M3").Select
Selection.Copy
Range("BE2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("O3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C[42],basedates,2,FALSE)"
Range("O2").Select
ActiveSheet.PROTECT DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Next Mycell
'renomme l'onglet Semaine en cours et le met à la fin pour que
'l'utilisateur ne l'utilise pas
Sheets("Semaine en cours").Select
'
Range("K10:K76").Select
Range("K76").Activate
Selection.ClearContents
Sheets("Paramètres").Select
Sheets("Semaine en cours").Name = "vierge"
End Sub
Si un dieu voit dans la syntaxe une raison à ce pb je lui en serait
grandement reconnaissant!!!
à+
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
J'ai refait le test et tu as raison, elle s'exécute normalement.
Merci pour la correction.
"Francois L" a écrit dans le message de news:
Bonjour Denis,
Chez moi, sous XL 2000, ce qui suit fonctionne !
Sub test()
Application.ScreenUpdating = False
For i = 1 To 400
Sheets("Feuil1").Copy After:=Sheets(1)
Next
Application.ScreenUpdating = True
End Sub
J'ai refait le test et tu as raison, elle s'exécute normalement.
Merci pour la correction.
"Francois L" <gardiendephare@etbalises.fr.invalid> a écrit dans le message de news:
e3285MWDIHA.4880@TK2MSFTNGP03.phx.gbl...
Bonjour Denis,
Chez moi, sous XL 2000, ce qui suit fonctionne !
Sub test()
Application.ScreenUpdating = False
For i = 1 To 400
Sheets("Feuil1").Copy After:=Sheets(1)
Next
Application.ScreenUpdating = True
End Sub
J'ai refait le test et tu as raison, elle s'exécute normalement.
Merci pour la correction.
"Francois L" a écrit dans le message de news:
Bonjour Denis,
Chez moi, sous XL 2000, ce qui suit fonctionne !
Sub test()
Application.ScreenUpdating = False
For i = 1 To 400
Sheets("Feuil1").Copy After:=Sheets(1)
Next
Application.ScreenUpdating = True
End Sub
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
Est-ce que le contenu d'une des cellules de ta plage
qui deviendra le nom d'un futur onglet de ton classeur
contient un de ces symboles interdits dans la nomination
d'une feuille :
A ) : / * ? [ ]
B ) Le nombre de caractères d'une feuille ne peut avoir plus de 31 caractères
les espaces compris.
C ) Aucun nom d'onglet d'une feuille ne peut être présent plus d'une fois
dans un même classeur.
D ) Est-ce possible que tu aies une cellule vide ? L'onglet d'une feuille
doit avoir au moins un "nom" d'une longueur d'un caractère admissible.
Au delà de ça, je ne sais pas !
"gilles" a écrit dans le message de news:
Re bonjour,
En fait je ne peux pas incorporer le code proposé, car il génère une
quantité de feuilles à partir d'un nombre donné:
For i = 1 To [G1].Value
J'ai besoin qu'il génére les feuilles à partir d'une selection qui me sert
pour définir le nom de chaque feuille
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value--
donc je ne vois pas!...
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
Est-ce que le contenu d'une des cellules de ta plage
qui deviendra le nom d'un futur onglet de ton classeur
contient un de ces symboles interdits dans la nomination
d'une feuille :
A ) : / * ? [ ]
B ) Le nombre de caractères d'une feuille ne peut avoir plus de 31 caractères
les espaces compris.
C ) Aucun nom d'onglet d'une feuille ne peut être présent plus d'une fois
dans un même classeur.
D ) Est-ce possible que tu aies une cellule vide ? L'onglet d'une feuille
doit avoir au moins un "nom" d'une longueur d'un caractère admissible.
Au delà de ça, je ne sais pas !
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
91D30908-8B57-4719-97C7-FBE8534CAD53@microsoft.com...
Re bonjour,
En fait je ne peux pas incorporer le code proposé, car il génère une
quantité de feuilles à partir d'un nombre donné:
For i = 1 To [G1].Value
J'ai besoin qu'il génére les feuilles à partir d'une selection qui me sert
pour définir le nom de chaque feuille
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value--
donc je ne vois pas!...
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
Est-ce que le contenu d'une des cellules de ta plage
qui deviendra le nom d'un futur onglet de ton classeur
contient un de ces symboles interdits dans la nomination
d'une feuille :
A ) : / * ? [ ]
B ) Le nombre de caractères d'une feuille ne peut avoir plus de 31 caractères
les espaces compris.
C ) Aucun nom d'onglet d'une feuille ne peut être présent plus d'une fois
dans un même classeur.
D ) Est-ce possible que tu aies une cellule vide ? L'onglet d'une feuille
doit avoir au moins un "nom" d'une longueur d'un caractère admissible.
Au delà de ça, je ne sais pas !
"gilles" a écrit dans le message de news:
Re bonjour,
En fait je ne peux pas incorporer le code proposé, car il génère une
quantité de feuilles à partir d'un nombre donné:
For i = 1 To [G1].Value
J'ai besoin qu'il génére les feuilles à partir d'une selection qui me sert
pour définir le nom de chaque feuille
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value--
donc je ne vois pas!...
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
Est-ce que le contenu d'une des cellules de ta plage
qui deviendra le nom d'un futur onglet de ton classeur
contient un de ces symboles interdits dans la nomination
d'une feuille :
A ) : / * ? [ ]
B ) Le nombre de caractères d'une feuille ne peut avoir plus de 31 caractères
les espaces compris.
C ) Aucun nom d'onglet d'une feuille ne peut être présent plus d'une fois
dans un même classeur.
D ) Est-ce possible que tu aies une cellule vide ? L'onglet d'une feuille
doit avoir au moins un "nom" d'une longueur d'un caractère admissible.
Au delà de ça, je ne sais pas !
"gilles" a écrit dans le message de news:
Re bonjour,
En fait je ne peux pas incorporer le code proposé, car il génère une
quantité de feuilles à partir d'un nombre donné:
For i = 1 To [G1].Value
J'ai besoin qu'il génére les feuilles à partir d'une selection qui me sert
pour définir le nom de chaque feuille
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value--
donc je ne vois pas!...
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
Est-ce que le contenu d'une des cellules de ta plage
qui deviendra le nom d'un futur onglet de ton classeur
contient un de ces symboles interdits dans la nomination
d'une feuille :
A ) : / * ? [ ]
B ) Le nombre de caractères d'une feuille ne peut avoir plus de 31 caractères
les espaces compris.
C ) Aucun nom d'onglet d'une feuille ne peut être présent plus d'une fois
dans un même classeur.
D ) Est-ce possible que tu aies une cellule vide ? L'onglet d'une feuille
doit avoir au moins un "nom" d'une longueur d'un caractère admissible.
Au delà de ça, je ne sais pas !
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
91D30908-8B57-4719-97C7-FBE8534CAD53@microsoft.com...
Re bonjour,
En fait je ne peux pas incorporer le code proposé, car il génère une
quantité de feuilles à partir d'un nombre donné:
For i = 1 To [G1].Value
J'ai besoin qu'il génére les feuilles à partir d'une selection qui me sert
pour définir le nom de chaque feuille
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value--
donc je ne vois pas!...
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)
Est-ce que le contenu d'une des cellules de ta plage
qui deviendra le nom d'un futur onglet de ton classeur
contient un de ces symboles interdits dans la nomination
d'une feuille :
A ) : / * ? [ ]
B ) Le nombre de caractères d'une feuille ne peut avoir plus de 31 caractères
les espaces compris.
C ) Aucun nom d'onglet d'une feuille ne peut être présent plus d'une fois
dans un même classeur.
D ) Est-ce possible que tu aies une cellule vide ? L'onglet d'une feuille
doit avoir au moins un "nom" d'une longueur d'un caractère admissible.
Au delà de ça, je ne sais pas !
"gilles" a écrit dans le message de news:
Re bonjour,
En fait je ne peux pas incorporer le code proposé, car il génère une
quantité de feuilles à partir d'un nombre donné:
For i = 1 To [G1].Value
J'ai besoin qu'il génére les feuilles à partir d'une selection qui me sert
pour définir le nom de chaque feuille
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value--
donc je ne vois pas!...
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
| Comme toi, je croyais que c'était 256 ! mais j'avais un souvenir d'avoir
Non... Non, j'ai vraiment roulé la procédure lors d'un test et elle s'est arrêtée
après la copie 256. Ce n'est pas une "CROYANCE" c'est un "FAIT".
Il devait y avoir quelque chose d'autre dans mon environnement qui
interférait ! D'où la mention dans mon message initial "test non exhaustif"...
;-)