XL 2016 Supprimer ligne par bouton

kinguepat

XLDnaute Nouveau
Bonsoir à tous!

Le fichier joint me permet de créer (ajouter) des données dans la feuille et de les modifier par userform.

code:
VB:
Private Sub btnOK_Click()
Dim Ligne As Integer
'NomFeuille

If Application.WorksheetFunction.CountA(Range("D5:D54")) >= 50 Then
MsgBox "Limite atteinte!", vbCritical, "LogiPAIE Pro50"
Unload Me
Else

If MsgBox("Confirmez-vous l'ajout de l'employé " & txtNom & " dans la liste des employés?", vbQuestion + vbYesNo, "LogiPAIE Pro50") = vbYes Then
Feuil1.Select
Ligne = Feuil1.Range("C54").End(xlUp).Row + 1
Cells(Ligne, 3) = cbxCivil.Value
Cells(Ligne, 4) = txtNom.Value
Cells(Ligne, 5) = cbxSex.Value
Cells(Ligne, 6) = txtDateNaiss.Value
Cells(Ligne, 7) = txtAdress.Value
Cells(Ligne, 8) = txtNumTel.Value
Cells(Ligne, 9) = txtdateEmb.Value
Cells(Ligne, 10) = txtDateSorti.Value
Cells(Ligne, 11) = txtDirection.Value
Cells(Ligne, 12) = txtSce.Value
Cells(Ligne, 13) = txtPoste.Value
Cells(Ligne, 14) = cbxRegime.Value
Cells(Ligne, 15) = cbxType.Value
Cells(Ligne, 16) = cbxCat.Value
Cells(Ligne, 17) = cbxEchel.Value
Cells(Ligne, 19) = txtNumCNPS.Value
Cells(Ligne, 20) = cbxModePaie.Value
Cells(Ligne, 21) = txtNumCpte.Value
Cells(Ligne, 22) = txtBanq.Value

MsgBox "L'employé " & txtNom & " a été ajouté à la liste des employés avec succès!!!", vbExclamation, "LogiPAIE Pro50"
Unload nvelEmploy
nvelEmploy.Show
Else
End If
End If
End Sub
code pour modifier:
Code:
Dim modif As Integer

If Not cbxNom.Value = "" Then
    If MsgBox("Voulez-vous modifier les informations relatifs à l'employé " & txtNom & " ?", vbInformation + vbYesNo, "LogiPAIE Pro50") = vbYes Then
    
    
Feuil1.Select
modif = cbxNom.ListIndex + 5
Cells(modif, 3) = cbxCivil.Value
Cells(modif, 4) = txtNom.Value
Cells(modif, 5) = cbxSex.Value
Cells(modif, 6) = txtDateNaiss.Value
Cells(modif, 7) = txtAdress.Value
Cells(modif, 8) = txtNumTel.Value
Cells(modif, 9) = txtdateEmb.Value
Cells(modif, 10) = txtDateSorti.Value
Cells(modif, 11) = txtDirection.Value
Cells(modif, 12) = txtSce.Value
Cells(modif, 13) = txtPoste.Value
Cells(modif, 14) = cbxRegime.Value
Cells(modif, 15) = cbxType.Value
Cells(modif, 16) = cbxCat.Value
Cells(modif, 17) = cbxEchel.Value
Cells(modif, 19) = txtNumCNPS.Value
Cells(modif, 20) = cbxModePaie.Value
Cells(modif, 21) = txtNumCpte.Value
Cells(modif, 22) = txtBanq.Value

MsgBox "Toutes les modifications ont été prises en compte avec succès", vbExclamation, "LogiPAIE Pro50"
    End If
Else
MsgBox ("Veuillez sélectionner ou saisir le nom de l'employé dans la balise de recheche")
Exit Sub
End If

Unload Me 'vide et ferme l'UserForm
End Sub
Je voudrais s'il vous plait, intégrer un code dans le bouton supprimer (ModifEmploy) me permettant de supprimer un employé de la liste et faire monter celle de dessous sans effacer les formules.

Merci d'avance pour vos différentes contributions
 

Fichiers joints

JBARBE

XLDnaute Barbatruc
Bonjour à tous toutes,
Peut-être ceci en cliquant sur le bouton supprimer !
Bonne journée !
 

Fichiers joints

kinguepat

XLDnaute Nouveau
je Viens de tester la solution de JBARBE et c'est un début de solution pour moi :) mais elle supprime toute la ligne entière et donc même les infos qui me servent de liste déroulante dans le formulaire.
Ce que j'aimerai est la prise en compte de la plage en jaune ("C:V").

je continue ma reflexion...
 

Discussions similaires


Haut Bas