excel respect de la mise en page!! Résolu/Fermé

Question

Bonjour,

je souhaiterais recopier des informations d'une feuille à l'autre tout en gardant la même mise en forme, même couleur etc. sur excel 2003.

En fait je voudrais que les infos de  la feuille A se retrouve automatiquement dans la feuille B tout en gardant la même couleur de fond, la même police, couleur de police etc. La mise en forme en fait! J’ai des formules du style : « ='lundi 11 matin'!C15 » j’ai le bon texte qui se retrouve dans la case (logique) mais la mise en forme, est différente de l’original et je n’arrive pas à garder la mise en forme de la cellule souche…Est-ce possible??? 

Merci d'avance

Geeby

Raymond PENTIER · Accepted Answer

Ou mieux : Clic droit sur l'onglet / Déplacer ou copier... / Créer une copie

cbauf · Answer

Salut moi je fais comme cela :
Click dans la zone en dessus de 1 et a côté de A

ou CTRL+A

Celà Sélectionnes toute la feuille 

Click sur l'icône qui a un pinceau (Reproduire la mise en forme)

Selectionnes la nouvelle feuille, et click dans la cellule A1 ; la mise en forme devrait-être la même !
A+

Autre manière :
Edition>Collage Spécial

Option format (activée)
et Aucune comme opération

et tu recommences avec 

option formule (activée)

geeby · Answer

Merci pour vos réponse. Cette méthode ne permet pas de résoudre mon problème car dans la dernière feuille de mon classeur se retrouvent des informations de plusieurs feuilles et je souhaite que chaque texte garde la mise en forme de la case dont il est issu et étant donné que je trie les infos dans la dernière feuille utiliser le pinceau ne permet pas de cibler les cellules en rapport avec cette page mais il l'applique au haut de page uniquement...
Une info donné dans la feuille A et automatiquement répercuté dans la feuille B mais pas obligatoirement au même endroit d'où la recherche d'une autre solution que le pinceau et la copie ne permet pas de mettre ensemble les infos de plusieurs feuilles...

Affaire à suivre...

michel_m · Answer

Bonjour tout le monde,

Tu peux toujours utiliser le pinceau cellule par cellule mais...

A/tu as aussi la solution "style"

Format-style
tu donnes le nom du style par exemple "ventes" avec le motif souhaité, 
ensuite pour telle ou telles cellules tu appelles le style
surtout pratique en cas de modification de la présentation des cellules

B/ou encore:

copier-
edition-collage spécial- format
_______

l'avantage des 2 par rapport au pinceau est que tu peux "formater" plusieurs cellules d'un coup

dans tous les cas,cela ne résoud pas la reproduction des hauteurs des lignes

Pour les largeurs de colonnes avec la solution B: collage-spécial, largeur de colonnes.

A toi de voir mais j'avoue ne pas avoir bien compris tes demandes différentes entre la première et ta réponse ou certainement, je ne suis pas encore réveillé.

Michel

geeby · Answer

Je vais essayer d'etre plus clair car moi aussi j'ai écris au saut du lit...
Donc voila le pb (clairement j'espère):
Prenons 3 feuilles pour faire simple
La première est rempli ainsi

11/06 8h-12h	POLYVAL	RIANDIERE Bertrand	11/06 8h-12h	10	GIL ALVARO Dominique
11/06 8h-12h	POLYVAL	DUPART Odile	11/06 8h-12h	10	Mme POTIER
11/06 8h-12h	POLYVAL	Mme BRIAND			
11/06 8h-12h	11	FOURNIER Claire
11/06 8h-12h	25	DEPIERRE Pavel	11/06 8h-12h	11	HAMONET Jean-François

et la deuxième ainsi

12/06 8h-12h	22	ABRAHAM Anne	12/06 8h-12h	ETE	CANOVILLE Jean-Yves
12/06 8h-12h	22	Mme BOHUON	12/06 8h-12h	ETE	JEHENNE Maryse
12/06 8h-12h	ETE	Mme LEROUXEL
12/06 8h-12h	23	RIOUT Estelle			
12/06 8h-12h	23	CORPEL Michel	12/06 8h-12h	devoirs	FOURNIER Claire
12/06 8h-12h	devoirs	MASSUET Jean-Philippe
12/06 8h-12h	24	BRETONNIERE Laurent	12/06 8h-12h	devoirs	Mle CHANU

Ma troisième feuille est elle automatiquement remplie en lien avec les deux premières avec des formules ='nom_de_la feuille'!C5 etc.

Ce qui me permet de visualiser toutes les feuilles sur une seule et de pouvoir trier les informations pour chaque personne en faisant un tri.

Comme vous pouvez le voir certains nom sont en gras (voire en couleur, ou les cases remplies) et le problème c'est que cette mise en page individuelle à chaque cellule n'est pas répercuté sur ma troisième feuille

J'espère avoir été plus clair, peut être qu'une macro pourrait m'aider mais alors là je suis pour le moment incapable de la réaliser n'y connaissant rien...
Merci de votre aide!!

michel_m · Answer

Re,

Pas le temps cet aprem et en déplacementy demain, désolé mais il y a du monde sur le forum pour t'aider!
tes mises à tel ou tel format sont elles  dues à des mises en formes manuelles ou à des résultat automatiques (mise en forme conditionnelle) ?

En espèrant que qqn te dépannera

Michel

geeby · Answer

Ce sont des mises en forme manuelles
Peut etre est il possible de créer une macro pour rechercher la cellule cible (d'une cellule de la troisième feuille), copier sa mise en page de cette cible et coller cette dernière mise en page dans la cellule d'arrivée et ça pour toutes les cellules de ma troisième feuille... Si une telle macro est posiible ce serait impécable...

lermite222 · Answer

Bonjour,
En VBA tout est possible (ou presque)
Besoin de quelque explications complémentaires
Les adresses de celules dans la feuille 3, qu'est-ce qui les détermines ?
Tu fait chaque fois un nouvel adressage ? et manuellement.
Combien de lignes pour un seul critère ?
Décrit l'exemple que tu veux obtenir en feuil3
A+

geeby · Answer

Les adresses des cellules de la feuilles trois sont déterminé manuellement. Je tape sur "=" puis à l'aide de la souris je selctionne la cible et ensuite j'étend la cible avec la souris pour que la sélection fasse le même travail pour retrouver toutes les colonnes  de toutes mes feuilles dans la troisième feuille.
J'obtiens donc dans la troisième feuille ceci (je tape les formules qui sont associés aux cellules):
Colonne A:  ='feuil1'!A5 / colonne B: ='feuil1'!B5 / colonne C: ='feuil1'!C5
---------------  ='feuil1'!A6 ----------------  ='feuil1'!B6  ---------------- ='feuil1'!C6
---------------  ='feuil1'!A7 ----------------  ='feuil1'!B7  ----------------  ='feuil1'!C7
------------------- etc  ..... --------------------  etc.......  -------------------- etc........
---------------  ='feuil2'!A5  ---------------- ='feuil2'!B5  ---------------- ='feuil2'!C5
---------------  ='feuil2'!A6  ---------------- ='feuil2'!B6  ---------------- ='feuil2'!C6
---------------  ='feuil2'!A7  ---------------- ='feuil2'!B7  ---------------- ='feuil2'!C7

et ainsi de suite pour une dixaine de feuillles...

et donc je voudrait en plus de récupérer l'occurence des cibles tel que 'feuil2'!B5 sa mise en page (gras couleur de police et de fond...)

Merci

lermite222 · Answer

OK, c'est plus clair,
Moi je vois ca avec un bouton dans une barre d'outils (plus facile que dans la feuille)
Aller dans les différentes feuilles, sélectionner la 1ère cellule de la ligne que tu veux avoir dans feuil3 et clic sur le bouton.
Pour cela, encore besoin de réponses..
Les cellules c'est toujour Ax,Bx,Cx  où x est le N° bien sûr. ?
Est-ce que le contenu des cellules serait suffisant ? par ex: à la place d'avoir la référence à la cellule tu ai ce qu'elle contient?
Les copies sont elles l'une en dessous de l'autre sans ligne vide ?
Tu dit et fonction de ta réponse je ferais une petite macro.

geeby · Answer

Non parfois ce sont Dx,Ex et Fx qui se retrouve en Ax,Bx et Cx dans la feuille 3, il existe des lignes vides (pour info je n'utilise pas le copier coller car ce que j'ai fait permet de répercuter tout changement dans l'une de mes feuilles dans la feuille bilan qui elle est triée par ordre alphabétique dans la colonne C donc l'ordre n'est plus respecté par rapport aux autres feuilles c'est a dire que la ligne 1 peut être ='feuil1'!A5 et la ligne 2 ='feuil2'!A34 et ligne 3='feuil1'!A23  ...) C'est pour ça que je pense à une macro qui travaille cellule par cellule...
Mais bon tu t'y connait beaucoup plus que moi donc je te laisse maitre de la macro...

geeby · Answer

Juste une petite question sans rapport : Où peut on s'instruire en VBA (livre, internet logiciel...)

lermite222 · Answer

Bon, un peu tarder mais ca n'a pas été simple...
Copie cette macro dans un module.
Par précaution fait un backup de ton fichier.. Ont sait jamais !!
Sub CopieFormat()
Dim i As Integer, e As Integer
Dim Txt As String
Dim T
Dim Cel As Range
Dim R As Long, C As Integer
    Feuil3.Select
    Range("A1:A" & Range("A1").SpecialCells(xlCellTypeLastCell).Row).Select
    For Each Cel In Selection
        Txt = Mid(Cel.Formula, 2)
        If Txt <> "" Then
            T = Split(Txt, "!", -1)
            If Right(T(O), 1) = "1" Then
                Feuil1.Select
            Else
                Feuil2.Select
            End If
            R = Range(T(1)).Row: C = Range(T(1)).Column
            Range(Cells(R, C), Cells(R, C + 2)).Select
            Selection.Copy
            Feuil3.Select
            Cel.Select
            Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
        End If
    Next Cel
End Sub
NB: fonctionne uniquement avec les critères que tu à renseigner et SANS CHANGER LE NOM DES FEUILLES
Sauf pour la 3
Quand tu à ajouter tes cellules tu met le curseur dans la macro et tape F5 ou F8 pour du pas à pas.
Tu dit, si quelque changements ont verras.
A+

EDIT: j'avais pas vu que tu avait une dizaine de feuilles, dans ton premier poste tu parlais de copier feuil1.. Feuil2 dans Feuil3.
C'est ce que ca fait, essaye donc avec Feuil1,2 et 3 je rectifierait si cela convient.
Mais dans tout les cas tu doit laisser les noms des feuilles, moyen de changer mais alors tu devra adapter la macro si tu en est capable.

geeby · Answer

Merci de ton aide désolé de répondre si tard mais j'étais au boulot il y a un problème dans la macro. Ca me dit que "erreur d'execution '9': l'indice n'appartient pas à la sélection" si je clique sur débogage ce texte est surligné en jaune : R = Range(T(1)).Row dans la macro?
Je te laisse donc ce problème que tu comprendras sans doute mieux que moi
Je pars deux jours en formationdonc je serais discret sur le sujet ces deux prochains jours mais reprend contact avec toi dès que possible en tout cas merci beaucoup pour ton aide que j'apprécie à sa juste valeur...
Cordialement 
geeby

lermite222 · Answer

Pas de problème c'est quand tu veux..
pour le débogage..
quand la macro est bloquée  tu clic debogage..

dans l'IDE de VBA >> tu tape Ctrl+G pour avoir la fenêtre exécution.. dans cette fenêtre tu tape..
Print T(0)
Print T(1)
tu donne les 2 réponses

geeby · Answer

Bonjour je prends 5 minutes  avant de partir

print T(0)
URVEILLANCE DES EPREUVES ANTICIPEES DU BACCALAUREAT GENERAL
print T(1)
==>fenetre windows s'ouvre et me dit "erreur d'execution '9' : l'indice n'appartient pas à la sélection"

Merci à bientôt

geeby · Answer

Salut de retour du boulot... J'ai essayé de comprendre le problème et le VBA est encore trop flou pour que je vois quel est le soucis. Qui aurait la solution??

lermite222 · Answer

je crois que j'ai compris, tu à des ligne de titres dans tes pages.. modifie la macro comme cella..
Si ca ne va pas encore donne moi les noms des feuilles où tu prend les données.
Sub CopieFormat()
Dim i As Integer, e As Integer
Dim Txt As String
Dim T
Dim Cel As Range
Dim R As Long, C As Integer
    Feuil3.Select
    
    Range("A1:A" & Range("A1").SpecialCells(xlCellTypeLastCell).Row).Select
    For Each Cel In Selection
        Txt = Mid(Cel.Formula, 2)
        If Txt <> "" Then
            T = Split(Txt, "!", -1)
            If UBound(T) = 1 Then
                If Right(T(O), 1) = "1" Then
                    Feuil1.Select
                Else
                    Feuil2.Select
                End If
                R = Range(T(1)).Row: C = Range(T(1)).Column
                Range(Cells(R, C), Cells(R, C + 2)).Select
                Selection.Copy
                Feuil3.Select
                Cel.Select
                Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
            End If
        End If
    Next Cel
End Sub
A+

michel_m · Answer

Bonsoir ou bonjourà tous suivant l'heure de lecture

Geeby, 
avec XL<2007
Je te propose de transposer le format de la source dès que tu as saisi la formule dans la zone A1:C1000 ( à adapter à ton pb) de ta feuille de saisie des formules. 

1° etape

tu copies la macro ci dessous:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim depart As String, dest As String

'A1:C1000 à adapter à ton pb
If Intersect(Target, Range("A1:C1000")) Is Nothing Then: Exit Sub
If Target.HasFormula = False Then: Exit Sub

dest = Target.Address
depart = Target.Formula
depart = Right(depart, Len(depart) - 1)

Edit: ci joint tite démo (saisie formule en feuille2)
https://www.cjoint.com/?ghaCc2H3zD 
sur 2 feuilles mais il peut y avoir N feuilles source

Call copierformat(depart, dest)

End Sub

tu fais un clic droit sur le nom de l'onglet (bas de l'écran)et "visualiser le code"

tu colles


2° étape

 tu copies et tu colles dans ce module

Sub copierformat(ByVal source As String, ByVal cible As String)
With Range(cible)
.Interior.ColorIndex = Range(source).Interior.ColorIndex
    With .Font
        .FontStyle = Range(source).Font.FontStyle
        .ColorIndex = Range(source).Font.ColorIndex
    End With
End With
End Sub


Voila, voila

tu retrouves le gras, la couleur de la police et de la cellule quand tu auras écrit la formule et bien sûr validé

N'hésites à demander des précisions ou d'autre transfert de format

Maintenant si tu tiens à déterminer au préalable une zone avec la souris, il y a peu de chose à modifier....

Michel (qui va au dodo, il est minuit et quart)

michel_m · Answer

mais si, on peut, heureusement!...

par contre, sur la message j'ai mis l'édit en plein dans la 1° macro

donc la revolila  nettoyée

Private Sub Worksheet_Change(ByVal Target As Range)
Dim depart As String, dest As String

If Intersect(Target, Range("A1:C1000")) Is Nothing Then: Exit Sub
If Target.HasFormula = False Then: Exit Sub

dest = Target.Address
depart = Target.Formula
depart = Right(depart, Len(depart) - 1)
Call copierformat(depart, dest)

End Sub

et enfin la demo avec 2 feuilles d'appel 
https://www.cjoint.com/?ghiiKQoJIs

Michel

geeby · Answer

Salut, je touche au but. Michel_m, j'obtiens bien la mise en page pour mes cellules et ça c'est cool. Comme tu me le dis pour mon tableau je sélectionne la première cible et ensuite je fait glisser sur les deux colonnes à l'aide de la petite croix noir en bas à droite de la case et ensuite je fais glisser de la même manière sur toutes les lignes dont j'ai besoin... et là erreur d'execution '13' : incompatibilité de type...Je clique sur fin et il faut donc que je sélectionne une par une mes cellules que je valide la formule insérée automatiquement par excel et là j'obtiens la bonne mise en page (c'est déjà cool et faisable avec un clic dans la barre blanche et entrée ainsi de suite...). Pensez vous qu'il est possible de régler ce pb??
Un truc du style sélectionner une cellule, lui appliquer le module que tu as fait et passer aux cellules suivantes...
En tout cas merci beaucoup...

lermite222 · Answer

Bonjour vous deux,
Comme il y a plus dans deux têtes que dans une j'ai adapté les macros en une qui fait tout et sans mnipulation.
Tu colle la macro ci-dessous dans un module
Sub CopieFormat()
Dim i As Integer, e As Integer
Dim Txt As String
Dim T
Dim Cel As Range
Dim R As Long, C As Integer
    sheets("Feuil3").Select
    
    Range("A1:A" & Range("A1").SpecialCells(xlCellTypeLastCell).Row).Select
    For Each Cel In Selection
        If Cel.HasFormula = True Then
            Txt = Mid(Cel.Formula, 2)
            T = Split(Txt, "!", -1)
            Sheets(T(0)).Select
            R = Range(Txt).Row: C = Range(Txt).Column
            Range(Cells(R, C), Cells(R, C + 2)).Select
            Selection.Copy
            sheets("Feuil3").Select
            Cel.Select
            Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
        End If
    Next Cel
End Sub
Juste adapté Feuil3 au nom de ta feuille destination
sheets("Feuil3").Select
Autant de feuilles que tu veux, tu met toutes les formules que tu veux, ligne vide autorisée, titre autorisé etc..
Comme tu dit plus haut, tu copie toujours 3 colonnes, si plus changer le 2 en nombre de colonnes -1
Range(Cells(R, C), Cells(R, C + 2)).Select
Quand ta page est remplie de toute tes adresses, mettre le curseur dans la macro et tape F5, tout est fait en une fois...
Si ca convient tu peu la lier à un bouton d'une barre d'outils.
A+

geeby · Answer

Parfait un grand merci à vous deux... Et félicitation, je vais de même me mettre au vba que je ne connaissais pas ça a l'air bien sympa je vais commencer par essayer de comprendre ce programme
Encore merci...

michel_m · Answer

A la bourre comme d'hab

mais

avec les modifs demandées:

Tu sélectionnes la zone voulue et tu fais un clic droit 

Remplace Worksheets=_change

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim plage As String
Cancel = True
plage = Selection.Address
Call copierformat(plage)
End Sub


Remplace l'ancienne copierformat

Sub copierformat(ByVal cible As String)
Dim depart As String, cellule As Range

Application.ScreenUpdating = False

For Each cellule In Range(cible)
    If cellule.HasFormula Then
        With cellule
            depart = .Formula
            depart = Right(depart, Len(depart) - 1)
            .Interior.ColorIndex = Range(depart).Interior.ColorIndex
            With .Font
                .FontStyle = Range(depart).Font.FontStyle
                .ColorIndex = Range(depart).Font.ColorIndex
            End With
        End With
    End If
Next
Application.ScreenUpdating = True
End Sub


tite démo ci jointe pour le fun

Si tu te mets au VBA, je te conseille vivement ce site
www.info-3000.com

où tu trouveras des tutos très pédagogiques et décontractés 

Bonne découverte

Michel

Excel respect de la mise en page!!

24 réponses

Discussions similaires