garder une mise en forme avec vbaRésolu

Question

salut &#224; tous,
j'ai un petit pb, je voudrais conserver la mise en forme (surtout la couleur) de cellules d'une base de donn&#233;es vers un autre tableau.
Je sais pas si c'est possible.
Sinon est-ce que c'est possible de mettre les lignes d'un tableau dans une certaine couleur si une des cellules de cette ligne vaut une certaine valeur?
Merci d'avance. 
Et si je suis pas clair, h&#233;sitez pas &#224; me demander des pr&#233;cisions parce que je d&#233;bute en vba.

Emmanuel.

Starec · Accepted Answer

Merci de pr&#233;ciser si c'est du vba sous Access (car tu parles de Base de Donn&#233;e) ou sous Excell.

cs_emmanuel15 · Answer

C'est sous excel.
Donc en effet c'est pas une base de donn&#233;es (sorry mais j'ai pas le vocabulaire
appropi&#233;...je suis d&#233;butant).
C'est un fichier excel o&#249; sont stock&#233; plein d'infos sur des personnes.

En fait je dois creer des organigrammes (en gros des tableaux) &#224; partir de ce fichier excel.
Je dois donc faire en sorte que dans ces organigrammes, s'affichent des info s&#233;lectionn&#233;es de  mon fichier principal, ainsi que garder la mise en forme couleur.
En plus, si c'est possible, je voudrais savoir comment si une ligne de mon fichier principal correspond &#224; une certaine valeur qui serait mise en valeur par une couleur, je 
pourrait mettre toute la ligne de la meme couleur automatiquement.

Merci d'avance.
Emmanuel

jpleroisse · Answer

En modifiant un peu cette macro, tu dois pouvoir arriver &#224; faire ce que tu veux.
Pour l'essayer, mets la cellule C3 de la Feuil1 en jaune et l'une ou l'autre entre C3 et D8 d' une autre couleur et lance la macro.

Sub Copier()
    Range("C4:D8").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A9").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        If Range("C3").Interior.ColorIndex = 6 Then
        End If
        Rows("11:11").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
     Application.CutCopyMode = False
    
End Sub

jpleroisse

jpleroisse · Answer

Excuse, mais erreur dans la macro

Sub Copier()
Sheets(1).Select
    Range("C4:D8").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A9").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
      If Range("B11").Interior.ColorIndex = 6 Then
        Rows("11:11").Select


   With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    End If
     Application.CutCopyMode = False
    
End Sub

cs_emmanuel15 · Answer

Merci,
j'ai essay&#233; et ca s&#233;lectionne les cellules C4:D8 et je peux les coller avec la mise en forme couleur.
Mais ce qui me simplifierait pas mal les choses ce serait un code dans chacun de mes tableaux annexes, qui irait chercher les info ainsi que la mise en forme de ma base de donn&#233;es, pour qu'avec une boucle il retranspose tout  super rapidemment.
Je sais pas si ce que tu m'a donn&#233; ca permet de faire ce que je viens d'&#233;crire
 (soit indulgent ;-)), si cest le cas, peux tu m'expliquer comment l'appliquer parce que pour le moment je vois pas le bout...
@+

Emmanuel

Garder une mise en forme avec vba

5 réponses

Discussions similaires