Valeur de la texbox dans la Bd

Bonjour

Pour vider la ComboBox txtRecherche

Me.txtRecherche.Clear

bonjour Banzai64

j'ai télécharger le dernier fichier d'anneraud et a son ouverture j'ai un panneau d'avertissement de références circulaires qui s'affiche et les calculs seront faussés de ce fait

Pascal

Bonjour

Oui j'ai vu ça mais je ne crois pas que cela gène l'userform

Elle est située dans la page "BD jour"

Mais si tu as une idée pour traiter le problème des heures n'hésites pas, moi je suis en panne de ce côté, sinon avec une usine à gaz

Merci

J'ai mis le code Me.txtrecherche.Clear dans Private Sub Validation_Retard_Click().

Sa marche je pensai pouvoir relancer Private Sub UserForm_Initialize() pour recharger la list box et recharger mes textbox mais sa ne marche pas.

Pour un débutant ce n'est pas facile la vba mais c'est en persévérant que l'on apprend.

Pour le zéro des dizaine vous avez trouvés une solution.

Bonsoir,

J'ai réussi à recharger ma listbox txtrecherche avec ce code :

Private Sub Validation_Retard_Click()

Dim cel

Dim I As Integer

If Trim(Me.txtrecherche) = "" Then

MsgBox "Veuillez saisir un nom"

Exit Sub

End If

Application.ScreenUpdating = False

Set cel = Sheets("JOURNALIER").Columns(1).Find(what:=Me.txtrecherche, LookIn:=xlValues, lookat:=xlWhole)

If Not cel Is Nothing Then

cel.Offset(0, 6) = Me.retard.Value

cel.Offset(0, 1).Select

Call calcul_retard

retard.Text = ""

End If

Me.txtrecherche.Clear

Call recharger_userform_initialize

End Sub

Sub recharger_userform_initialize()

UserForm_Initialize

End Sub

Mais sa me recharge pas mes textbox est-il possible de garder en mémoire le premier choix du nom. Et rappeler le nom en mémoire dans la macro Private Sub Validation_Retard_Click() après le code Call recharger_userform_initialize.

une idée

Bonsoir

Pourquoi ne pas appeler directement la procédure de la combobox

Comme le nom est déjà inscrit dans cette combobox la procédure rechargera tes textbox

Private Sub Validation_Retard_Click()

  Dim cel
  Dim I As Integer

  If Trim(Me.txtrecherche) = "" Then
    MsgBox "Veuillez saisir un nom"
    Exit Sub
  End If

  Application.ScreenUpdating = False

  Set cel = Sheets("JOURNALIER").Columns(1).Find(what:=Me.txtrecherche, LookIn:=xlValues, lookat:=xlWhole)
  If Not cel Is Nothing Then

    cel.Offset(0, 6) = Me.retard.Value
    cel.Offset(0, 1).Select
    Call calcul_retard
    retard.Text = ""
    txtrecherche_Change
  End If
End Sub

Bonjour,

Merci Banzaï pour tes solutions tout marche.

Cordialement