reprendre la mise en forme de la cellule juste au dessus

[maxwellou]

Bonjour,

Je me permets de vous solliciter sur le sujet de la "mise en forme"

J'aimerai savoir s'il est possible (avec ou sans macro) de reproduire la même mise en forme d'une cellule juste au dessus de celle où une saisie vient d'avoir lieu ?

Par exemple.

en A1 (présence d'une donnée) police arial-taille 10-couleur bleu

en B1, on saisie une nouvelle donnée, à la validation de l'entrée, j'aimerai que la mise en forme de l'A1 se reproduise dans B1.

Cela est-il possible d'après vous ? Si oui auriez vous du code VBA ou la fonction Excel qui me permet de le faire svp ?

Merci de votre aide

Gabriel

 

[DoubleZero]

Re : reprendre la mise en forme de la cellule juste au dessus

Bonjour, maxwellou, le Forum,

... reproduire la même mise en forme d'une cellule juste au dessus de celle où une saisie vient d'avoir lieu ?

en A1 (présence d'une donnée) police arial-taille 10-couleur bleu

en B1, on saisie une nouvelle donnée, à la validation de l'entrée, j'aimerai que la mise en forme de l'A1 se reproduise dans B1...

Bien que j'aie des doutes - B1 n'est pas sous A1 mais à côté - une suggestion en pièce jointe.

A bientôt

 

[maxwellou]

Re : reprendre la mise en forme de la cellule juste au dessus

Désolé de cette réponse tardive...Merci beaucoup pour ton aide.


MF = Mise en Forme


Alors oui en effet, je voulais dire A1 et A2 (recopie de la MF)

En fait, ton code ne réponds ne réponds pas complètement à ce que je souhaitais. Mais mille mercis pour ton aide.

Pour expliquer de façon plus détaillée:

Le code doit permettre de recopier la mise en forme de la cellule juste au dessus de la cellule où il y a une nouvelle saisie.

J'ai pris pour exemple A1 ou A2 mais ça peut aussi être en plein milieu de l'onglet Mais ce qui compte c'est qu'il reprenne toujours la MF de l'ongle juste au dessus. Par exemple saisie en G65 alors recopie MF de G64.

j'ai peur que cela ne soit pas possible. :/

Mais dès fois Excel le fait automatiquement pour les colonnes, je sais pas comment il fait ça d'ailleurs ! quand je saisie une nouvelle donnée à droite d'une colonne, alors la cellule où j'ai tapé la nouvelle données se transforme en MF identitique à la cellule toute de suite à sa gauche.

 

[13GIBE59]

Re : reprendre la mise en forme de la cellule juste au dessus

Bonjour tout le monde,

Une demi réponse : touche F4 reproduit la dernière mise en forme (couleur de fond ou couleur de police ou choix police)
Ca peut servir.

 

[maxwellou]

Re : reprendre la mise en forme de la cellule juste au dessus

Merci...

Mais malheureusement cette solution ne réponds pas à mon besoin :/

Amicalement

 

[job75]

Re : reprendre la mise en forme de la cellule juste au dessus

Bonjour à tous,

En reprenant le fichier de notre chère ânesse :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
Dim mem
mem = Target(1)
Application.EnableEvents = False
Target(0, 1).Copy Target(1)
Target(1) = mem
Application.EnableEvents = True
End Sub

A+

 

[maxwellou]

Re : reprendre la mise en forme de la cellule juste au dessus

Ca fonctionne trop bien !

Merci beaucoup

Bonjour à tous,

En reprenant le fichier de notre chère ânesse :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
Dim mem
mem = Target(1)
Application.EnableEvents = False
Target(0, 1).Copy Target(1)
Target(1) = mem
Application.EnableEvents = True
End Sub

A+

 

[DoubleZero]

Re : reprendre la mise en forme de la cellule juste au dessus

Bonjour, maxwellou, 13GIBE59 , job75 , le Forum,

Une autre façon d'agir... moins élégante que celle de job75 :

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Row < 2 Then Exit Sub
    Application.EnableEvents = False
    If Not c Is Nothing Then
        With c: .Offset(-1, 0).Copy: .PasteSpecial Paste:=xlPasteFormats: .Offset(1, 0).Select: End With
    End If
    With Application: .EnableEvents = True: .CutCopyMode = False: End With
End Sub

A bientôt