suppression de lignes

[nrdz83]

Bonsoir à tous , voila j'utilise ce code >>
Private Sub FB_Valider_Click()
Dim Lig As Long
Lig = ActiveCell.Row
Range("A" & Lig & ":U" & Lig).Select
Selection.Delete Shift:=xlUp
Unload F_SupprArticle
End Sub
Pour supprimer la ligne sélectionnée dans ma base de données, il se trouve qu'en bas de ma feuille j'ai un tableau qui rassemble mes totaux, hors quand je supprime une ligne ça me modifie tous le format de mon tableau du bas, et chamboule toutes mes données du coup.
Y a t'il moyen de conserver le format de mon tableau et les cellules?
(mon tableau s esitue à la ligne 500)
Je pense au lieu de supprimer la ligne effacer le contenu uniquement mais je ne sais pas faire ce code.

D'avance merci pour vos lumières et astuces , amitiés 😎

 

[Excel-lent]

Re : suppression de lignes

Bonsoir Nrdz83, le fil,

Private Sub FB_Valider_Click()
    Dim Lig As Long
    Lig = ActiveCell.Row
    [COLOR="Blue"]Rows(Lig).Select[/COLOR]
    Selection.Delete Shift:=xlUp
    Unload F_SupprArticle
End Sub

Essaye ainsi et dis moi si ça te vas.

Edition : tu dis vouloir supprimer un(des) ligne(s), mais à priori ton code supprime un(des) cellule(s)! Le code proposé ci-dessus supprime un(ces) ligne(s)

Bonne fin de soirée

 

[nrdz83]

Re : suppression de lignes

bonsoir excel lent impec ça fonctionne impeccable du coup ça me modifie plus mon tableau , allez encore merci et bonne fin de soirée😎

 

[Excel-lent]

Re : suppression de lignes

Bonsoir,

ça me modifie plus mon tableau

Ton code fonctionnait aussi! Mais tu étais obligé de sélectionner au moins à partir de la première colonne de ton tableau d'en bas ET au moins jusqu'à la dernière colonne de ton tableau.

Ainsi ton tableau n'aurait pas été modifié! 😉

A bientôt

 

[nrdz83]

Re : suppression de lignes

bonjour à tous j'ai crié trop vite victoire, en fait quand je supprime une ligne, ça me decale mon deuxième tableau tableau situé à la ligne 500 et du coup il me deplace le tableau de ce fait mes formules ne correspondent plus.
Au lieu de supprimer est il possible d'effacer simplement, d'avance merci.

 

[nrdz83]

Re : suppression de lignes

Bonjour à tous je pens eavoior trouvé voila mon code ça a l'air de fonctionner, bonne journée à tous et passez de bonnes fêtes de fiin d'année

mon nouveau code

Private Sub FB_Valider_Click()
Dim Lig As Long
Lig = ActiveCell.Row
Rows(Lig).Select
Selection.ClearContents
Unload F_SupprArticle
End Sub