[Résolu] Procédure Vba calculant un nombre de trimestres

[rimbaut]

Bonsoir à tous,

 

Je voudrais écrire une procédure ( d'ailleurs, je me demande si c'est une procédure ou une fonction qu'il faudrait écrire) afin de calculer le nombre de trimestre nécessaire pour obtenir une retraite à taux plein en fonction de la date de naissance.

J'ai écrit ce code qui ne fonctionne pas :

 

Option Explicit

Sub CalculTrimestreRetraite()

Dim AnneeNaissance As Integer

 

Select Case AnneeNaissance

Case Is = 1943

Worksheets("Feuil2").Range("G274").Value = 160

 

Case Is = 1944

Worksheets("Feuil2").Range("G274").Value = 160

 

Case Is = 1945

Worksheets("Feuil2").Range("G274").Value = 160

 

Case Is = 1946

Worksheets("Feuil2").Range("G274").Value = 160

 

Case Is = 1947

Worksheets("Feuil2").Range("G274").Value = 160

 

Case Is = 1948

Worksheets("Feuil2").Range("G274").Value = 160

 

Case Is = 1949

Worksheets("Feuil2").Range("G274").Value = 161

 

Case Is = 1950

Worksheets("Feuil2").Range("G274").Value = 162

 

Case Is = 1951

Worksheets("Feuil2").Range("G274").Value = 163

 

Case Else

Worksheets("Feuil2").Range("G274").Value = 164

 

End Select

End Sub

 

J'explique quelque peu le problème, je saisis une date de naissance dans la feuille 2 cellule g272 et ensuite je veux comparer cette cellule.

Si celle ci = 1943 alors je voudrais copier dans la cellule g274 de la feuille 2 le chiffre 160 etc....

 

Quelqu'un peut il m'aiguiller ?

 

Merci beaucoup pour votre aide

[Dylav]

Pour ce cas précis, je crois que tu pourrais te contenter d'affecter à la cellule G274 la formule suivante :

 

SI(G272<1949;160;SI(G272=1949;161;SI(G272=1950;162;SI(G272=1951;163;164))))

En quelques mots,

- si l'année de naissance est inférieure à 1949, 160 trimestres, sinon

- si = 1949, 161, sinon

- si = 1950, 162, sinon

- si = 1951, 163, sinon 164.

 

Ça fonctionne, je l'ai testée...

[rimbaut]

Bonsoir dylav,

Tu as totalement raison, je n'y avais pas pensé comme quoi la logique celà rend bien des services.

 

Bonne soirée

[Dylav]

Le problème semble avoir trouvé sa solution.

Ainsi, afin de signaler clairement à ceux qui ont un problème similaire qu'ils ont peut-être une solution toute trouvée (s'ils pensent à utiliser la fonction Recherche en indiquant le mot-clé "résolu" auparavant), et afin de signaler aux autres contributeurs qu'il est inutile de continuer à se creuser la tête sur le problème (à moins d'avoir des suppléments d'informations à apporter pour mieux comprendre ce qui posait problème), un modérateur a préfixé le titre du topic avec la mention [résolu].

Merci, à l'avenir, de bien vouloir prendre à votre charge cette mise à jour quand vous estimez que votre problème a été résolu de manière satisfaisante (et parallèlement, si le problème a disparu "mystérieusement", inutile d'induire les gens en erreur ) Pour cela, votre premier message