XL 2016 macros et MFC lentes

TooFatBoy à dit:

Peut-être ça :

VB:

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

VB:

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

Cliquez pour agrandir...

halecs93 à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

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" ?

Cliquez pour agrandir...

halecs93 à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

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" ?

Cliquez pour agrandir...

halecs93 à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

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 ?

Cliquez pour agrandir...

halecs93 à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

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

---

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

Cliquez pour agrandir...