Bonjour à Tous,
J’ai eu la chance d’être aidé l’année dernière pour faire un petit programme qui me permet de suivre/modifier/effacer des formations que nous faisons.
Aussi, je prépare ce même logiciel pour 2024 mais je m’appercois d’un petit souci, pour faire simple.
Dans mon champs « Listview » lorsque je double clique on me propose de supprimer la formation sélectionnée mais lorsque je fais « effacer » alors ca me supprime toute une ligne entière de mon classer excel « PowerBi » .
Or, je souhaiterais effacer que certaines informations de cette ligne en gros je veux effacer la ligne mais de la colonne A à G puis de I à M (pour l’exemple)
Auriez vous une idée ?
Un énorme MERCIIII
Julien,
voici le code associé :
'Suppression Formation
Private Sub ListView1_DblClick()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
On Error GoTo fin
With ListView1
CF = .ColumnHeaders.Count - 1
i = .SelectedItem.Index
rng = CLng(.ListItems(i).ListSubItems(CF)) 'Ligne Feuill PowerBi
End With
'Message Box complete
Msg = "Voulez vous supprimer cet Enregistrement?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "Demande de suppression Enregistrement Formation" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
Worksheets("PowerBi").Rows(rng).Delete
Call Raz_Saisie(UF)
Call Init_Lvw(UF)
ThisWorkbook.Save
End If
