ComboBox de recherche sur formulaire

Bonjour,

j'ai testé et ça marche.

j'ai aussi remarqué un petit bug pour modifier un enregistrement. Si le MsgBox affiche voulez vous modifier cet enregistrement ? si choisit "oui" la modification est enregistrée par contre si tu choisis "non" la ligne est dupliquée.

J'ai aussi mis en place un macro pour sauvegarder juste le tableau sous format csv, mais j'ai une ligne vide qui traîne toujours en haut avant le tableau et j'arrive pas à l'enlever lors de la sauvegarde.

Sub testsCSV()
    Dim rep As String
    Dim OldName, NewName
    Dim Chemin As String, Fichier As String
    Dim monclasseur As Workbook
    Set monclasseur = ActiveWorkbook

    Chemin = ThisWorkbook.Path & "\"
    Fichier = Range("A5").Value & "_" & Format(Date, "yyyy") & ".csv"

       monclasseur.SaveAs Filename:= _
       Chemin & Fichier, FileFormat:=xlCSV, _
            CreateBackup:=False
    With ActiveWorkbook
      .Sheets(1).Rows(1).Delete
      .Sheets(1).Rows(2).Delete
      .Sheets(1).Rows(3).Delete
      .Close
    End With
End Sub

Merci d'avance.

Bonjour

A tester

Je n'ai pas trouver la macro de sauvegarde

Mais pour enlever 3 premières lignes

c'est soit

.Sheets(1).Rows(1).Delete
.Sheets(1).Rows(1).Delete
.Sheets(1).Rows(1).Delete

soit

.Sheets(1).Rows("1:3").Delete

Bonjour Banzai64,

Le formulaire marche très bien, il n'y a plus de bug niveau modification.

Par contre je n'arrive pas à générer un fichier CSV conforme mais je continu à chercher.

Merci pour le temps consacré à mon formulaire.

Bonjour Banzai64,

j'essaie d'écrire une nouvelle condition pour la date de naissance:

• date de naissance (valeur entrée dans le TextBox7) doit être supérieure 1990 et inférieure à 1960

mais j'ai une erreur de syntax.

ElseIf TextBox7.Value = "" Or Format(TextBox7.Value, "yyyy") > #1990# or Format(TextBox7.Value, "yyyy") < #1960#
    Then  Label13.ForeColor = RGB(255, 0, 0)

Merci d'avance.

Bonsoir

De ce que j'ai compris

  ElseIf TextBox_Prenom.Value = "" Then
    Label_Prenom.ForeColor = RGB(255, 0, 0)
    MsgBox "veuillez renseigner le Prenom du salarié!"
    'cheikh

ElseIf Not IsDate(Me.TextBox7) Then
    Label13.ForeColor = RGB(255, 0, 0)
    MsgBox "Veuillez renseigner la date"

  ElseIf Year(CDate(Me.TextBox7)) > 1959 And Year(CDate(Me.TextBox7)) < 1991 Then
    Label13.ForeColor = RGB(255, 0, 0)
    MsgBox "Année inférieure à 1960 ou supérieure à 1990"

  ElseIf Me.OpbDepart = False And Me.OpbEnPoste = False Then

Bonjour,

effectivement ça marche.

Encore une fois merci énormément.

Bonjour,

Actuellement mon formulaire marche super bien. Avec Combobox_recherche on peut faire une recherche sur le Nom et modifier la ligne en question.

Etant donné que nous pouvons avoir une dizaine de lignes, serait il possible d'avoir une fonctionnalité qui nous permet de double cliquer sur un Nom dans la liste pour afficher directement le formulaire afin de pouvoir le modifier.

Merci d'avance.

Bonjour

Un double clic n'importe où sur la ligne

Attention j'ai pris un fichier mais je ne sais pas s'il est à jour de toutes les modifications

re,

tout d'abord merci encore une fois, je l'ai adapté et ça marche parfaitement. Le seul bémol est que on peut modifier tout sauf le Nom. Si je modifie le Nom il crée une autre ligne.

Bonjour

Avec un autre bouton

A tester

re,

ça marche bien je vais juste ajouter un bouton modifier.

Merci bien. J'ai un super formulaire et j'ai compris énormémment de chose sur les formulaires grâce à vous