Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Copie une format par VBA

Copie une format par VBA

11 réponses
Avatar
Titoun
Bonjour =E0 tous,

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.

Merci d'avance.
Titoun
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Balain
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
Avatar
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

.



Avatar
garnote
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

.



Avatar
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

.




.




Avatar
garnote
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

.




.




Avatar
sabatier
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

.




.









Avatar
garnote
;-)))

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

.




.












Avatar
FxM
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

.




.















Avatar
Frédo P.
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

.




.


















Avatar
garnote
Il faudrait cesser de faire des plaisanteries sinon
Échelon va débarquer dans nos chaumières ;-)))

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

.




.






















1 2