Comment mettre en forme une cellule "B" par rapport à une cellule "A"
pour que "B" soit identique (mise en forme comprise) à "A"
A savoir "A" peut contenir des chiffres et des lettres et la mise en forme
varie selon le contenu.
J'ais mis dans "B" "=A" -> ceci ok me copie le contenu de "A" dans "B"
Maintenant comment faire pour copier (sans macros si possible et
automatiquement) la mise en forme de "A" dans "B" ?
(La MEFC serait ok si elle ne me limitée pas à seulement 3 possibilités.)
Merci de vous creuser les méninges pour moi.
Ah ! si j'étais un peu moins fainéant, je chercherais un peu plus. Mais bon
! c'est tellement pratique
les forums, y a toujours des gens sympats et pro. qui sont là pour vous
dépanner.
J'ais dit "sans macro si possible" Maintenant s'il y a pas d'autre moyen, je ferais avec. ;-))
A+ CBR
"anonymousA" a écrit dans le message de news:
Bonjour,
perso, je ne vois aucune manière de réussir ce tour de force sans macro ( et encore !!) . Mais je ne demande qu'à être surpris !!!
A+
Michel Gaboly
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A1").Copy Range("B1").PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les réfé rences des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Source As Range, Destination As Range Set Source = Range("A1") Set Destination = Range("B1") If Not Intersect(Target, Source) Is Nothing Then Source.Copy Destination.PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
+ long, mais + simpple à adapter
Bonjour
J'ais dit "sans macro si possible" Maintenant s'il y a pas d'autre moyen, je ferais avec. ;-))
A+ CBR
"anonymousA" a écrit dans le message de news:
Bonjour,
perso, je ne vois aucune manière de réussir ce tour de force sans macro ( et encore !!) . Mais je ne demande qu'à être surpris !!!
A+
-- Cordialement,
Michel Gaboly www.gaboly.com
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Copy
Range("B1").PasteSpecial xlFormats, xlNone
End If
Application.CutCopyMode = False
End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les réfé rences des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Source As Range, Destination As Range
Set Source = Range("A1")
Set Destination = Range("B1")
If Not Intersect(Target, Source) Is Nothing Then
Source.Copy
Destination.PasteSpecial xlFormats, xlNone
End If
Application.CutCopyMode = False
End Sub
+ long, mais + simpple à adapter
Bonjour
J'ais dit "sans macro si possible"
Maintenant s'il y a pas d'autre moyen, je ferais avec. ;-))
A+
CBR
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1135183659.736415.19390@g49g2000cwa.googlegroups.com...
Bonjour,
perso, je ne vois aucune manière de réussir ce tour de force sans
macro ( et encore !!) . Mais je ne demande qu'à être surpris !!!
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A1").Copy Range("B1").PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les réfé rences des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Source As Range, Destination As Range Set Source = Range("A1") Set Destination = Range("B1") If Not Intersect(Target, Source) Is Nothing Then Source.Copy Destination.PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
+ long, mais + simpple à adapter
Bonjour
J'ais dit "sans macro si possible" Maintenant s'il y a pas d'autre moyen, je ferais avec. ;-))
A+ CBR
"anonymousA" a écrit dans le message de news:
Bonjour,
perso, je ne vois aucune manière de réussir ce tour de force sans macro ( et encore !!) . Mais je ne demande qu'à être surpris !!!
A+
-- Cordialement,
Michel Gaboly www.gaboly.com
Jacquouille
Bonjour Michel Bête question. Et si on mettait en B, les mêmes conditions de MEFC que pour A , puisque B=A qu'il a dit le Monsieur?
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A1").Copy Range("B1").PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les références des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Source As Range, Destination As Range Set Source = Range("A1") Set Destination = Range("B1") If Not Intersect(Target, Source) Is Nothing Then Source.Copy Destination.PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
+ long, mais + simpple à adapter
Bonjour
J'ais dit "sans macro si possible" Maintenant s'il y a pas d'autre moyen, je ferais avec. ;-))
A+ CBR
"anonymousA" a écrit dans le message de news:
Bonjour,
perso, je ne vois aucune manière de réussir ce tour de force sans macro ( et encore !!) . Mais je ne demande qu'à être surpris !!!
A+
-- Cordialement,
Michel Gaboly www.gaboly.com
Bonjour Michel
Bête question.
Et si on mettait en B, les mêmes conditions de MEFC que pour A , puisque B=A
qu'il a dit le Monsieur?
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Michel Gaboly" <michel.gaboly@wanadoo.fr> a écrit dans le message de news:
O5262hlBGHA.3292@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Copy
Range("B1").PasteSpecial xlFormats, xlNone
End If
Application.CutCopyMode = False
End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les références
des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Source As Range, Destination As Range
Set Source = Range("A1")
Set Destination = Range("B1")
If Not Intersect(Target, Source) Is Nothing Then
Source.Copy
Destination.PasteSpecial xlFormats, xlNone
End If
Application.CutCopyMode = False
End Sub
+ long, mais + simpple à adapter
Bonjour
J'ais dit "sans macro si possible"
Maintenant s'il y a pas d'autre moyen, je ferais avec. ;-))
A+
CBR
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1135183659.736415.19390@g49g2000cwa.googlegroups.com...
Bonjour,
perso, je ne vois aucune manière de réussir ce tour de force sans
macro ( et encore !!) . Mais je ne demande qu'à être surpris !!!
Bonjour Michel Bête question. Et si on mettait en B, les mêmes conditions de MEFC que pour A , puisque B=A qu'il a dit le Monsieur?
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A1").Copy Range("B1").PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les références des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Source As Range, Destination As Range Set Source = Range("A1") Set Destination = Range("B1") If Not Intersect(Target, Source) Is Nothing Then Source.Copy Destination.PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
+ long, mais + simpple à adapter
Bonjour
J'ais dit "sans macro si possible" Maintenant s'il y a pas d'autre moyen, je ferais avec. ;-))
A+ CBR
"anonymousA" a écrit dans le message de news:
Bonjour,
perso, je ne vois aucune manière de réussir ce tour de force sans macro ( et encore !!) . Mais je ne demande qu'à être surpris !!!
A+
-- Cordialement,
Michel Gaboly www.gaboly.com
Michel Gaboly
Salut Jacquouille,
Sauf que ;-)))
Le Monsieur, comme tu dis, n'a jamais évoqué la moindre MEFC en A, il espérait pouvoir utiliser une MEFC pour reproduire en B le formatage de A.
Bonjour Michel Bête question. Et si on mettait en B, les mêmes conditions de MEFC que pour A , puis que B=A qu'il a dit le Monsieur?
-- Cordialement,
Michel Gaboly www.gaboly.com
Salut Jacquouille,
Sauf que ;-)))
Le Monsieur, comme tu dis, n'a jamais évoqué la moindre MEFC en A, il espérait pouvoir utiliser une MEFC pour reproduire
en B le formatage de A.
Bonjour Michel
Bête question.
Et si on mettait en B, les mêmes conditions de MEFC que pour A , puis que B=A
qu'il a dit le Monsieur?
Le Monsieur, comme tu dis, n'a jamais évoqué la moindre MEFC en A, il espérait pouvoir utiliser une MEFC pour reproduire en B le formatage de A.
Bonjour Michel Bête question. Et si on mettait en B, les mêmes conditions de MEFC que pour A , puis que B=A qu'il a dit le Monsieur?
-- Cordialement,
Michel Gaboly www.gaboly.com
CBR
Bonsoir
ok, merci pour ton aide. Je vais faire avec macro puisqu'il n'y a pas le choix. CBR
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A1").Copy Range("B1").PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les références des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Source As Range, Destination As Range Set Source = Range("A1") Set Destination = Range("B1") If Not Intersect(Target, Source) Is Nothing Then Source.Copy Destination.PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
+ long, mais + simpple à adapter
Bonsoir
ok, merci pour ton aide.
Je vais faire avec macro puisqu'il n'y a pas le choix.
CBR
"Michel Gaboly" <michel.gaboly@wanadoo.fr> a écrit dans le message de news:
O5262hlBGHA.3292@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Copy
Range("B1").PasteSpecial xlFormats, xlNone
End If
Application.CutCopyMode = False
End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les références
des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Source As Range, Destination As Range
Set Source = Range("A1")
Set Destination = Range("B1")
If Not Intersect(Target, Source) Is Nothing Then
Source.Copy
Destination.PasteSpecial xlFormats, xlNone
End If
Application.CutCopyMode = False
End Sub
ok, merci pour ton aide. Je vais faire avec macro puisqu'il n'y a pas le choix. CBR
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A1").Copy Range("B1").PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les références des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Source As Range, Destination As Range Set Source = Range("A1") Set Destination = Range("B1") If Not Intersect(Target, Source) Is Nothing Then Source.Copy Destination.PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
+ long, mais + simpple à adapter
Michel Gaboly
De rien, ;-))
Bonsoir
ok, merci pour ton aide. Je vais faire avec macro puisqu'il n'y a pas le choix. CBR
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A1").Copy Range("B1").PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les réfé rences des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Source As Range, Destination As Range Set Source = Range("A1") Set Destination = Range("B1") If Not Intersect(Target, Source) Is Nothing Then Source.Copy Destination.PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
+ long, mais + simpple à adapter
-- Cordialement,
Michel Gaboly www.gaboly.com
De rien, ;-))
Bonsoir
ok, merci pour ton aide.
Je vais faire avec macro puisqu'il n'y a pas le choix.
CBR
"Michel Gaboly" <michel.gaboly@wanadoo.fr> a écrit dans le message de news:
O5262hlBGHA.3292@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Copy
Range("B1").PasteSpecial xlFormats, xlNone
End If
Application.CutCopyMode = False
End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les réfé rences
des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Source As Range, Destination As Range
Set Source = Range("A1")
Set Destination = Range("B1")
If Not Intersect(Target, Source) Is Nothing Then
Source.Copy
Destination.PasteSpecial xlFormats, xlNone
End If
Application.CutCopyMode = False
End Sub
ok, merci pour ton aide. Je vais faire avec macro puisqu'il n'y a pas le choix. CBR
"Michel Gaboly" a écrit dans le message de news:
Bonsoir,
Si tu acceptes une macro, aucun problème ;-))
dans le code de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A1").Copy Range("B1").PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
en remplaçant Range("A1") 2 fois et Range("B1") 1 fois par les réfé rences des cellules qui t'intéressent
ou
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Source As Range, Destination As Range Set Source = Range("A1") Set Destination = Range("B1") If Not Intersect(Target, Source) Is Nothing Then Source.Copy Destination.PasteSpecial xlFormats, xlNone End If Application.CutCopyMode = False End Sub
