Aide pour macro
a
Bonjour le forum
J'ai ajouté un nom supplémentaire TOTO et une couleur 4 de la même colonne J
Mais ça ne veux pas fonctionner
Cordialement
Case 10 ' Colonne J
TbCoul = Array(0, 46,4)
Tb = Array("", "NÉGRIER","TOTO")
Target.Font.ColorIndex = 1 '1 = Couleur police
End Select
Cancel = True
Bonjour,
Un peu de sérieux dans tes demandes.
De quoi parle-t-on ?
Cdlt.
a
Bonjour,
Un peu de sérieux dans tes demandes.
De quoi parle-t-on ?
Cdlt.
Bonjour Jean-Eric
Actuellement j'ai cette macro mais je veux ajouter "TOTO" avec la couleur 4 même colonne J
Cordialement
Case 10 ' Colonne J
TbCoul = Array(0, 46)
Tb = Array("", "NÉGRIER")
Target.Font.ColorIndex = 1 '1 = Couleur police
End Select
Cancel = True
A
bonjour al87, Jean-Eric,
On a l'extrait de code pour Case 10,
Quel est le code pour les autres Case? il pourrait servir d'exemple ?
Même si on comprend à demi-mots le souhait peu précis, l'ensemble de la sub serait sans doute utile.
A+
a
Bonjour AlgoPlus
Voilà jusqu'à End sub
Case 10 ' Colonne J
TbCoul = Array(0, 46)
Tb = Array("", "NÉGRIER")
Target.Font.ColorIndex = 1 '1 = Couleur police
End Select
Cancel = True
X = UCase(Trim(Target))
If UBound(Filter(Tb, X, compare:=vbTextCompare)) >= 0 Then
Indice = Application.Match(X, Tb, 0) Mod (1 + UBound(Tb))
Target = Tb(Indice)
Couleur = TbCoul(Indice)
If Target <> "" And Target.Column = 10 Then Range("D" & Target.Row) = Target 'Pour faire afficher NEGRIER dans colonne D après Double Clic colonne J (10)
If Couleur = 0 Then
Select Case Target.Column
Case 6 ' Colonne F
Couleur = Target.Offset(0, -1).Interior.ColorIndex
Case 7 ' Colonne G
Couleur = Target.Offset(-1, -1).Interior.ColorIndex
Ligne = Target.Row
While Left(Range("A" & Ligne), 5) <> "Série"
Ligne = Ligne - 1
Wend
Set Cel = Range("A3:A8").Find(what:=Range("A" & Ligne), LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Couleur = Cel.Interior.ColorIndex
Range("A" & Target.Row).Resize(1, 6).Interior.ColorIndex = Couleur
Range("B" & Target.Row).Interior.ColorIndex = 3
Range("C" & Target.Row).Interior.ColorIndex = 15
If Range("F" & Target.Row) <> "" Then Range("F" & Target.Row).Interior.ColorIndex = 15
End If
Case 8 ' Colonne H
Couleur = Target.Offset(0, -1).Interior.ColorIndex
Case 10 ' Colonne J
Couleur = Target.Offset(0, -3).Interior.ColorIndex
End Select
End If
ActiveSheet.Unprotect
If Left(Target, 8) = "PAIEMENT" Then
Range("A" & Target.Row & ":I" & Target.Row).Interior.ColorIndex = 26
Range("I" & Target.Row).Interior.ColorIndex = 26
Else
Target.Interior.ColorIndex = Couleur
If Target.Column <> 8 And Target.Column <> 6 And Target.Column <> 10 Then
Range("I" & Target.Row).Interior.ColorIndex = Couleur
End If
End If
ActiveSheet.Protect
Else
Target = ""
End If
End If
End Sub