Microsoft 365 Plusieurs conditions tenant compte d'un Plafond (VBA)

[pat66]

Bonjour le forum,

voilà j'ai du mal à rédiger cette macro qui contient une suite de conditions dépendant d'un plafond mais avec 2 exceptions
La macro fonctionne bien, mais malheureusement je n'arrive pas à paramétrer les 2 exceptions

Pour être plus explicite, je joints un fichier explicatif

Merci pour le coup de main

cdt

 

[vgendron]

Faudrait arreter de multiplier les posts pour la meme chose !

P

Microsoft 365 Discussion 'Validation des données avec VBA'

7 Avril 2025

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

• pat66
• Réponses: 16
• Forum: Forum Excel

 

[pat66]

re,

je ne voulais pas vous déranger car n'ayant pas répondu à mon dernier post, j'ai pensé que vous étiez occupé ou que mon problème était mal explicité, donc j'ai simplement reformuler ma demande sous une autre forme en écoutant vos conseils car comme vous me l'avez dit, ajouter une validation n'a aucun intérêt, tout simplement, vous comprenez mieux ? car mon problème n'est toujours pas résolu

 

[wDog66]

Salut pat66

Une idée : il est parfois plus simple de créer chaque conditions et exceptions dans des colonnes annexes et de toutes les additionner
On teste alors le résultat de l'addition 😉

 

[pat66]

Bonjour le forum
Bonjour le fil
salut wDog66,

merci pour ton conseil et ta bienveillance tu as certainement raison, mais j'avais juste besoin que dans une cellule chaque clic saisisse ,1,2 ou 0 en tenant compte d'une autre cellule. Le problème c'est que j'ai mal expliqué mon cas, je vais devoir trouver une autre solution, oui peut être avec un tableau avec RechercheX, je vais y réfléchir.......

merci et belle journée

 

[Dranreb]

Bonjour.
Si C12>2, le cycle doit s'étendre jusqu'à sa valeur ou doit se limiter quand même à 2 ?

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

S'il doit quand même se limiter jusqu'à 2 :

Sub Ellipse1_Cliquer()
   Dim N As Integer
   N = Range("C12").Value + 1: If N > 3 Then N = 3
   N = (Range("C14").Value + 1) Mod N
   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,

vous avez encore amélioré votre solution car c'est vrai qu'il peut arriver que C12 soit > 2, mais il faut qu'il reste plafonné à 2 , alors que dire sinon que votre expertise est égale à votre générosité

un grand merci pour votre aide

cdt