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.

[GoFio]

Re,

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

Code :

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

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 :

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

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))

[Philippe Tulliez]

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 :

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

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

[benadry]

Rebonjour Gofio
Bonjour Philippe,


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

Code :

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

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.

[Philippe Tulliez]

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.