XL 2019 Remplissage automatique

decojmax · 29 Mars 2021

Bonjour,

je cherche comment remplir automatiquement la couleur d'une cellule.
dans le fichier joint, les colonnes I, J et K se remplissent automatiquement avec une fonction SI.
De plus, si la cellule contient "Non", elle se noircit avec une règle.
Comment faire pour que lorsque les cellules des colonnes I J K reprennent une valeur des colonnes E F G, et qu'elle n'aura pas "Non", elle se recopie avec la même couleur de remplissage que dans E F G?
Merci pour votre aide.

Jean-maxime

djidji59430 · 29 Mars 2021

Bonjour à tous,

Qu'est ce qui détermine les couleurs dans les colonnes E F G ?
G6 n'est jaune par hasard !!

Crdlmt

decojmax · 29 Mars 2021

djidji59430 à dit:
Bonjour à tous,

Qu'est ce qui détermine les couleurs dans les colonnes E F G ?
G6 n'est jaune par hasard !!

Crdlmt

Bonjour et merci de prendre le temps de me répondre.
C'est moi qui détermine et colorise les cellules en colonnes EFG.
Ce que je souhaite, c'est que ce remplissage de couleur se reproduise dans les colonnes IJK si la valeur de la cellule y est reproduite.
En fait, comment avec la fonction SI, reproduire la valeur et la mise en forme d'une cellule.

Merci encore

Cordialement

djidji59430 · 29 Mars 2021

Dans ce cas la, ça se fait en vba (et pas par moi !)

Crdlmt

JNP · 5 Avril 2021

Pas sur d'avoir tout compris, à tester

VB:

Sub test()
Dim I As Integer, J As Integer
For I = 1 To 22
For J = 1 To 3
If Cells(I, 4 + J) = Cells(I, 8 + J) Then
Cells(I, 8 + J).Interior.Color = Cells(I, 4 + J).Interior.Color
End If
Next J
Next I
End Sub

mapomme · 6 Avril 2021

Bonsoir à tous ,

Pour ce que j'en ai compris...

Attention! Un changement de couleur (dans les colonnes E à G) ne provoque aucun évènement qu'on peut intercepter. Il faut donc veiller à exécuter la macro (par le bouton Hop!) si on change des couleurs.

Le code est dans le module de la feuille "Feuil1":

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   coloriage
End Sub

Sub coloriage()
   On Error GoTo FIN: Application.ScreenUpdating = False: Application.EnableEvents = False
   Range(Range("e1"), Range("g1").End(xlDown)).Copy
   Range("i1").PasteSpecial xlPasteFormats
   With Selection.FormatConditions
      .Delete
      .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Non"""
       Selection.FormatConditions(1).Interior.Color = vbBlack
   End With
FIN: Application.CutCopyMode = False: Application.EnableEvents = True
End Sub

XL 2019 Remplissage automatique

decojmax

XLDnaute Nouveau

Pièces jointes

djidji59430

XLDnaute Barbatruc

decojmax

XLDnaute Nouveau

djidji59430

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires