Incrémentation de Formule via Userform

[Citron]

Bonjour à tous,

Je fais un userform de saisie d'informations qui s'initialise ainsi :

Private Sub UserForm_Initialize()
If IsEmpty(Range("E2").Value) Then
Me.TextBox5.Value = DATEDIF(D2;AUJOURDHUI()-1;"y")+1
Else
Me.TextBox5.Value = Range("E65536")..End(xlUp).Value?????????????
End If
End Sub

Je souhaiterai incrémenter la cellule visée D3 D4... Sauriez vous par quoi je dois remplacer mes points d'interrogation ?
Merci d'avance.

 

[Citron]

Re : Incrémentation de Formule via Userform

En fait les formules ne semblent pas marcher alors je refais mon UserForm tel que :

Private Sub UserForm_Initialize()
Me.TextBox5.Value = Range("E65536")..End(xlUp).Value?????????????
End Sub

sachant quand E2 j'aurai saisi :
=DATEDIF(D2;AUJOURDHUI()-1;"y")+1

Par quoi remplacer les ???? pour que la formule s'étende en E3 tel que =DATEDIF(D3;AUJOURDHUI()-1;"y")+1

 

[Pierrot93]

Re : Incrémentation de Formule via Userform

Bonsoir Citron

comprends pas trop ton problème, pour moi, en l'état, ton code essaye d'alimenter un "TextBox"...

mets peut être ton fichier en pièce jointe en essayant d'être le plus précis possible.

bonne soirée
@+

 

[Citron]

Re : Incrémentation de Formule via Userform

Effectivement je souhaite faire une textbox mais qui se remplisse automatiquement et qui soit non modifiable par l'utilisateur du UserForm.
Merci de t'interesser à mon problème, j'ai du mal à exprimer le problème je joint le fichier ce sera plus clair.

 

[ninbihan]

Re : Incrémentation de Formule via Userform

Bonsoir Citron,Pierrot

Tu veux la formule en A et E ou le résultat de la formule ?
Dans le fichier j'ai ajouté deux labels qui se modifient dés la saisie d'une date
Ensuite les valeurs sont transférées à la validation


Bonne soirée,

Ninbihan

 

[Citron]

Re : Incrémentation de Formule via Userform

Je n'avais pas du tout pensé à procéder comme ça mais c'est quasiment ce que je cherche. Merci beaucoup Ninbihan de t'être penché dessus.

Pour la colonne E je préfererai avoir la formule parcequ'elle permet d'avoir l'age que les gens auront lors de leur prochain anniversaire et non l'age qu'ils auront ou on déjà eu cette année (par exemple si l'on consulte le fichier en decembre et qu'on lit une ligne de quelqu'un né en janvier on lira l'age qu'il a actuellement au lieu de l'age qu'il aura en janvier). Ta méthode me parais cependant bonne si on ote la date saisie de la date du jour mais je n'y arrive pas (j'ai essayé : "Label4 = Now - Date(TextBox4.Value)" et d'autres formules approchant avec "Today"...).
j'ai noté également que cela s'affiche "18" et non "18 ans" pourtant quand je fais format de cellule j'ai toujours <<## " ans">> ça je comprend pas trop mais bon c'est pas le plus important.

Pour la colonne A mon tri associé à cette collone se fait par jour/mois même s'il n'y a que le mois d'apparent j'aurai donc souhaité que le résultat soit tel que jj mm ou jj mm aaaa. La encore je n'y arrive pas (pas très doué faut dire).

Merci de ton aide.

 

[ninbihan]

Re : Incrémentation de Formule via Userform

Bonsoir le forum, Citron et Pierrot

J'ai apporté un zeste d'amélioration.
J'espére que tu n'auras pas de pépin...


Bonne soirée,

Ninbihan

 

[Citron]

Re : Incrémentation de Formule via Userform

Merci Ninbihan, c'est parfait, je continue à travailler sur ce tableu pour y adjoindre de nouvelles fonctions telles que apporter une correction à un evenement déjà saisi... J'essaye par moi-même je sens que ça rentre doucement.