Formule dans Userform

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:

---

=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:

---

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:

---

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.

Re,

N'étant pas trop à l'aise avec l’intégration de formule excel dans vba, je coderai plutôt comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub ComboBox11_Change() Dim AnneSecu As Integer   AnneSecu = Mid(Worksheets("Feuil3").Cells(2, 2).Value, 2, 2) MsgBox AnneSecu   If 2014 - (1900 + AnneSecu) >= 58 Then TextBox9.Value = "Oui" Else TextBox9.Value = "Non" End If   'Ton Code précédent ''ActiveCell.FormulaR1C1 =_ ''IF(YEAR(TODAY())-(VALUE(""19""&(MID(LOOKUP(R7C2,Liste_Agents,'Base Agents'!R5C3:R278C3),2,2))))>=58 Then 'TextBox9.Value = Application.WorksheetFunction.IF(YEAR(TODAY())-(VALUE("19"&(MID(LOOKUP(Combobox11.Value,Liste_Agents,BD!R2C5:R8C5),2,2))))>=58,"Oui ?"   End Sub

---

C'est juste une piste à adapter, mais dans l'esprit ça doit revenir au même que ce que tu avais écris.
Pour moi c'est juste plus compréhensible pour quelqu'un qui relit le code ensuite

Adapte le 2014 avec ta focntion TODAY

Code:

---

AnneSecu = Mid(Worksheets("Feuil3").Cells(2, 2).Value, 2, 2)

---

Adapte cette ligne en fonction du nom choisit dans la combobox pour qu'il aille lire la bonne cellule (Cells(ligne, colonne))

Bonjour;
La méthode IF de l'objet WorksheetFunction n'existe pas . Seule les formules d'excel n'ayant pas leur équivalent dans le VBA sont disponibles avec cet objet.
Passe plutôt pas EVALUATE en lieu et place de WorkSheetFunction ce qui sera plus facile à mettre en place dans ton cas.
Exemple avec DateDif

Code:

---

Evaluate("=IF(DATEDIF(A2,TODAY(),""y"")>25,""Oui"","""")")

---

Rebonjour Gofio
Bonjour Philippe,


J'ai essayé la solution de Philippe et j'obtiens ceci :

Code:

---

TextBox10.Value = Evaluate(".if(year(today())-(value("19"&(MID(LOOKUP(R7C2,Liste_Agents,BD!R5C3:R278C3),2,2))))>=58,"Oui ?")

---

Cela ne fonctionne pas ! Je ne sais pas ce qui pêche : désolé, je ne suis pas très familiarisé avec les formules dans les userform. Je voudrais cependant apprendre précisément comment ça marche, car je transforme un fichier Excel plein de formules compliquées en userform.

Merci d'avance pour votre aide.


Cordialement.

Bonjour,
Je n'ai pas regardé ta formule complète mais il te manque le "=" en début de chaîne de caractères où tu as mis "." pourquoi ce point devant le IF ?
EVALUATE évalue une formule donc tu dois placer dans ta chaîne la formule complète le caractère d'égalité (=) également.