Bonjour à tous ;
Voilà j’aurais voulu savoir si y avait possibilité de changer le code
ci-dessous que j’ai trouver dans le new groupe pour augmenter mes (MFC) sa
condition pour que sa fonctionne c’est que sa soit des chiffres et moi
j’aurais souhaiter utiliser des lettres « A, B, C, D etc »
Salutations
________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
'Définir la plage qui est soumis
'à une mise en forme particulière
Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then
For Each C In Rg
Select Case C.Value
'Ma condition pour le test est
'si la valeur de la cellule est égale
'à ou 1 - 2 - 3 - 4
Case 1
C.Interior.ColorIndex = 3
Case 2
C.Interior.ColorIndex = 8
Case 3
C.Interior.ColorIndex = 15
Case 4
C.Interior.ColorIndex = 30
Case Else
C.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
cousinhub
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then For Each cell In Rg Select Case cell.Value Case "A" cell.Interior.ColorIndex = 3 Case "B" cell.Interior.ColorIndex = 8 Case "C" cell.Interior.ColorIndex = 15 Case "D" cell.Interior.ColorIndex = 30 Case Else cell.Interior.ColorIndex = xlNone End Select Next End If End Sub
Bon courage
Bonjour à tous ; Voilà j’aurais voulu savoir si y avait possibilité de changer le code ci-dessous que j’ai trouver dans le new groupe pour augmenter mes (MFC) sa condition pour que sa fonctionne c’est que sa soit des chiffres et moi j’aurais souhaiter utiliser des lettres « A, B, C, D etc » Salutations ________________________________________ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range 'Définir la plage qui est soumis 'à une mise en forme particulière Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then For Each C In Rg Select Case C.Value 'Ma condition pour le test est 'si la valeur de la cellule est égale 'à ou 1 - 2 - 3 - 4 Case 1 C.Interior.ColorIndex = 3 Case 2 C.Interior.ColorIndex = 8 Case 3 C.Interior.ColorIndex = 15 Case 4 C.Interior.ColorIndex = 30 Case Else C.Interior.ColorIndex = xlNone End Select Next End If End Sub
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then
For Each cell In Rg
Select Case cell.Value
Case "A"
cell.Interior.ColorIndex = 3
Case "B"
cell.Interior.ColorIndex = 8
Case "C"
cell.Interior.ColorIndex = 15
Case "D"
cell.Interior.ColorIndex = 30
Case Else
cell.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub
Bon courage
Bonjour à tous ;
Voilà j’aurais voulu savoir si y avait possibilité de changer le code
ci-dessous que j’ai trouver dans le new groupe pour augmenter mes (MFC) sa
condition pour que sa fonctionne c’est que sa soit des chiffres et moi
j’aurais souhaiter utiliser des lettres « A, B, C, D etc »
Salutations
________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
'Définir la plage qui est soumis
'à une mise en forme particulière
Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then
For Each C In Rg
Select Case C.Value
'Ma condition pour le test est
'si la valeur de la cellule est égale
'à ou 1 - 2 - 3 - 4
Case 1
C.Interior.ColorIndex = 3
Case 2
C.Interior.ColorIndex = 8
Case 3
C.Interior.ColorIndex = 15
Case 4
C.Interior.ColorIndex = 30
Case Else
C.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then For Each cell In Rg Select Case cell.Value Case "A" cell.Interior.ColorIndex = 3 Case "B" cell.Interior.ColorIndex = 8 Case "C" cell.Interior.ColorIndex = 15 Case "D" cell.Interior.ColorIndex = 30 Case Else cell.Interior.ColorIndex = xlNone End Select Next End If End Sub
Bon courage
Bonjour à tous ; Voilà j’aurais voulu savoir si y avait possibilité de changer le code ci-dessous que j’ai trouver dans le new groupe pour augmenter mes (MFC) sa condition pour que sa fonctionne c’est que sa soit des chiffres et moi j’aurais souhaiter utiliser des lettres « A, B, C, D etc » Salutations ________________________________________ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range 'Définir la plage qui est soumis 'à une mise en forme particulière Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then For Each C In Rg Select Case C.Value 'Ma condition pour le test est 'si la valeur de la cellule est égale 'à ou 1 - 2 - 3 - 4 Case 1 C.Interior.ColorIndex = 3 Case 2 C.Interior.ColorIndex = 8 Case 3 C.Interior.ColorIndex = 15 Case 4 C.Interior.ColorIndex = 30 Case Else C.Interior.ColorIndex = xlNone End Select Next End If End Sub
Tibert
Bonjour "cousinhub; Merci pour ton aide c'était exactement sa que je voulais, maintenant je vais pouvoir bien avancé dans mon planning. Salutations
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then For Each cell In Rg Select Case cell.Value Case "A" cell.Interior.ColorIndex = 3 Case "B" cell.Interior.ColorIndex = 8 Case "C" cell.Interior.ColorIndex = 15 Case "D" cell.Interior.ColorIndex = 30 Case Else cell.Interior.ColorIndex = xlNone End Select Next End If End Sub
Bon courage
Bonjour à tous ; Voilà j’aurais voulu savoir si y avait possibilité de changer le code ci-dessous que j’ai trouver dans le new groupe pour augmenter mes (MFC) sa condition pour que sa fonctionne c’est que sa soit des chiffres et moi j’aurais souhaiter utiliser des lettres « A, B, C, D etc » Salutations ________________________________________ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range 'Définir la plage qui est soumis 'à une mise en forme particulière Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then For Each C In Rg Select Case C.Value 'Ma condition pour le test est 'si la valeur de la cellule est égale 'à ou 1 - 2 - 3 - 4 Case 1 C.Interior.ColorIndex = 3 Case 2 C.Interior.ColorIndex = 8 Case 3 C.Interior.ColorIndex = 15 Case 4 C.Interior.ColorIndex = 30 Case Else C.Interior.ColorIndex = xlNone End Select Next End If End Sub
Bonjour "cousinhub;
Merci pour ton aide c'était exactement sa que je voulais, maintenant je vais
pouvoir bien avancé dans mon planning.
Salutations
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then
For Each cell In Rg
Select Case cell.Value
Case "A"
cell.Interior.ColorIndex = 3
Case "B"
cell.Interior.ColorIndex = 8
Case "C"
cell.Interior.ColorIndex = 15
Case "D"
cell.Interior.ColorIndex = 30
Case Else
cell.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub
Bon courage
Bonjour à tous ;
Voilà j’aurais voulu savoir si y avait possibilité de changer le code
ci-dessous que j’ai trouver dans le new groupe pour augmenter mes (MFC) sa
condition pour que sa fonctionne c’est que sa soit des chiffres et moi
j’aurais souhaiter utiliser des lettres « A, B, C, D etc »
Salutations
________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
'Définir la plage qui est soumis
'à une mise en forme particulière
Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then
For Each C In Rg
Select Case C.Value
'Ma condition pour le test est
'si la valeur de la cellule est égale
'à ou 1 - 2 - 3 - 4
Case 1
C.Interior.ColorIndex = 3
Case 2
C.Interior.ColorIndex = 8
Case 3
C.Interior.ColorIndex = 15
Case 4
C.Interior.ColorIndex = 30
Case Else
C.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub
Bonjour "cousinhub; Merci pour ton aide c'était exactement sa que je voulais, maintenant je vais pouvoir bien avancé dans mon planning. Salutations
Bonsoir,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then For Each cell In Rg Select Case cell.Value Case "A" cell.Interior.ColorIndex = 3 Case "B" cell.Interior.ColorIndex = 8 Case "C" cell.Interior.ColorIndex = 15 Case "D" cell.Interior.ColorIndex = 30 Case Else cell.Interior.ColorIndex = xlNone End Select Next End If End Sub
Bon courage
Bonjour à tous ; Voilà j’aurais voulu savoir si y avait possibilité de changer le code ci-dessous que j’ai trouver dans le new groupe pour augmenter mes (MFC) sa condition pour que sa fonctionne c’est que sa soit des chiffres et moi j’aurais souhaiter utiliser des lettres « A, B, C, D etc » Salutations ________________________________________ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range 'Définir la plage qui est soumis 'à une mise en forme particulière Set Rg = Intersect(Target, Range("B10:CM69"))
If Not Rg Is Nothing Then For Each C In Rg Select Case C.Value 'Ma condition pour le test est 'si la valeur de la cellule est égale 'à ou 1 - 2 - 3 - 4 Case 1 C.Interior.ColorIndex = 3 Case 2 C.Interior.ColorIndex = 8 Case 3 C.Interior.ColorIndex = 15 Case 4 C.Interior.ColorIndex = 30 Case Else C.Interior.ColorIndex = xlNone End Select Next End If End Sub
