colorié identiquemnt et automatiquement une cellule remplie de nombre en fct Résolu/Fermé

Question

bonsoir a tous 
je ne trouve pas ma réponse dans les forums
voila 
j'ai une ligne de 5 cellules qui sont remplis de nombres variables et coloriés de 2 couleurs qui peuvent s'inverser
ces nombres peuvent d'une part changer de valeurs et de couleurs(2 le jaune et le bleu) un jour une cellule peut être jaune et le lendemain bleue
je veux reporter sur une ligne identique et bien sûr automatiquement la valeur et la couleur de ces 5 cellules sur une autre ligne
Dans les deux cas elles sont jointive
la ligne d'origine est B72:F72
celle recopiée est    ND3:NH3
je suis preneur soit MFC ou VBA
merci a tous

Frenchie83 · Answer

Bonjour,

Questions: 
-Peut-il y avoir un changement de couleur d'une cellule sans que sa valeur change?
-Ces changements de valeurs et/ou de couleurs, se font-ils manuellement ou bien par formule pour les valeurs et par MFC pour les couleurs, ou bien encore, est-ce une macro qui gère tout ça?

Cdlt

Frenchie83 · Answer

Pour les couleurs, si c'est une MFC qui régit les couleurs, il suffit d'appliquer les mêmes conditions qui s'appliquent aux cellules ND3:NH3 aux cellules B72:F72.
Quant au changement de valeurs, un bout de code VBA à mettre dans le module de la feuille concernée fera l'affaire
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("ND3:NH3")) Is Nothing Then
        Range("ND3:NH3").Copy Range("B72:F72")
    End If
    Application.EnableEvents = True
End Sub

Cdlt

Frenchie83 · Answer

La macro se lance automatiquement au changement de valeur d'une cellule, pour cela il faut que le code VBA soit copié comme dit précédemment dans le module de la feuille, exemple ci-dessous


De plus, suite à votre dernier post, je me suis aperçu que j'avais inversé les lignes, voici la modif
Private Sub Worksheet_Change1(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("B72:F72")) Is Nothing Then
        Range("B72:F72").Copy Range("ND3:NH3")
    End If
    Application.EnableEvents = True
End Sub

Quant à votre nouvelle problématique, il serait intéressant de connaître les formules utilisées pour l'application des MFC pour pouvoir ainsi les récupérer et appliquer les couleurs à la colonne MX

Frenchie83 · Answer

En attendant, voici une solution qui fonctionne en cliquant sur un bouton.

le fichier
https://mon-partage.fr/f/OcC21YSD/

le code dans un module standard en plus du code dans le module de la feuille
Sub Couleurs_et_Valeurs()
    Application.ScreenUpdating = False
    Range("B72:F72").Copy Range("ND3:NH3")
    Range("MX10:MX62").ClearContents
    Range("MX10:MX62").FormatConditions.Delete
    For i = 2 To 6
        Set v = Range("MW10:MW62").Find(Cells(72, i), LookIn:=xlValues, lookat:=xlWhole)
        If Not v Is Nothing Then
            Cells(72, i).Copy Cells(v.Row, "MX")
        End If
    Next i
End Sub

Cdlt

jack2125 · Answer

pour la première c'est super merci
pour la seconde c'est plus compliqué!
j'utilise en MFC =nb.si((.... et j'indique la couleur jaune sachant qu'a l'origine, mes cellules mères sont coloriées manuellement en bleu
mais ou ça se complique que j'ai oublié de mentionné,  
 a chaque fois que je modifie une cellule mère je me décale d'une colonne Je garde en archive toutes les colonnes précédentes avec leurs nombres et couleur
et tous les mois je re parts avec un nouveau tableau…
C'est ma ligne ND3; NH3 qui prends le relais pour le mois en cour
la ligne B72:F72 elle reste fixe
??--
vous êtes super!
merci à tous

Frenchie83 · Answer

Avez-vous essayez ma deuxième proposition avant que je regarde votre nouvelle demande?

Frenchie83 · Answer

Je dois m'absenter, mais la solution idéale et simple de surcroit pour votre dernier problème est de faire une copie de la colonne MX et de la coller dans une autre feuille.

jack2125 · Answer

une idée
pour la MFC sur la colonne ça me fait n'importe quoi
n'a t on la possibilité que dès nos formules MFC pour ND3:NH3 bons N° et bonne couleur ne pourrions pas les intégrer dans la colonne en gardant la bonne couleur?
cordialement

Frenchie83 · Answer

Bonjour,

Voici le fichier avec les modifications suivantes: 
-A chaque clic sur le bouton "Sauvegarder", une copie du tableau de la colonne MX est envoyée dans la feuille 2,  avec conservation de la date en première ligne du jour de la sauvegarde.
-Les couleurs sont reproduites à l'identique MFC ou pas.

le fichier
https://mon-partage.fr/f/IQnMn4iT/

le code utilisé
Dim Shf1 As Worksheet, Shf2 As Worksheet
Dim DerCol_f2 As Long

Sub Couleurs_et_Valeurs()
    Application.ScreenUpdating = False
    Range("B72:F72").Copy Range("ND3:NH3")
    Range("MX10:MX62").ClearContents
    Range("MX10:MX62").FormatConditions.Delete
    For i = 2 To 6
        Set v = Range("MW10:MW62").Find(Cells(72, i), LookIn:=xlValues, lookat:=xlWhole)
        If Not v Is Nothing Then
            Cells(72, i).Copy Cells(v.Row, "MX")
        End If
    Next i
End Sub

Sub Sauvegarde()
    Application.ScreenUpdating = False
    Set Shf1 = Sheets("Feuil1")
    Set Shf2 = Sheets("Feuil2")
    DerCol_f2 = Shf2.[XFD1].End(xlToLeft).Column + 1
    Shf1.Range("MX10:MX62").Copy Shf2.Cells(2, DerCol_f2)
    Shf2.Cells(1, DerCol_f2) = Date
    RecupCouleur
    Shf2.Select
End Sub

Sub RecupCouleur()
    Dim FC As FormatCondition, F1 As Variant
    Dim C As Range
    
    Shf1.Select
    For i = 10 To 62
        Set C = Cells.Find(Empty)
        For Each FC In Shf1.Cells(i, "MX").FormatConditions
            C.FormulaLocal = FC.Formula1: F1 = C
            F1 = C
            If F1 Then Exit For
        Next FC
        If Not FC Is Nothing Then Couleur = FC.Interior.Color Else: Couleur = Shf1.Cells(i, "MX").Interior.Color
        Shf2.Cells(i - 8, DerCol_f2).Interior.Color = Couleur
        C.Clear
    Next i
End Sub

Cdlt

Colorié identiquemnt et automatiquement une cellule remplie de nombre en fct

9 réponses

Discussions similaires