Bonjour, je retente un post au cas où quelqu'un serait bien
inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent)
avec l'instruction:
Application.CopyObjectsWithCells = True
mais il n'en est rien.
Voici mon problème:
je selectionne un cellule sur une feuille
je fais copier
je sélectionne une autre feuille
la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer
jour = Int(Format(Date, "dd"))
For i = 1 To 31
a) Cells(1, i).Font.ColorIndex = 1
b) Cells(2, i).Font.ColorIndex = 23
Next i
et quand je fais coller , l'option est grisée.
Ma question:
Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent
pas mon copier coller ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Kerroch Il me semble qu'en attribuant une couleur de police à des cellules tu annules le mode copier-coller qui était actif avant ton opération. Ne peux-tu pas effectuer ton collage avant de définir la couleur de police de tes cellules ? Cordialement Pascal
"Kerroch" a écrit dans le message de news:bu2o37$2bc$
Bonjour, je retente un post au cas où quelqu'un serait bien inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent) avec l'instruction: Application.CopyObjectsWithCells = True mais il n'en est rien.
Voici mon problème: je selectionne un cellule sur une feuille je fais copier je sélectionne une autre feuille la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer jour = Int(Format(Date, "dd")) For i = 1 To 31 a) Cells(1, i).Font.ColorIndex = 1 b) Cells(2, i).Font.ColorIndex = 23 Next i
et quand je fais coller , l'option est grisée.
Ma question: Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent pas mon copier coller ?
J'espère être clair...
Merci de votre aide
Kerroch
Bonjour Kerroch
Il me semble qu'en attribuant une couleur de police à des cellules tu
annules le mode copier-coller qui était actif avant ton opération.
Ne peux-tu pas effectuer ton collage avant de définir la couleur de police
de tes cellules ?
Cordialement
Pascal
"Kerroch" <lebail.roland@wanadoo.fr> a écrit dans le message de
news:bu2o37$2bc$1@news-reader3.wanadoo.fr...
Bonjour, je retente un post au cas où quelqu'un serait bien
inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent)
avec l'instruction:
Application.CopyObjectsWithCells = True
mais il n'en est rien.
Voici mon problème:
je selectionne un cellule sur une feuille
je fais copier
je sélectionne une autre feuille
la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer
jour = Int(Format(Date, "dd"))
For i = 1 To 31
a) Cells(1, i).Font.ColorIndex = 1
b) Cells(2, i).Font.ColorIndex = 23
Next i
et quand je fais coller , l'option est grisée.
Ma question:
Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent
pas mon copier coller ?
Bonjour Kerroch Il me semble qu'en attribuant une couleur de police à des cellules tu annules le mode copier-coller qui était actif avant ton opération. Ne peux-tu pas effectuer ton collage avant de définir la couleur de police de tes cellules ? Cordialement Pascal
"Kerroch" a écrit dans le message de news:bu2o37$2bc$
Bonjour, je retente un post au cas où quelqu'un serait bien inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent) avec l'instruction: Application.CopyObjectsWithCells = True mais il n'en est rien.
Voici mon problème: je selectionne un cellule sur une feuille je fais copier je sélectionne une autre feuille la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer jour = Int(Format(Date, "dd")) For i = 1 To 31 a) Cells(1, i).Font.ColorIndex = 1 b) Cells(2, i).Font.ColorIndex = 23 Next i
et quand je fais coller , l'option est grisée.
Ma question: Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent pas mon copier coller ?
J'espère être clair...
Merci de votre aide
Kerroch
ChrisV
Bonjour Kerroch,
Juste une question... Dans ce cas précis, intérêt de formater par macro (événementielle en plus...) et avec boucle ? (pourquoi pas directement "en dur" sur l'onglet concerné ?)
nb: tu pourrais également modifier jour = Int(Format(Date, "dd")) par: jour = Day(Date)
ChrisV
"Kerroch" a écrit dans le message de news: bu2o37$2bc$
Bonjour, je retente un post au cas où quelqu'un serait bien inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent) avec l'instruction: Application.CopyObjectsWithCells = True mais il n'en est rien.
Voici mon problème: je selectionne un cellule sur une feuille je fais copier je sélectionne une autre feuille la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer jour = Int(Format(Date, "dd")) For i = 1 To 31 a) Cells(1, i).Font.ColorIndex = 1 b) Cells(2, i).Font.ColorIndex = 23 Next i
et quand je fais coller , l'option est grisée.
Ma question: Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent pas mon copier coller ?
J'espère être clair...
Merci de votre aide
Kerroch
Bonjour Kerroch,
Juste une question...
Dans ce cas précis, intérêt de formater par macro (événementielle en
plus...) et avec boucle ?
(pourquoi pas directement "en dur" sur l'onglet concerné ?)
nb: tu pourrais également modifier
jour = Int(Format(Date, "dd"))
par:
jour = Day(Date)
ChrisV
"Kerroch" <lebail.roland@wanadoo.fr> a écrit dans le message de news:
bu2o37$2bc$1@news-reader3.wanadoo.fr...
Bonjour, je retente un post au cas où quelqu'un serait bien
inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent)
avec l'instruction:
Application.CopyObjectsWithCells = True
mais il n'en est rien.
Voici mon problème:
je selectionne un cellule sur une feuille
je fais copier
je sélectionne une autre feuille
la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer
jour = Int(Format(Date, "dd"))
For i = 1 To 31
a) Cells(1, i).Font.ColorIndex = 1
b) Cells(2, i).Font.ColorIndex = 23
Next i
et quand je fais coller , l'option est grisée.
Ma question:
Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent
pas mon copier coller ?
Juste une question... Dans ce cas précis, intérêt de formater par macro (événementielle en plus...) et avec boucle ? (pourquoi pas directement "en dur" sur l'onglet concerné ?)
nb: tu pourrais également modifier jour = Int(Format(Date, "dd")) par: jour = Day(Date)
ChrisV
"Kerroch" a écrit dans le message de news: bu2o37$2bc$
Bonjour, je retente un post au cas où quelqu'un serait bien inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent) avec l'instruction: Application.CopyObjectsWithCells = True mais il n'en est rien.
Voici mon problème: je selectionne un cellule sur une feuille je fais copier je sélectionne une autre feuille la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer jour = Int(Format(Date, "dd")) For i = 1 To 31 a) Cells(1, i).Font.ColorIndex = 1 b) Cells(2, i).Font.ColorIndex = 23 Next i
et quand je fais coller , l'option est grisée.
Ma question: Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent pas mon copier coller ?
J'espère être clair...
Merci de votre aide
Kerroch
Kerroch
bonjour Pascal, Je crois que j'ai trouvé une solution qui semble marcher:
au lieu de mettre : Cells(1, i).Font.ColorIndex = 1 (qui m'annule copier/coller) je mets: Cells(1, i).Application.ReplaceFormat.Font.ColorIndex = 1
Qu'est ce que t'en penses ?? ça à l'air de marcher..
Kerroch
"papou" <nspm> a écrit dans le message de news:
Bonjour Kerroch Il me semble qu'en attribuant une couleur de police à des cellules tu annules le mode copier-coller qui était actif avant ton opération. Ne peux-tu pas effectuer ton collage avant de définir la couleur de police de tes cellules ? Cordialement Pascal
"Kerroch" a écrit dans le message de news:bu2o37$2bc$
Bonjour, je retente un post au cas où quelqu'un serait bien inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent)
avec l'instruction: Application.CopyObjectsWithCells = True mais il n'en est rien.
Voici mon problème: je selectionne un cellule sur une feuille je fais copier je sélectionne une autre feuille la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer jour = Int(Format(Date, "dd")) For i = 1 To 31 a) Cells(1, i).Font.ColorIndex = 1 b) Cells(2, i).Font.ColorIndex = 23 Next i
et quand je fais coller , l'option est grisée.
Ma question: Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent
pas mon copier coller ?
J'espère être clair...
Merci de votre aide
Kerroch
bonjour Pascal,
Je crois que j'ai trouvé une solution qui semble marcher:
au lieu de mettre :
Cells(1, i).Font.ColorIndex = 1 (qui m'annule copier/coller)
je mets:
Cells(1, i).Application.ReplaceFormat.Font.ColorIndex = 1
Qu'est ce que t'en penses ?? ça à l'air de marcher..
Kerroch
"papou" <nspm> a écrit dans le message de
news:OmmLe7m2DHA.484@TK2MSFTNGP10.phx.gbl...
Bonjour Kerroch
Il me semble qu'en attribuant une couleur de police à des cellules tu
annules le mode copier-coller qui était actif avant ton opération.
Ne peux-tu pas effectuer ton collage avant de définir la couleur de police
de tes cellules ?
Cordialement
Pascal
"Kerroch" <lebail.roland@wanadoo.fr> a écrit dans le message de
news:bu2o37$2bc$1@news-reader3.wanadoo.fr...
Bonjour, je retente un post au cas où quelqu'un serait bien
inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post
précédent)
avec l'instruction:
Application.CopyObjectsWithCells = True
mais il n'en est rien.
Voici mon problème:
je selectionne un cellule sur une feuille
je fais copier
je sélectionne une autre feuille
la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer
jour = Int(Format(Date, "dd"))
For i = 1 To 31
a) Cells(1, i).Font.ColorIndex = 1
b) Cells(2, i).Font.ColorIndex = 23
Next i
et quand je fais coller , l'option est grisée.
Ma question:
Qu'elle instruction mettre pour que les lignes a) et b) ne
désélectionnent
bonjour Pascal, Je crois que j'ai trouvé une solution qui semble marcher:
au lieu de mettre : Cells(1, i).Font.ColorIndex = 1 (qui m'annule copier/coller) je mets: Cells(1, i).Application.ReplaceFormat.Font.ColorIndex = 1
Qu'est ce que t'en penses ?? ça à l'air de marcher..
Kerroch
"papou" <nspm> a écrit dans le message de news:
Bonjour Kerroch Il me semble qu'en attribuant une couleur de police à des cellules tu annules le mode copier-coller qui était actif avant ton opération. Ne peux-tu pas effectuer ton collage avant de définir la couleur de police de tes cellules ? Cordialement Pascal
"Kerroch" a écrit dans le message de news:bu2o37$2bc$
Bonjour, je retente un post au cas où quelqu'un serait bien inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent)
avec l'instruction: Application.CopyObjectsWithCells = True mais il n'en est rien.
Voici mon problème: je selectionne un cellule sur une feuille je fais copier je sélectionne une autre feuille la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer jour = Int(Format(Date, "dd")) For i = 1 To 31 a) Cells(1, i).Font.ColorIndex = 1 b) Cells(2, i).Font.ColorIndex = 23 Next i
et quand je fais coller , l'option est grisée.
Ma question: Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent
pas mon copier coller ?
J'espère être clair...
Merci de votre aide
Kerroch
Kerroch
Bonjout Chris,
Effectivement , un codage en dur serait certainement plus judicieux. Je fais le formatage par macro parce l'appel d'une seule procédure permettait de formatter les douze feuilles pour chaque mois de l'année.
mais copier le format en dur dans les feuilles...c'est pas la mer à boire. Disons que c'est effectivement une solution.
Merci pour ta proposition. Kerroch
"ChrisV" a écrit dans le message de news:
Bonjour Kerroch,
Juste une question... Dans ce cas précis, intérêt de formater par macro (événementielle en plus...) et avec boucle ? (pourquoi pas directement "en dur" sur l'onglet concerné ?)
nb: tu pourrais également modifier jour = Int(Format(Date, "dd")) par: jour = Day(Date)
ChrisV
"Kerroch" a écrit dans le message de news: bu2o37$2bc$
Bonjour, je retente un post au cas où quelqu'un serait bien inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent)
avec l'instruction: Application.CopyObjectsWithCells = True mais il n'en est rien.
Voici mon problème: je selectionne un cellule sur une feuille je fais copier je sélectionne une autre feuille la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer jour = Int(Format(Date, "dd")) For i = 1 To 31 a) Cells(1, i).Font.ColorIndex = 1 b) Cells(2, i).Font.ColorIndex = 23 Next i
et quand je fais coller , l'option est grisée.
Ma question: Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent
pas mon copier coller ?
J'espère être clair...
Merci de votre aide
Kerroch
Bonjout Chris,
Effectivement , un codage en dur serait certainement plus judicieux.
Je fais le formatage par macro parce l'appel d'une seule procédure
permettait de formatter
les douze feuilles pour chaque mois de l'année.
mais copier le format en dur dans les feuilles...c'est pas la mer à boire.
Disons que c'est effectivement une solution.
Merci pour ta proposition.
Kerroch
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:utiCUKn2DHA.2408@tk2msftngp13.phx.gbl...
Bonjour Kerroch,
Juste une question...
Dans ce cas précis, intérêt de formater par macro (événementielle en
plus...) et avec boucle ?
(pourquoi pas directement "en dur" sur l'onglet concerné ?)
nb: tu pourrais également modifier
jour = Int(Format(Date, "dd"))
par:
jour = Day(Date)
ChrisV
"Kerroch" <lebail.roland@wanadoo.fr> a écrit dans le message de news:
bu2o37$2bc$1@news-reader3.wanadoo.fr...
Bonjour, je retente un post au cas où quelqu'un serait bien
inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post
précédent)
avec l'instruction:
Application.CopyObjectsWithCells = True
mais il n'en est rien.
Voici mon problème:
je selectionne un cellule sur une feuille
je fais copier
je sélectionne une autre feuille
la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer
jour = Int(Format(Date, "dd"))
For i = 1 To 31
a) Cells(1, i).Font.ColorIndex = 1
b) Cells(2, i).Font.ColorIndex = 23
Next i
et quand je fais coller , l'option est grisée.
Ma question:
Qu'elle instruction mettre pour que les lignes a) et b) ne
désélectionnent
Effectivement , un codage en dur serait certainement plus judicieux. Je fais le formatage par macro parce l'appel d'une seule procédure permettait de formatter les douze feuilles pour chaque mois de l'année.
mais copier le format en dur dans les feuilles...c'est pas la mer à boire. Disons que c'est effectivement une solution.
Merci pour ta proposition. Kerroch
"ChrisV" a écrit dans le message de news:
Bonjour Kerroch,
Juste une question... Dans ce cas précis, intérêt de formater par macro (événementielle en plus...) et avec boucle ? (pourquoi pas directement "en dur" sur l'onglet concerné ?)
nb: tu pourrais également modifier jour = Int(Format(Date, "dd")) par: jour = Day(Date)
ChrisV
"Kerroch" a écrit dans le message de news: bu2o37$2bc$
Bonjour, je retente un post au cas où quelqu'un serait bien inpiré ce matin.
je croyais avec résolu mon problème de copier/coller (voir post précédent)
avec l'instruction: Application.CopyObjectsWithCells = True mais il n'en est rien.
Voici mon problème: je selectionne un cellule sur une feuille je fais copier je sélectionne une autre feuille la macro suivante s'execute lors du changement de feuille:
Dim jour As integer, i As Integer jour = Int(Format(Date, "dd")) For i = 1 To 31 a) Cells(1, i).Font.ColorIndex = 1 b) Cells(2, i).Font.ColorIndex = 23 Next i
et quand je fais coller , l'option est grisée.
Ma question: Qu'elle instruction mettre pour que les lignes a) et b) ne désélectionnent
