XL 2010 aide moi de mettre cette formule dans ce formulaire

[kahlouch]

bonjour a tous le monde
s'il vous plaît
aide moi de mettre cette formule dans ce formulaire

=MOIS.DECALER(Liste!O1;RECHERCHEV(D2;Liste!$I$3:$J$7;2;FAUX))-1

 

[Theze]

Bonjour,

Dans Initialize() de l'UserForm :

Private Sub UserForm_Initialize()
    '**' Dans cette procédure nous allons ajouter les clés du dictionnaire comme source pour la combobox.
    Me.cboSpeca.List = dicoSpecialite.Keys
   
    With Worksheets("Liste")
   
        TextBox2.Text = Format(Application.EDate(.Range("O1"), Application.VLookup(.Range("D2"), .Range("$I$3:$J$7"), 2, False)) - 1, "dd/mm/yyyy")
       
    End With

End Sub

 

[kahlouch]

Bonjour,

Dans Initialize() de l'UserForm :

Private Sub UserForm_Initialize()
    '**' Dans cette procédure nous allons ajouter les clés du dictionnaire comme source pour la combobox.
    Me.cboSpeca.List = dicoSpecialite.Keys
  
    With Worksheets("Liste")
  
        TextBox2.Text = Format(Application.EDate(.Range("O1"), Application.VLookup(.Range("D2"), .Range("$I$3:$J$7"), 2, False)) - 1, "dd/mm/yyyy")
      
    End With

End Sub

Re;
merci pour votre aide
mais je pense que je ne pouvais pas l'installer correctement
j'ai essayé mais ce ne marche pas
en tout cas
Si vous ne comprenez pas ma demande je vous remercie encore une fois

 

[youky(BJ)]

Bonjour tous,
Voici une façon de faire
Bruno

Private Sub TextBox1_Change()
If TextBox1 = "" Then TextBox2 = "": Exit Sub
If Len(TextBox1) = 10 And IsDate(TextBox1) Then
TextBox2 = CDate(Application.EDate([Liste!O1], Application.VLookup([D2], [Liste!$I$3:$J$7], 2, False)) - 1)
End If
End Sub

Edit: Truc à connaitre
Pour voir la formule en vba >>selectionne la formule et en vba affiche la fenêtre Exécution
et écrit ?selection.formula et faire entrer il suffit de mettre application et les crochets