Doucle clique couleur dans cellule (plus que 3 couleurs)

Bonjour à tous,

Je ne parviens pas à choisir plus de trois couleurs (en doucle cliquant dans une cellule) avec ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim couleurs()

couleurs = Array(RGB(257, 217, 102), RGB(255, 153, 153), RGB(91, 155, 213))

On Error GoTo color

Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 3)

Cancel = True

Exit Sub

color:

Target.Interior.color = couleurs(0)

Cancel = True

End Sub

'ce que je voudrais reéllement c'est :

- couleurs = Array(RGB(257, 217, 102), RGB(255, 153, 153), RGB(91, 155, 213), RGB(0, 153, 153), RGB(255,255,255)

quelqu'un aurait-il une idée du pourquoi cela bloque ? peut-etre que "array" ne signifie qu'un choix ne peut-etre que de trois..

(oui je suis nulle en VBA.. )

merci d'avance,

et bonne journée,

Bonjour lolopixx, bonjour le forum,

Si tu remplaces la variable couleurs du code par la tienne c'est MOD 3 qui te restreint... Essaie :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim couleurs()
couleurs = Array(RGB(257, 217, 102), RGB(255, 153, 153), RGB(91, 155, 213), RGB(0, 153, 153), RGB(255, 255, 255))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 5)
Cancel = True
Exit Sub
color:
Target.Interior.color = couleurs(0)
Cancel = True
End Sub

ThauThème bonjour,

Merci beaucoup

Je vais continuer mes cours VBA...