ReneDav14000
XLDnaute Occasionnel
Bonjour le forum et très bonne année à vous toutes et tous,
J'ai créé un formulaire qui me permet d'aller chercher un Nom d'employé(e) dans un tableau structuré et d'afficher les informations le ou la concernant.
Ensuite, en cliquant sur le bouton OK l'administrateur pourra le supprimer. Cependant, je n'arrive pas à supprimer la ligne ainsi que les données qui s'y trouvent et de faire remonter les autres lignes après la suppression afin qu'il n'y ait pas un blanc au milieu du tableau. Pouvez-vous m'apporter votre aide s'il vous plait ?
Merci par avance
Voici mon code :
J'ai créé un formulaire qui me permet d'aller chercher un Nom d'employé(e) dans un tableau structuré et d'afficher les informations le ou la concernant.
Ensuite, en cliquant sur le bouton OK l'administrateur pourra le supprimer. Cependant, je n'arrive pas à supprimer la ligne ainsi que les données qui s'y trouvent et de faire remonter les autres lignes après la suppression afin qu'il n'y ait pas un blanc au milieu du tableau. Pouvez-vous m'apporter votre aide s'il vous plait ?
Merci par avance
Voici mon code :
VB:
Private Sub ButOk_Click()
Dim Ligne As Long, Cel As Range
If Trim(Me.CombCode) = "" Then
MsgBox "Vous n'avez sélectionné aucun(e) employé(e) !"
Exit Sub
End If
With Sheets("Agents")
Set Cel = .Columns("A").Find(What:=Me.CombCode, LookIn:=xlValues, LookAt:=xlWhole)
If Not Cel Is Nothing Then
Ligne = Cel.Row
If MsgBox("voulez-vous supprimer les informations concernant " & Me.TextBox1.Value & " " & Me.TextBox3.Value & " " & Me.TextBox4.Value & "?", vbQuestion + vbYesNo, "Suppression d'un(e) employé(e)") <> vbYes Then Exit Sub
"METTRE LE CODE DE SUPPRESSION ICI"
End If
End With
Init_Combo
End Sub