bonjour a tous
voici un code qui permet de supprimer une ligne précise après avoir cliquer dans la cell de la ligne concernée
bien sûr il faudra ajuster le nombre et la quantité de colonne concerné par la suppression
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Private Sub CommandButton2_Click() Dim Msg, Style, Title If MsgBox("êtes vous sur de vouloir supprimer la ligne sélectionnée?", vbOKCancel + vbDefaultButton2, "ATTENTION SUPRESSION ACTIVEE") = vbOK Then ' Définit le message. 'récupère le n° de la ligne maligne = ActiveCell.Row 'nomme la variable "cel1" avec la référence de la cellule , "b4" par exemple cel1 = "B" & maligne cel2 = "P" & maligne 'nomme "cel1" la cellule, "b4" par exemple Range(cel1).Name = "cel1" Range(cel2).Name = "cel2" 'sélectionne les cellules à supprimer (exemple b4:P4) => et remonte les cellules d'1 cran cad b5.P65536 en b4.h65535 'et ajoute la 65536 vide, mais attention à cette formule, car si il y a des donnees à droite ou à gauche, en a4 ou 'au delà de P4, dans notre exemple, elles ne bougent pas Range("cel1:cel2").Delete Shift:=xlUp ActiveWorkbook.Names("cel1").Delete 'supprime le nom "cel1" ActiveWorkbook.Names("cel2").Delete Else ' L'utilisateur a choisi Non. MsgBox "suppression annulée" ' Effectue une action.quitter" End If End Sub
bon courage
Pascal
Partager