XL 2016 macros et MFC lentes

[halecs93]

Bonjour,

J'ai "bricolé" quelques formules sur ma feuille excel.

Il s'agit de colorer des cellules en fonction de leur contenu et/ou d'automatiser un contenu en fonction de leur couleur.

J'ai l'impression que les temps de calcul sont extrêmement longs.

Peut-être une autre approche ?

Un grand merci

 

[halecs93]

Peut-être ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim plage As Range, cell As Range

    ' Définir la plage de cellules à surveiller sur la feuille active
    Set plage = Intersect(Target, Me.Range("C5:Y35"))

    ' Vérifier si la plage de cellules sélectionnée est dans la plage spécifiée
    If plage Is Nothing Then Exit Sub

    Application.EnableEvents = False

    ' Parcourir chaque cellule de la plage
    For Each cell In plage
        Select Case cell.Interior.Color
        Case RGB(255, 255, 0)   ' Jaune
            cell.Value = "MB"
        Case RGB(146, 208, 80)  ' Vert
            cell.Value = "RG"
        Case RGB(0, 176, 240)   ' Bleu
            cell.Value = "SP"
        Case RGB(247, 150, 70)  ' Orange
            cell.Value = "SC"
        Case RGB(218, 150, 148) ' Chaire
            cell.Value = "MN"
        Case RGB(192, 0, 0)     ' Rouge 1
            cell.Value = "MG"
        Case RGB(150, 54, 52)   ' Rouge 2
            cell.Value = "MP"
        End Select
    Next cell

    Application.EnableEvents = True

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim plage As Range, cell As Range

    ' Définir la plage de cellules à surveiller sur la feuille active
    Set plage = Intersect(Target, Me.Range("C5:Y35"))

    ' Vérifier si les cellules modifiées sont dans la plage spécifiée
    If plage Is Nothing Then Exit Sub

    Application.EnableEvents = False ' Désactiver temporairement les événements pour éviter une boucle infinie

    ' Parcourir chaque cellule modifiée
    For Each cell In plage
        ' Si la cellule est maintenant vide, effacer la couleur de fond
        If cell.Value = "" Then
            cell.Interior.ColorIndex = xlNone
        Else
            ' Mettre à jour la couleur de fond en fonction de la valeur de la cellule
            Select Case cell.Value
            Case "MB"
                cell.Interior.Color = RGB(255, 255, 0) ' Jaune
            Case "RG"
                cell.Interior.Color = RGB(146, 208, 80) ' Vert
            Case "SP"
                cell.Interior.Color = RGB(0, 176, 240) ' Bleu
            Case "SC"
                cell.Interior.Color = RGB(247, 150, 70) ' Orange
            Case "MN"
                cell.Interior.Color = RGB(218, 150, 148) ' Chaire
            Case "MG"
                cell.Interior.Color = RGB(192, 0, 0) ' Rouge
            Case "MP"
                cell.Interior.Color = RGB(150, 54, 52) ' Rouge_2
            Case Else
                ' Réinitialiser la couleur de fond si la valeur n'est pas reconnue
                cell.Interior.ColorIndex = xlNone
            End Select
        End If
    Next cell

    Application.EnableEvents = True ' Réactiver les événements

End Sub

J'ai toujours le même souci...lorsque je colorie une ou des cellules en jaune... rien ne s'inscrit dedans...je suis obligé de recliquer à nouveau dessus pour que s'affiche MB

 

[TooFatBoy]

Non, c'est trop compliqué pour moi !

 

[TooFatBoy]

J'ai toujours le même souci...lorsque je colorie une ou des cellules en jaune... rien ne s'inscrit dedans...je suis obligé de recliquer à nouveau dessus pour que s'affiche MB

Ca me parait normal : aucun événement n'est déclenché lorsqu'on change la couleur de fond d'une cellule, me semble-t-il.

 

[TooFatBoy]

Ca me semble compliqué de faire fonctionner ton truc dans les deux sens.

Par exemple, si dans une cellule jaune j'écrit "RG". On fait quoi ???
- On remplace "RG" par "MB" parce que le fond est jaune ?
- On met le fond en vert parce qu'il y a écrit "RG" ?

 

[halecs93]

Ca me semble compliqué de faire fonctionner ton truc dans les deux sens.

Par exemple, si dans une cellule jaune j'écrit "RG". On fait quoi ???
- On remplace "RG" par "MB" parce que le fond est jaune ?
- On met le fond en vert parce qu'il y a écrit "RG" ?

Je risque de rester avec l'option couleur = MB (ou autre)

 

[TooFatBoy]

Je risque de rester avec l'option couleur = MB (ou autre)

Franchement, vu de chez moi, c'est le bazar ton truc.

Et si tu colores en jaune clair, ce sont les congés annuels de qui ???
[edit] Ah... je crois que j'ai compris : ce sera dans les colonnes C à F. [/edit]

 

[TooFatBoy]

Est-ce que ton classeur te semble moins lent ?

 

[TooFatBoy]

Ca me semble compliqué de faire fonctionner ton truc dans les deux sens.

Par exemple, si dans une cellule jaune j'écrit "RG". On fait quoi ???
- On remplace "RG" par "MB" parce que le fond est jaune ?
- On met le fond en vert parce qu'il y a écrit "RG" ?

Je risque de rester avec l'option couleur = MB (ou autre)

Est-ce que ce ne serait pas plus simple de choisir une mise en forme (MB sur fond jaune, RG sur fond vert, etc.) dans un menu ?

 

[halecs93]

Est-ce que ce ne serait pas plus simple de choisir une mise en forme (MB sur fond jaune, RG sur fond vert, etc.) dans un menu ?

Hello... en fait, ça commence à fonctionner.... et j'avoue avoir ouvert un autre fil de discussion pour aller encore plus loin dans les possibilités d'utilisation de l'utilisateur

 

[TooFatBoy]

j'avoue avoir ouvert un autre fil de discussion pour aller encore plus loin dans les possibilités d'utilisation de l'utilisateur

Donc un menu de choix de mise en forme ne convient pas ?

---

Et malgré les propositions, le classeur n'est pas moins lent ?

 

[halecs93]

Donc un menu de choix de mise en forme ne convient pas ?

---

Et malgré les propositions, le classeur n'est pas moins lent ?

A force, je me demande si ce n'est pas ma machine..... mais bon, j'avoue que tout ne se fait pas instantanément. Je mets mon fichier "en cours" si vous voulez le tester.

 

[TooFatBoy]

Ton classeur de #1 était un peu lent chez moi (PC de 15 ans...), mais après avoir limité les macros aux cellules sélectionnées au lieu du tableau complet, ça semblait aller mieux.