modification d'une macro de suppression par une listview

[SSIAP2]

bonjour à tous

je viens vers vous pour m'aider à modifier une ligne de code qui me sert à supprimer une ligne dans ma base de donnée en passant par ma listview.
en fais tous fonctionne trés bien le soucis c'est au lieu de supprimer la ligne entiere je souhaite supprimer uniquement la la plage de A:G

  Dim SuppLigne As Long
SuppLigne = UserForm1.ListView4.SelectedItem.Index + 1
With UserForm1.ListView4
.ListItems.Remove .SelectedItem.Index
Worksheets("calcules").Rows(SuppLigne).Delete Shift:=xlUp
end with

comment dois je faire svp merci d'avance

 

[Grand Chaman Excel]

Re : modification d'une macro de suppression par une listview

Bonjour SSIAP2,

À essayer, une ou l'autre des option :

    'Pour effacer seulement le contenu :
    Worksheets("calcules").Range("A" & SuppLigne & ":G" & SuppLigne).ClearContents
    
    'Pour effacer les cellules et décaler celles dessous
    Worksheets("calcules").Range("A" & SuppLigne & ":G" & SuppLigne).Delete

A+

 

[job75]

Re : modification d'une macro de suppression par une listview

Bonsoir à tous,

Remplacer :

Worksheets("calcules").Rows(SuppLigne).Delete Shift:=xlUp

par :

Intersect(Sheets("calcules").Rows(SuppLigne), Sheets("calcules").[A:G]).Delete xlUp

[Edit] ou encore (plus court) :

Sheets("calcules").Rows(SuppLigne).Resize(, 7).Delete xlUp

Bonne fin de soirée et A+