Microsoft 365 Probléme VBA

jalaba · Mardi à 14:57

Bonjour,
Je dois créer un tableau d'enregistrement des non conformité et j'aimerais créer des bouton avec vba en colonne t:10,u :10 et v 10 (1 vert,2 orange,3 rouge)
J'ai enregistré cette vba mais elle ne fonctionne pas .
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim RangeToCheck As Range
Set RangeToCheck = Range("T10:V10")
If Not Intersect(Target, RangeToCheck) Is Nothing Then
Application.EnableEvents = False
For Each Cell In Intersect(Target, RangeToCheck)
Select Case Cell.Value
Case 1
Cell.Interior.Color = RGB(0, 176, 80)
Case 2
Cell.Interior.Color = RGB(255, 165, 0)
Case 3
Cell.Interior.Color = RGB(255, 0, 0)
Case Else
Cell.Interior.ColorIndex = xlNone
End Select
Next Cell
Application.EnableEvents = True
End If
End Sub
Autre chose j'aimerai créé une feuille avec des graphique par client mais je n'y arrive pas merci pour votre aide

sylvanu · Mardi à 15:25

Bonjour Jalaba,
Utilisez la balise pour le code ( à droite de GIF ) c'est plus clair.
Ensuite expliquez ce que vous voulez faire, sinon vous aurez une réponse au pif. Comme celle ci :
Je suppose que si on clique sur 1,2 ou 3 on efface les couleurs des trois et on met la couleur sur la cellule cliquée ?
Si c'est ça, un essai en PJ avec :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [T10:V352]) Is Nothing Then
        L = Target.Row: C = Target.Column
        Range("T" & L & ":V" & L).Interior.Color = xlNone
        Select Case C
            Case 20: Cells(L, C).Interior.Color = RGB(0, 176, 80)
            Case 21: Cells(L, C).Interior.Color = RGB(255, 165, 0)
            Case 22: Cells(L, C).Interior.Color = RGB(255, 0, 0)
        End Select
    End If
Fin:
End Sub

jalaba · Mardi à 16:09

sylvanu à dit:
Bonjour Jalaba,
Utilisez la balise pour le code ( à droite de GIF ) c'est plus clair.
Ensuite expliquez ce que vous voulez faire, sinon vous aurez une réponse au pif. Comme celle ci :
Je suppose que si on clique sur 1,2 ou 3 on efface les couleurs des trois et on met la couleur sur la cellule cliquée ?
Si c'est ça, un essai en PJ avec :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo Fin If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [T10:V352]) Is Nothing Then L = Target.Row: C = Target.Column Range("T" & L & ":V" & L).Interior.Color = xlNone Select Case C Case 20: Cells(L, C).Interior.Color = RGB(0, 176, 80) Case 21: Cells(L, C).Interior.Color = RGB(255, 165, 0) Case 22: Cells(L, C).Interior.Color = RGB(255, 0, 0) End Select End If Fin: End Sub

Merci beaucoup

jalaba · Mardi à 16:38

sylvanu à dit:
Bonjour Jalaba,
Utilisez la balise pour le code ( à droite de GIF ) c'est plus clair.
Ensuite expliquez ce que vous voulez faire, sinon vous aurez une réponse au pif. Comme celle ci :
Je suppose que si on clique sur 1,2 ou 3 on efface les couleurs des trois et on met la couleur sur la cellule cliquée ?
Si c'est ça, un essai en PJ avec :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo Fin If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [T10:V352]) Is Nothing Then L = Target.Row: C = Target.Column Range("T" & L & ":V" & L).Interior.Color = xlNone Select Case C Case 20: Cells(L, C).Interior.Color = RGB(0, 176, 80) Case 21: Cells(L, C).Interior.Color = RGB(255, 165, 0) Case 22: Cells(L, C).Interior.Color = RGB(255, 0, 0) End Select End If Fin: End Sub

merci

sylvanu · Mardi à 16:43

jalaba à dit:
merci

Oui, mais encore ? Ca correspond à votre besoin ?

jalaba · Mardi à 19:32

sylvanu à dit:
Oui, mais encore ? Ca correspond à votre besoin ?

Oui absolument

Microsoft 365 Probléme VBA

jalaba

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

jalaba

XLDnaute Nouveau

jalaba

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

jalaba

XLDnaute Nouveau

Discussions similaires