Bonjour à tous, ça faisait longtemps... C'est toujours avec plaisir!!!
Bon, voilà ce qui m'amène: Je cherche à créer une feuille Y, placée dans le
même classeur que la feuille X. La feuille Y reprendrait tout ce que j'écris
sur la feuille X, mais aussi la mise en forme (c'est là que ça se corse!).
Mieux, de la ligne 14 à 76 uniquement...
Ensuite, je pourrais effectuer des changements sur la feuille X sans qu'il y
ait une quelconque influence sur la feuille Y.
Est-ce un rêve?
Merci et un grand grand bonjour (je dirais même mes meilleurs voux!) à tous
ceux qui ont suivi et largement contribués à mes pérégrinations
pédagico-excelliennes.
NB: si ce n'est pas jouable, je sais que je pourrais copier coller la
feuille... mais pour ce que je veux faire, le "direct" serait mieux.
Alors là ça chie ;-) Mon effort est fait pour aujourd'hui.
Bonsoir, Bonne nuit
Serge
"MichDenis" a écrit dans le message de news:
As-tu testé si l'usager a une cellule en A16 d'un certain format et qu'il décide d'utiliser le bouton du coins inférieur droit pour effectuer une recopie vers le haut ? Est-ce le résultat que tu escomptais ? ;-)
"garnote" a écrit dans le message de groupe de discussion :
Mieux ainsi si toutefois ça correspond à tes besoins.
Crée un groupe de travail seulement si tu sélectionnes des cellules toutes comprises entre les lignes 14 et 76 de la feuille X.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Union(Target, Rows("14:76")).Address = Rows("14:76").Address Then Sheets(Array("X", "Y")).Select Else Sheets("X").Select End If End Sub
Sélectionne une cellule non située entre les lignes 14 et 76 quand la feuille X est activée. Tu peux bien sûr en choisir une autre.
Private Sub Worksheet_Activate() Range("B12").Select End Sub
Serge
"garnote" a écrit dans le message de news: ee6gS$
Alors peut-être ceci :
Clic droit sur l'onglet X, cliic gauche sur Visualiser le code et coller cette macro dans la feuille vierge qui devrait apparaître :
Private Sub Worksheet_SelectionChange(ByVal cible As Range) If Not Intersect(cible, Rows("14:76")) Is Nothing Then Sheets(Array("X", "Y")).Select Else Sheets("X").Select End If End Sub
Serge
a écrit dans le message de news:
Bonjour, Greg
A partir du moment ou tu décrète que:
Ensuite, je pourrais effectuer des changements sur la feuille X sans qu'il y ait une quelconque influence sur la feuille Y.
Tout ne tient donc plus qu'à cela, devoir figer la feuille Y pour qu'elle ne reprenne plus à l'avenir ce qui sera fait dans feuille X Soit partant du principe que ton souhait préalable était
même classeur que la feuille X. La feuille Y reprendrait tout ce que j'écris sur la feuille X, mais aussi la mise en forme (c'est là que ça se corse!). Mieux, de la ligne 14 à 76 uniquement...
Cela se résume en effet à faire une copie spécial valeur de la plage voulue dans une nouvelle feuille ou soit celle nommée Y!
Cordialement.
-- lSteph
On 15 mar, 22:44, Grégory DELBOE wrote:
Bonjour à tous, ça faisait longtemps... C'est toujours avec plaisir!!!
Bon, voilà ce qui m'amène: Je cherche à créer une feuille Y, placée dans le même classeur que la feuille X. La feuille Y reprendrait tout ce que j'écris sur la feuille X, mais aussi la mise en forme (c'est là que ça se corse!). Mieux, de la ligne 14 à 76 uniquement...
Ensuite, je pourrais effectuer des changements sur la feuille X sans qu'il y ait une quelconque influence sur la feuille Y.
Est-ce un rêve?
Merci et un grand grand bonjour (je dirais même mes meilleurs voux!) à tous ceux qui ont suivi et largement contribués à mes pérégrinations pédagico-excelliennes.
NB: si ce n'est pas jouable, je sais que je pourrais copier coller la feuille... mais pour ce que je veux faire, le "direct" serait mieux.
Alors là ça chie ;-)
Mon effort est fait pour aujourd'hui.
Bonsoir, Bonne nuit
Serge
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news: 32F8B1D4-1035-4412-BC21-3DBF9B5A647E@microsoft.com...
As-tu testé si l'usager a une cellule en A16 d'un certain format
et qu'il décide d'utiliser le bouton du coins inférieur droit pour
effectuer une recopie vers le haut ? Est-ce le résultat que tu escomptais ?
;-)
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de groupe de discussion :
uD7AprmpJHA.4108@TK2MSFTNGP06.phx.gbl...
Mieux ainsi si toutefois ça correspond à tes besoins.
Crée un groupe de travail seulement si tu sélectionnes des
cellules toutes comprises entre les lignes 14 et 76 de la feuille X.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Union(Target, Rows("14:76")).Address = Rows("14:76").Address Then
Sheets(Array("X", "Y")).Select
Else
Sheets("X").Select
End If
End Sub
Sélectionne une cellule non située entre les lignes 14 et 76
quand la feuille X est activée. Tu peux bien sûr en choisir une autre.
Private Sub Worksheet_Activate()
Range("B12").Select
End Sub
Serge
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news:
ee6gS$lpJHA.1172@TK2MSFTNGP05.phx.gbl...
Alors peut-être ceci :
Clic droit sur l'onglet X, cliic gauche sur Visualiser le code
et coller cette macro dans la feuille vierge qui devrait apparaître :
Private Sub Worksheet_SelectionChange(ByVal cible As Range)
If Not Intersect(cible, Rows("14:76")) Is Nothing Then
Sheets(Array("X", "Y")).Select
Else
Sheets("X").Select
End If
End Sub
Serge
<gmlsteph@gmail.com> a écrit dans le message de news:
d6ac7246-01e4-495b-a7df-0457757f57a8@q11g2000yqh.googlegroups.com...
Bonjour, Greg
A partir du moment ou tu décrète que:
Ensuite, je pourrais effectuer des changements sur la feuille X sans
qu'il y ait une quelconque influence sur la feuille Y.
Tout ne tient donc plus qu'à cela, devoir figer la feuille Y pour
qu'elle ne reprenne plus à l'avenir
ce qui sera fait dans feuille X
Soit partant du principe que ton souhait préalable était
même classeur que la feuille X. La feuille Y reprendrait tout ce que j'écris
sur la feuille X, mais aussi la mise en forme (c'est là que ça se corse!).
Mieux, de la ligne 14 à 76 uniquement...
Cela se résume en effet à faire une copie spécial valeur de la plage
voulue dans une nouvelle feuille ou soit celle nommée Y!
Cordialement.
--
lSteph
On 15 mar, 22:44, Grégory DELBOE <del...@free.fr> wrote:
Bonjour à tous, ça faisait longtemps... C'est toujours avec plaisir!!!
Bon, voilà ce qui m'amène: Je cherche à créer une feuille Y, placée dans le
même classeur que la feuille X. La feuille Y reprendrait tout ce que j'écris
sur la feuille X, mais aussi la mise en forme (c'est là que ça se corse!).
Mieux, de la ligne 14 à 76 uniquement...
Ensuite, je pourrais effectuer des changements sur la feuille X sans qu'il y
ait une quelconque influence sur la feuille Y.
Est-ce un rêve?
Merci et un grand grand bonjour (je dirais même mes meilleurs voux!) à tous
ceux qui ont suivi et largement contribués à mes pérégrinations
pédagico-excelliennes.
NB: si ce n'est pas jouable, je sais que je pourrais copier coller la
feuille... mais pour ce que je veux faire, le "direct" serait mieux.
Alors là ça chie ;-) Mon effort est fait pour aujourd'hui.
Bonsoir, Bonne nuit
Serge
"MichDenis" a écrit dans le message de news:
As-tu testé si l'usager a une cellule en A16 d'un certain format et qu'il décide d'utiliser le bouton du coins inférieur droit pour effectuer une recopie vers le haut ? Est-ce le résultat que tu escomptais ? ;-)
"garnote" a écrit dans le message de groupe de discussion :
Mieux ainsi si toutefois ça correspond à tes besoins.
Crée un groupe de travail seulement si tu sélectionnes des cellules toutes comprises entre les lignes 14 et 76 de la feuille X.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Union(Target, Rows("14:76")).Address = Rows("14:76").Address Then Sheets(Array("X", "Y")).Select Else Sheets("X").Select End If End Sub
Sélectionne une cellule non située entre les lignes 14 et 76 quand la feuille X est activée. Tu peux bien sûr en choisir une autre.
Private Sub Worksheet_Activate() Range("B12").Select End Sub
Serge
"garnote" a écrit dans le message de news: ee6gS$
Alors peut-être ceci :
Clic droit sur l'onglet X, cliic gauche sur Visualiser le code et coller cette macro dans la feuille vierge qui devrait apparaître :
Private Sub Worksheet_SelectionChange(ByVal cible As Range) If Not Intersect(cible, Rows("14:76")) Is Nothing Then Sheets(Array("X", "Y")).Select Else Sheets("X").Select End If End Sub
Serge
a écrit dans le message de news:
Bonjour, Greg
A partir du moment ou tu décrète que:
Ensuite, je pourrais effectuer des changements sur la feuille X sans qu'il y ait une quelconque influence sur la feuille Y.
Tout ne tient donc plus qu'à cela, devoir figer la feuille Y pour qu'elle ne reprenne plus à l'avenir ce qui sera fait dans feuille X Soit partant du principe que ton souhait préalable était
même classeur que la feuille X. La feuille Y reprendrait tout ce que j'écris sur la feuille X, mais aussi la mise en forme (c'est là que ça se corse!). Mieux, de la ligne 14 à 76 uniquement...
Cela se résume en effet à faire une copie spécial valeur de la plage voulue dans une nouvelle feuille ou soit celle nommée Y!
Cordialement.
-- lSteph
On 15 mar, 22:44, Grégory DELBOE wrote:
Bonjour à tous, ça faisait longtemps... C'est toujours avec plaisir!!!
Bon, voilà ce qui m'amène: Je cherche à créer une feuille Y, placée dans le même classeur que la feuille X. La feuille Y reprendrait tout ce que j'écris sur la feuille X, mais aussi la mise en forme (c'est là que ça se corse!). Mieux, de la ligne 14 à 76 uniquement...
Ensuite, je pourrais effectuer des changements sur la feuille X sans qu'il y ait une quelconque influence sur la feuille Y.
Est-ce un rêve?
Merci et un grand grand bonjour (je dirais même mes meilleurs voux!) à tous ceux qui ont suivi et largement contribués à mes pérégrinations pédagico-excelliennes.
NB: si ce n'est pas jouable, je sais que je pourrais copier coller la feuille... mais pour ce que je veux faire, le "direct" serait mieux.
LSteph
Merci pour le souci du détail en effet parfois un effort ...
;-))
garnote a écrit :
Alors là ça chie ;-) Mon effort est fait pour aujourd'hui.
Bonsoir, Bonne nuit
Serge
Merci pour le souci du détail
en effet parfois un effort ...
;-))
garnote a écrit :
Alors là ça chie ;-)
Mon effort est fait pour aujourd'hui.