Discussion :

[benadry]

Rebonjour le forum,

Je vous sollicite maintenant pour un problème de formule dans un Userform.

Je souhaite adapter dans un Userform une formule qui fonctionne très bien dans un classeuir Excel et je rencontre des difficultés de syntaxe.

En l'occurrence, j'ai créé une formule qui dit que si, après avoir déterminé l'âge du salarié à partir de son numéro de sécu, on constate qu'il a plus de 58 ans, la case retraite met "oui ?".

Ma formule est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ANNEE(AUJOURDHUI())-(CNUM("19"&(STXT(RECHERCHE($B$7;Liste_Agents;BD!$E$2:$E$8);2;2))))>=58;"Oui ?";)

$B$7 est la cellule dans laquelle le nom de l'agent apparaît, au moyen d'une liste déroulante. Dans le userform, il s'agit de la Combobox11.

En convertissant en VBA, j'ai obtenu ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox9.Value = Application.WorksheetFunction.IF(YEAR(TODAY())-(VALUE("19"&(MID(LOOKUP(Combobox11.Value,Liste_Agents,BD!R2C5:R8C5),2,2))))>=58,"Oui ?"

J'ai aussi essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.FormulaR1C1 = 'IF(YEAR(TODAY())-(VALUE(""19""&(MID(LOOKUP(Combobox11.Value,Liste_Agents,'BD'!R2C5:R8C5),2,2))))>=58 Then
TextBox9.Value = "Oui ?"

Cela ne fonctionne pas ! Quelqu'un pourrait-il m'aider ?

Merci d'avance.

Cordialement.