Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

Pièces jointes

  • Test.xlsm
    35.7 KB · Affichages: 7

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…