Je cherche une fonction qui puisse reporter le format=20
(interior.colorindex; font.colorindex; value) d'une=20
cellule =E0 une autre et ou l'on peut choisir le range
Quelque chose comme:
Foction cop.forme (InRange as Range)
Et je m'arr=EAte l=E0 par ce que je suis pas un pro du tout.
"garnote" a écrit dans le message de news: Hk1Kb.26982$
Il faudrait cesser de faire des plaisanteries sinon Échelon va débarquer dans nos chaumières ;-)))
Si seulement ! il entendrais parler en Français et pas du bon dieu
Serge
"Frédo P." a écrit dans le message de news: #
Et pourtant tout le monde sait "qui sème le vent récolte la tempête" mais
"Petit Bosquet" n'a pas l'air de le savoir.
-- Frédéric
"FxM" a écrit dans le message de news: #
Que veux-tu, Serge ? Ca vient du seul pays où celui qui a le moins de voix est élu président. Au fait W ... on attend toujours de connaître les armes de destruction trouvées en Irak ! Le TPI va-t-il juger W pour non-respect des droits de l'homme ?
Il vaut mieux arrêter là, sinon ce fil va être le plus long de l'histoire d'internet tellement il y a (malheureusement) à dire !
@+ FxM
garnote wrote:
;-)))
Et c'est pas beau ça :
« Depuis près de deux ans, quelque 660 « ennemis combattants » capturés en Afghanistan, au Pakistan ou livrés par des pays tiers sont détenus au secret sur la base américaine de Guantanamo, au mépris de toutes les lois internationales. Seuls des décrets du président des États-Unis, au nom de l'« état de guerre contre le terrorisme », sont censés justifier cette détention. À ce jour, aucune inculpation n'a été officiellement formulée contre les détenus, et les commissions militaires ad hoc annoncées en 2001 n'ont toujours pas été mises en place. »
Moé
"sabatier" a écrit dans le message de news:
et pour coller les valeurs tu rajoutes la ligne :
ActiveCell.PasteSpecial Paste:=xlValues
jps (faut tout leur mâcher à ces profs)
garnote a écrit:
xlFormats est une constante VBA annonçant qu'on va copier les formats de la cellule spécifiée.
Sub Copie_Format_Et_Valeur_Dune_Cellule_Dans_Cellule_Active() cellule = InputBox("Adresse de la cellule", "Copie Formats") Range(cellule).Copy ActiveCell.PasteSpecial Paste:=xlFormats ActiveCell.Value = Range(cellule) Application.CutCopyMode = False End Sub
Serge
a écrit dans le message de news:
010f01c3d307$d60772b0$ Bonsoir Serge,
ça marche mais ça ne copie pas la valeur. Peux tu me dire ce qu'est "xlFormats".
Merci
Titoun
-----Message d'origine----- Salut,
Une suggestion :
Sub Copie_Formats_Dune_Cellule_Dans_Cellule_Active() cellule = InputBox("Adresse de la cellule", "Copie
Formats")
Range(cellule).Copy ActiveCell.PasteSpecial Paste:=xlFormats Application.CutCopyMode = False End Sub
Serge
a écrit dans le
message de news:
010101c3d2fe$1699a500$ Bonsoir Balain,
Non ça ne prend pas mais je vais essayer de travailler la dessu.
Merci pour ton aide.
Titoun
-----Message d'origine----- Bonsoir Titoun,
Supposons que tu veuilles copier le format de A1 dans
C1:D2
cela pourrait donner quelque chose comme ceci : '------------- dans le code appelant -----------------------------------------------
-
----
Call Cop_Form(Range("A1"), Range("C1:D2")) '-------------- sub ------------------------------------
-
--------------
public sub Cop_Form ( byval Rin as Range, Rout as Range) for each Cellule in Rout Cellule.interior.colorindex > > > >>>> Rin.interior.colorindex
Cellule.font.colorindex = Rin.font.colorindex ' ... Next Cellule end sub '-------------------------------------------------------
-
-----------
(code non testé)
Balain
"Titoun" a écrit
dans le message
de news:03a301c3d2f0$513a8700$ Bonjour à tous,
Je cherche une fonction qui puisse reporter le format (interior.colorindex; font.colorindex; value) d'une cellule à une autre et ou l'on peut choisir le range Quelque chose comme: Foction cop.forme (InRange as Range)
Et je m'arrête là par ce que je suis pas un pro du tout.
Merci d'avance. Titoun
.
.
--
Frédéric
"garnote" <rien@absent.net> a écrit dans le message de news:
Hk1Kb.26982$6N3.15226@charlie.risq.qc.ca...
Il faudrait cesser de faire des plaisanteries sinon
Échelon va débarquer dans nos chaumières ;-)))
Si seulement ! il entendrais parler en Français et pas du bon dieu
Serge
"Frédo P." <fredpost@free.fr> a écrit dans le message de news:
#LdKxmx0DHA.3416@tk2msftngp13.phx.gbl...
Et pourtant tout le monde sait "qui sème le vent récolte la tempête"
mais
"Petit Bosquet" n'a pas l'air de le savoir.
--
Frédéric
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de news:
#iJg0Gx0DHA.2480@TK2MSFTNGP10.phx.gbl...
Que veux-tu, Serge ? Ca vient du seul pays où celui qui a le moins de
voix est élu président. Au fait W ... on attend toujours de connaître
les armes de destruction trouvées en Irak !
Le TPI va-t-il juger W pour non-respect des droits de l'homme ?
Il vaut mieux arrêter là, sinon ce fil va être le plus long de
l'histoire d'internet tellement il y a (malheureusement) à dire !
@+
FxM
garnote wrote:
;-)))
Et c'est pas beau ça :
« Depuis près de deux ans, quelque 660 « ennemis combattants »
capturés en Afghanistan, au Pakistan ou livrés par des pays tiers
sont détenus au secret sur la base américaine de Guantanamo,
au mépris de toutes les lois internationales.
Seuls des décrets du président des États-Unis, au nom de
l'« état de guerre contre le terrorisme », sont censés justifier
cette détention.
À ce jour, aucune inculpation n'a été officiellement formulée contre
les détenus, et les commissions militaires ad hoc annoncées en 2001
n'ont toujours pas été mises en place. »
Moé
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de
news:
3FF889E8.9040002@wanadoo.fr...
et pour coller les valeurs tu rajoutes la ligne :
ActiveCell.PasteSpecial Paste:=xlValues
jps (faut tout leur mâcher à ces profs)
garnote a écrit:
xlFormats est une constante VBA annonçant qu'on
va copier les formats de la cellule spécifiée.
Sub Copie_Format_Et_Valeur_Dune_Cellule_Dans_Cellule_Active()
cellule = InputBox("Adresse de la cellule", "Copie Formats")
Range(cellule).Copy
ActiveCell.PasteSpecial Paste:=xlFormats
ActiveCell.Value = Range(cellule)
Application.CutCopyMode = False
End Sub
Serge
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:
Non ça ne prend pas mais je vais essayer de travailler la
dessu.
Merci pour ton aide.
Titoun
-----Message d'origine-----
Bonsoir Titoun,
Supposons que tu veuilles copier le format de A1 dans
C1:D2
cela pourrait donner quelque chose comme ceci :
'------------- dans le code
appelant -----------------------------------------------
-
----
Call Cop_Form(Range("A1"), Range("C1:D2"))
'-------------- sub ------------------------------------
-
--------------
public sub Cop_Form ( byval Rin as Range, Rout as Range)
for each Cellule in Rout
Cellule.interior.colorindex > > > >>>>
Rin.interior.colorindex
Cellule.font.colorindex = Rin.font.colorindex
' ...
Next Cellule
end sub
'-------------------------------------------------------
-
-----------
(code non testé)
Balain
"Titoun" <anonymous@discussions.microsoft.com> a écrit
dans le message
de news:03a301c3d2f0$513a8700$a001280a@phx.gbl...
Bonjour à tous,
Je cherche une fonction qui puisse reporter le format
(interior.colorindex; font.colorindex; value) d'une
cellule à une autre et ou l'on peut choisir le range
Quelque chose comme:
Foction cop.forme (InRange as Range)
Et je m'arrête là par ce que je suis pas un pro du tout.
"garnote" a écrit dans le message de news: Hk1Kb.26982$
Il faudrait cesser de faire des plaisanteries sinon Échelon va débarquer dans nos chaumières ;-)))
Si seulement ! il entendrais parler en Français et pas du bon dieu
Serge
"Frédo P." a écrit dans le message de news: #
Et pourtant tout le monde sait "qui sème le vent récolte la tempête" mais
"Petit Bosquet" n'a pas l'air de le savoir.
-- Frédéric
"FxM" a écrit dans le message de news: #
Que veux-tu, Serge ? Ca vient du seul pays où celui qui a le moins de voix est élu président. Au fait W ... on attend toujours de connaître les armes de destruction trouvées en Irak ! Le TPI va-t-il juger W pour non-respect des droits de l'homme ?
Il vaut mieux arrêter là, sinon ce fil va être le plus long de l'histoire d'internet tellement il y a (malheureusement) à dire !
@+ FxM
garnote wrote:
;-)))
Et c'est pas beau ça :
« Depuis près de deux ans, quelque 660 « ennemis combattants » capturés en Afghanistan, au Pakistan ou livrés par des pays tiers sont détenus au secret sur la base américaine de Guantanamo, au mépris de toutes les lois internationales. Seuls des décrets du président des États-Unis, au nom de l'« état de guerre contre le terrorisme », sont censés justifier cette détention. À ce jour, aucune inculpation n'a été officiellement formulée contre les détenus, et les commissions militaires ad hoc annoncées en 2001 n'ont toujours pas été mises en place. »
Moé
"sabatier" a écrit dans le message de news:
et pour coller les valeurs tu rajoutes la ligne :
ActiveCell.PasteSpecial Paste:=xlValues
jps (faut tout leur mâcher à ces profs)
garnote a écrit:
xlFormats est une constante VBA annonçant qu'on va copier les formats de la cellule spécifiée.
Sub Copie_Format_Et_Valeur_Dune_Cellule_Dans_Cellule_Active() cellule = InputBox("Adresse de la cellule", "Copie Formats") Range(cellule).Copy ActiveCell.PasteSpecial Paste:=xlFormats ActiveCell.Value = Range(cellule) Application.CutCopyMode = False End Sub
Serge
a écrit dans le message de news:
010f01c3d307$d60772b0$ Bonsoir Serge,
ça marche mais ça ne copie pas la valeur. Peux tu me dire ce qu'est "xlFormats".
Merci
Titoun
-----Message d'origine----- Salut,
Une suggestion :
Sub Copie_Formats_Dune_Cellule_Dans_Cellule_Active() cellule = InputBox("Adresse de la cellule", "Copie
Formats")
Range(cellule).Copy ActiveCell.PasteSpecial Paste:=xlFormats Application.CutCopyMode = False End Sub
Serge
a écrit dans le
message de news:
010101c3d2fe$1699a500$ Bonsoir Balain,
Non ça ne prend pas mais je vais essayer de travailler la dessu.
Merci pour ton aide.
Titoun
-----Message d'origine----- Bonsoir Titoun,
Supposons que tu veuilles copier le format de A1 dans
C1:D2
cela pourrait donner quelque chose comme ceci : '------------- dans le code appelant -----------------------------------------------
-
----
Call Cop_Form(Range("A1"), Range("C1:D2")) '-------------- sub ------------------------------------
-
--------------
public sub Cop_Form ( byval Rin as Range, Rout as Range) for each Cellule in Rout Cellule.interior.colorindex > > > >>>> Rin.interior.colorindex
Cellule.font.colorindex = Rin.font.colorindex ' ... Next Cellule end sub '-------------------------------------------------------
-
-----------
(code non testé)
Balain
"Titoun" a écrit
dans le message
de news:03a301c3d2f0$513a8700$ Bonjour à tous,
Je cherche une fonction qui puisse reporter le format (interior.colorindex; font.colorindex; value) d'une cellule à une autre et ou l'on peut choisir le range Quelque chose comme: Foction cop.forme (InRange as Range)
Et je m'arrête là par ce que je suis pas un pro du tout.
