Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des 4
feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des 4
feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des 4
feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des
4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608e3cc$0$25932$ba4acef3@news.orange.fr...
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des
4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des
4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir ainsi
que sur celui que j'ai créé spécialement pour arriver à faire ce travail
avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des
4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir ainsi
que sur celui que j'ai créé spécialement pour arriver à faire ce travail
avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" <dcolardelleZZZZ@free.fr> a écrit dans le message de news:
4608f9f9$0$31204$426a74cc@news.free.fr...
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608e3cc$0$25932$ba4acef3@news.orange.fr...
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des
4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir ainsi
que sur celui que j'ai créé spécialement pour arriver à faire ce travail
avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des
4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir ainsi
que sur celui que j'ai créé spécialement pour arriver à faire ce travail
avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des
4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir ainsi
que sur celui que j'ai créé spécialement pour arriver à faire ce travail
avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" <dcolardelleZZZZ@free.fr> a écrit dans le message de news:
4608f9f9$0$31204$426a74cc@news.free.fr...
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608e3cc$0$25932$ba4acef3@news.orange.fr...
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des
4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir ainsi
que sur celui que j'ai créé spécialement pour arriver à faire ce travail
avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux des
4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1)
*
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608fdd1$0$27393$ba4acef3@news.orange.fr...
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" <dcolardelleZZZZ@free.fr> a écrit dans le message de news:
4608f9f9$0$31204$426a74cc@news.free.fr...
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608e3cc$0$25932$ba4acef3@news.orange.fr...
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1)
*
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas échéant
les données sensibles (seulement les 4 feuilles de données et la feuille
avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1)
*
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données et
la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1)
*
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Ojl59RJcHHA.2188@TK2MSFTNGP04.phx.gbl...
Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608fdd1$0$27393$ba4acef3@news.orange.fr...
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" <dcolardelleZZZZ@free.fr> a écrit dans le message de news:
4608f9f9$0$31204$426a74cc@news.free.fr...
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données et
la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608e3cc$0$25932$ba4acef3@news.orange.fr...
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1)
*
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données et
la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille - 1)
*
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" a écrit dans le message de news:
46097b64$0$25919$Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données et
la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille -
1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
46097b64$0$25919$ba4acef3@news.orange.fr...
Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Ojl59RJcHHA.2188@TK2MSFTNGP04.phx.gbl...
Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608fdd1$0$27393$ba4acef3@news.orange.fr...
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" <dcolardelleZZZZ@free.fr> a écrit dans le message de news:
4608f9f9$0$31204$426a74cc@news.free.fr...
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données et
la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608e3cc$0$25932$ba4acef3@news.orange.fr...
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille -
1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" a écrit dans le message de news:
46097b64$0$25919$Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données et
la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille -
1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour Daniel
je viens de faire la manipe indiquée et j'ai toujours un plantage
"Daniel" a écrit dans le message de news:Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" a écrit dans le message de news:
46097b64$0$25919$Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données et
la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille -
1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour Daniel
je viens de faire la manipe indiquée et j'ai toujours un plantage
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eE8UOYLcHHA.2316@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
46097b64$0$25919$ba4acef3@news.orange.fr...
Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Ojl59RJcHHA.2188@TK2MSFTNGP04.phx.gbl...
Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608fdd1$0$27393$ba4acef3@news.orange.fr...
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" <dcolardelleZZZZ@free.fr> a écrit dans le message de news:
4608f9f9$0$31204$426a74cc@news.free.fr...
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données et
la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608e3cc$0$25932$ba4acef3@news.orange.fr...
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille -
1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour Daniel
je viens de faire la manipe indiquée et j'ai toujours un plantage
"Daniel" a écrit dans le message de news:Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" a écrit dans le message de news:
46097b64$0$25919$Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire ce
travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données et
la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des tableaux
des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille -
1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour.
Remplace le code par celui-ci :
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(Sheets("récap").TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - _
(NoFeuille - 1) * 13) * 10, 0).Copy Sheets("récap").Range("A1")
Daniel
Si le problème persiste, mets le même code dans une macro dans un module
et teste le en exécutant cette macro.
"fredbzr" a écrit dans le message de news:
460a156e$0$27387$Bonjour Daniel
je viens de faire la manipe indiquée et j'ai toujours un plantage
"Daniel" a écrit dans le message de news:Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" a écrit dans le message de news:
46097b64$0$25919$Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire
ce travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données
et la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des
tableaux des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille -
1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour.
Remplace le code par celui-ci :
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(Sheets("récap").TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - _
(NoFeuille - 1) * 13) * 10, 0).Copy Sheets("récap").Range("A1")
Daniel
Si le problème persiste, mets le même code dans une macro dans un module
et teste le en exécutant cette macro.
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
460a156e$0$27387$ba4acef3@news.orange.fr...
Bonjour Daniel
je viens de faire la manipe indiquée et j'ai toujours un plantage
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eE8UOYLcHHA.2316@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
46097b64$0$25919$ba4acef3@news.orange.fr...
Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Ojl59RJcHHA.2188@TK2MSFTNGP04.phx.gbl...
Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608fdd1$0$27393$ba4acef3@news.orange.fr...
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire
ce travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" <dcolardelleZZZZ@free.fr> a écrit dans le message de news:
4608f9f9$0$31204$426a74cc@news.free.fr...
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données
et la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608e3cc$0$25932$ba4acef3@news.orange.fr...
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des
tableaux des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille -
1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
Bonjour.
Remplace le code par celui-ci :
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(Sheets("récap").TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - _
(NoFeuille - 1) * 13) * 10, 0).Copy Sheets("récap").Range("A1")
Daniel
Si le problème persiste, mets le même code dans une macro dans un module
et teste le en exécutant cette macro.
"fredbzr" a écrit dans le message de news:
460a156e$0$27387$Bonjour Daniel
je viens de faire la manipe indiquée et j'ai toujours un plantage
"Daniel" a écrit dans le message de news:Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" a écrit dans le message de news:
46097b64$0$25919$Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire
ce travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données
et la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des
tableaux des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004, la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - (NoFeuille -
1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
je viens de tester ton nouveau code
il fonctionne.
En fait je viens de m'apercevoir que l'erreur apparaît (dans les deux cas)
parcequ'une fois que j'ai mis le n° du tableau voulu dans le checkbox, j'
appuyai sur le bouton.
en fait , il faut que je clic sur une autre cellule puis sur le bouton et
çà fonctionne dans les 2 cas.
je vais régler çà , j'espère y arriver, en mettant le checkbox dans un
userfom avec un bouton valider.
j'ai également essayé avec un tableau vide(car j'aurai des cellules vides
dans les miens), pas de problème, j'avais peur avec la fonction array....
un grand merci à toi pour ta patience
A bientôt sur le forum..........
"Daniel" a écrit dans le message de news:Bonjour.
Remplace le code par celui-ci :
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(Sheets("récap").TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - _
(NoFeuille - 1) * 13) * 10, 0).Copy Sheets("récap").Range("A1")
Daniel
Si le problème persiste, mets le même code dans une macro dans un module
et teste le en exécutant cette macro.
"fredbzr" a écrit dans le message de news:
460a156e$0$27387$Bonjour Daniel
je viens de faire la manipe indiquée et j'ai toujours un plantage
"Daniel" a écrit dans le message de news:Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" a écrit dans le message de news:
46097b64$0$25919$Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire
ce travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données
et la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des
tableaux des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère
feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004,
la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 -
(NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
je viens de tester ton nouveau code
il fonctionne.
En fait je viens de m'apercevoir que l'erreur apparaît (dans les deux cas)
parcequ'une fois que j'ai mis le n° du tableau voulu dans le checkbox, j'
appuyai sur le bouton.
en fait , il faut que je clic sur une autre cellule puis sur le bouton et
çà fonctionne dans les 2 cas.
je vais régler çà , j'espère y arriver, en mettant le checkbox dans un
userfom avec un bouton valider.
j'ai également essayé avec un tableau vide(car j'aurai des cellules vides
dans les miens), pas de problème, j'avais peur avec la fonction array....
un grand merci à toi pour ta patience
A bientôt sur le forum..........
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
enLdViRcHHA.4888@TK2MSFTNGP02.phx.gbl...
Bonjour.
Remplace le code par celui-ci :
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(Sheets("récap").TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - _
(NoFeuille - 1) * 13) * 10, 0).Copy Sheets("récap").Range("A1")
Daniel
Si le problème persiste, mets le même code dans une macro dans un module
et teste le en exécutant cette macro.
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
460a156e$0$27387$ba4acef3@news.orange.fr...
Bonjour Daniel
je viens de faire la manipe indiquée et j'ai toujours un plantage
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eE8UOYLcHHA.2316@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
46097b64$0$25919$ba4acef3@news.orange.fr...
Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Ojl59RJcHHA.2188@TK2MSFTNGP04.phx.gbl...
Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608fdd1$0$27393$ba4acef3@news.orange.fr...
Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire
ce travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" <dcolardelleZZZZ@free.fr> a écrit dans le message de news:
4608f9f9$0$31204$426a74cc@news.free.fr...
Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données
et la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4608e3cc$0$25932$ba4acef3@news.orange.fr...
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des
tableaux des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère
feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004,
la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 -
(NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred
je viens de tester ton nouveau code
il fonctionne.
En fait je viens de m'apercevoir que l'erreur apparaît (dans les deux cas)
parcequ'une fois que j'ai mis le n° du tableau voulu dans le checkbox, j'
appuyai sur le bouton.
en fait , il faut que je clic sur une autre cellule puis sur le bouton et
çà fonctionne dans les 2 cas.
je vais régler çà , j'espère y arriver, en mettant le checkbox dans un
userfom avec un bouton valider.
j'ai également essayé avec un tableau vide(car j'aurai des cellules vides
dans les miens), pas de problème, j'avais peur avec la fonction array....
un grand merci à toi pour ta patience
A bientôt sur le forum..........
"Daniel" a écrit dans le message de news:Bonjour.
Remplace le code par celui-ci :
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(Sheets("récap").TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 - _
(NoFeuille - 1) * 13) * 10, 0).Copy Sheets("récap").Range("A1")
Daniel
Si le problème persiste, mets le même code dans une macro dans un module
et teste le en exécutant cette macro.
"fredbzr" a écrit dans le message de news:
460a156e$0$27387$Bonjour Daniel
je viens de faire la manipe indiquée et j'ai toujours un plantage
"Daniel" a écrit dans le message de news:Bonsoir.
Dans les propriétés du bouton, essaie en mettant ma propriété
"TakeFocusOnClick" à "false".
Daniel
"fredbzr" a écrit dans le message de news:
46097b64$0$25919$Bonsoir Daniel
je rentre juste du boulot
pour moi çà plante dans tous les cas
peut-être que çà vient de ma version excel: XP 97 pack sp2
"Daniel" a écrit dans le message de news:Je viens de tester les 52 possibilités sans problème...
Daniel
"fredbzr" a écrit dans le message de news:
4608fdd1$0$27393$Bonjour Daniel
le problème se produit sur le classeur que vous m'avez fait parvenir
ainsi que sur celui que j'ai créé spécialement pour arriver à faire
ce travail avant de l'insérer dans le dossier principal
j'ai mis la simplification sur cjoint http://cjoint.com/?dBnpH8GtQh
Là il n'y a que les 4 feuilles et la feuille comprenant le textbox
merci de votre aide
"Daniel" a écrit dans le message de news:
4608f9f9$0$31204$Bonjour.
Est-ce que le problème se produit dans le classeur que je t'ai fait
parvenir ?
Sinon, mets ton classeur sur www.cjoint.com en modifiant, le cas
échéant les données sensibles (seulement les 4 feuilles de données
et la feuille avec le textbox).
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4608e3cc$0$25932$
Bonjour à tous
j'ai besoin de votre savoir pour effectuer un travail
je remets le contexte
j'ai 17 feuilles dans mon dossier
dans 4 feuilles j'ai 13 tableaux (donc 4*13R semaines)
feuil1 : tableaux de 1 à 13, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil11:tableaux de 14 à 26, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil111 : tableaux de 27 à 39, le 1er tableau A1:D10, le 2ème
A11:D20......
feuil1111:tableaux de 40 à 52, le 1er tableau A1:D10, le 2ème
A11:D20......
Dans une autre feuille j'ai un même tableau A1:D10 dans lequel je
souhaiterai par l'intermédiaire d'un chekbox, copier un des
tableaux des 4 feuilles
par ex: si je mets 2 =copie du tableau 2 A11:D20 de la 1ère
feuille
Daniel m'a fait un code,mais il y a une erreur d'exécution 1004,
la
méthode copy de la classe range a échoué
merci à Daniel pour ce code
Private Sub CommandButton1_Click()
Dim Ctr As Integer, NoFeuille As Integer
Ctr = CInt(TextBox1.Value)
NoFeuille = Application.Match(Ctr, Array(1, 14, 27, 40), 1)
Var = (Ctr - 1 - (NoFeuille - 1) * 13) * 10
l'erreur se produit à l'exécution de la ligne ci dessous
Sheets(NoFeuille).Range("A1:D10").Offset((Ctr - 1 -
(NoFeuille - 1) *
13) * 10, 0).Copy _
Range("A1")
End Sub
Merci pour votre aide et vos solutions
Fred