Microsoft 365 Validation des données avec VBA

[pat66]

Bonjour le forum,

merci pour votre aide,

j'aimerai pouvoir remplacer Formula2:=[C12] par Formula2:="MIN[C12;2]" car je souhaite plafonner à 2 la saisie dans C14,
j'ai essayé bien des solutions mais sans trouver la bonne, quelqu'un aurait-il une idée ?

With Range("C14").Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="0", Formula2:=[C12]
End With

merci beaucoup

 

[Dranreb]

Bonjour.
Et ça, ça donnerait quoi ? :

Sub Ellipse1_Cliquer()
   Dim N As Integer
   N = (Range("C14").Value + 1) Mod (Range("C12").Value + 1)
   Range("C14") = N
   ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor.RGB = Array(RGB(0, 32, 96), RGB(51, 51, 200), RGB(0, 153, 153))(N)
   End Sub

 

[pat66]

Bonjour Dranreb,
ça donne que c'est magnifique !! car cela solutionne mon problème !!!!

merci beaucoup pour votre générosité et votre expertise

cdt