XL 2019 Supprimer une ligne d'une base de données une fois qu'elle est transférée sur une autre feuille

j'aimerais avoir un code VBA qui fait qu'en cliquant sur mon bouton qui fait le transfert,

Cliquez pour agrandir...

fronck à dit:

J'ai enlevé le formulaire de connection qui plantait Excel si on ne met pas un mdp correcte.
-Il y a pas d'onglet employés qui s'appelle shData.
-La Feuil1 s'appelle "Maladie" et y'a pas d'employés dedans.

Il n'y a pas de bouton "transfert" sur les 14 boutons du menu.

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour à tous

@Isabellisa

Si j'ai bien compris la demande sur la base du code du post# 1

VB:

'******************************************************************************
'Procédure permettant d'enregistrer dans les départs l'employé qui nous a quitté
'******************************************************************************

Private Sub btnAjouter_Click()
    'On calcule le nombre de ligne dans les départs
    Dim DerniereLigne As Integer
    DerniereLigne = Feuil5.Range("A500000").End(xlUp).Row + 1
 
    'On Désactive le rafraichissement de l'écran
    Application.ScreenUpdating = False
    'On teste si le nom de l'employé a été saisi
    If Me.TextBox15 = "" Then
        Me.lblMessage = "Vous n'avez pas saisie le nom et le prénom de l'employé qui nous a quitté"
    Else
      Feuil5.Cells(DerniereLigne, 1) = Me.TextBox15
      Feuil5.Cells(DerniereLigne, 2) = Me.TextBox16
      Feuil5.Cells(DerniereLigne, 3) = Me.TextBox29
      Feuil5.Cells(DerniereLigne, 4) = Me.TextBox30
      Feuil5.Cells(DerniereLigne, 5) = Me.ComboBox12
      Feuil5.Cells(DerniereLigne, 6) = Me.TextBox17
      Feuil5.Cells(DerniereLigne, 7) = Me.TextBox20
      Feuil5.Cells(DerniereLigne, 8) = Me.ComboBox5
      Feuil5.Cells(DerniereLigne, 9) = Me.TextBox28
      Feuil5.Cells(DerniereLigne, 10) = Me.ComboBox6
      Feuil5.Cells(DerniereLigne, 11) = Me.TextBox8
      Feuil5.Cells(DerniereLigne, 12) = Me.TextBox11
      Feuil5.Cells(DerniereLigne, 13) = Me.TextBox12
      Feuil5.Cells(DerniereLigne, 14) = Me.TextBox26
      Feuil5.Cells(DerniereLigne, 15) = Me.ComboBox7
      Feuil5.Cells(DerniereLigne, 16) = Me.TextBox8
      Feuil5.Cells(DerniereLigne, 17) = Me.TextBox19
      Feuil5.Cells(DerniereLigne, 18) = Me.TextBox10
      Feuil5.Cells(DerniereLigne, 19) = Me.TextBox18
      Feuil5.Cells(DerniereLigne, 20) = Me.TextBox13
      Feuil5.Cells(DerniereLigne, 21) = Me.TextBox22
      Feuil5.Cells(DerniereLigne, 22) = Me.TextBox21
       
      If Me.CheckBox2 = True Then
          Feuil5.Cells(DerniereLigne, 23) = Me.TextBox16 & " " & Me.TextBox15
      Else
          Feuil5.Cells(DerniereLigne, 23) = "Image vide"
      End If
     
      shMenu.Range("F5:AD5").ClearContents
      Unload Me
      MsgBox "Votre employé à bien été enregistré dans les départs et supprimé de la liste d'employés.", vbOKOnly + vbInformation, "CONFIRMATION SAUVEGARDE"
    End If

    '**** C'est ici la suppression de l'employé dans la feuille source shData
    Dim VarId$, j%
    VarId = Me.TextBox16 & " " & Me.TextBox15
    For j = 3 To shData.Range("A" & Rows.Count).End(xlUp).Row
        If shData.Range("B" & j) & " " & shData.Range("A" & j) = VarId Then
              shData.Rows(j).Delete
              Exit Sub
        End If
    Next j
End Sub

*A noter que le code du post #1 est différent de celui qui est dans le fichier !!!!

Merci de ton retour

@Phil69970

Cliquez pour agrandir...