Ajouter des contraintes

Bonjour,

Je créée ce topic puisque l'ancien titre est faux. Enfaite je voudrais pouvoir limiter entre 10 et 25 ans les emprunts donc entre 120 et 300 périodes max. Comment ajouter cette condition dans ma macro ?

Je voudrais qu'à la question de mon algo : " quel est le nombre de période" on ne puisse pas mettre inférieur à 120 ou supérieur à 300. Ou alors limiter la case B5 je ne sais pas ce que vous en pensez ? Ce que vous feriez ?

Merci beaucoup pour votre aide précieuse.

Bonjour Mathieu97,

Pourquoi vouloir utiliser du VBA pour ça

Alors qu'il suffit d'ajouter une validation de donnée à ta cellule

@+

Hmm d’accord mais c’est dans le cadre d’un exercice je me demande comment le faire sous la forme d’algorithme, comment l’implémenter dans mon code

Re,

Dans ton code quel code

Dans le code vba que j’ai fait pour automatiser le tableau

Re,

Ah oui effectivement dans la feuille elle même

Pourquoi avoir créer des modules alors et mettre dans le code "Feuil1."

Un petit tour à faire ici : https://www.excel-pratique.com/fr/vba

Bah c’est la feuille 1 ? Je dois mettre quoi à la place ? ^^

Merci

J'ai essayé la validation des données mais ça ne fonctionne pas, quand je mets 40 (en relançant un nouveau tableau avec la touche calculé) ça fonctionne alors que ça devrait me refuser

Ça empêche seulement si je veux remplir directement la cellule mais ça n'empêche pas l'algorithme de mettre 40 dans la cellule

NombreDePeriode = CInt(InputBox("Quel est le nombre de périodes"))

Feuil1.Range("b5") = NombreDePeriode

Voici la partie du code que j'aimerais modifier pour qu'on ne puisse choisir qu'entre 120 et 300, comment le mettre en place ?

Merci,

NombreDePeriode = CInt(InputBox("Quel est le nombre de périodes"))

If numero_ligne >= 120 And numero_ligne <= 300 Then

Feuil1.Range("b5") = NombreDePeriode

Else

MsgBox "L'entrée" & Range("B5") & " doit être compris entre 120 et 300 !"

Range("B5").ClearContents

NombreDePeriode = CInt(InputBox("Quel est le nombre de périodes"))

Feuil1.Range("b5") = NombreDePeriode

End If

J'ai réussi en ajoutant une fonction Si mais j'ai un nouveau problème : à la fin de l'execution ça me supprime mes titres du tableau ?

Bonjour Mathieu97

Si tu veux ça en VBA, voici le code

OnRecommence:
  NombreDePeriode = CInt(InputBox("Quel est le nombre de périodes"))
  If NombreDePeriode < 120 Or NombreDePeriode > 300 Then
    MsgBox "Le nombre de période doit être >= 120 et <= 300", vbExclamation, "OUPS..."
    GoTo OnRecommence
  End If
  Feuil1.Range("b5") = NombreDePeriode

Sinon voici ton fichier avec la validation de donnée

Très bien merci,

Sujet résolu