Aide pour macro

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.

Jean-Eric a écrit :

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

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+

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