XL 2010 Supprimer une plage d'une ligne d'un tableau

OI.Range(OI.Cells(5, "A"), OI.Cells(5, "O")).Delete Shift:=xlUp

With OI
   .Range(.Cells(5, "A"), .Cells(5, "O")).Delete Shift:=xlUp
End With

chris à dit:

Cells attend des nombres pour désigner les colonnes pas des lettres...

Cliquez pour agrandir...

chris à dit:

Cela existe depuis longtemps ?

Cliquez pour agrandir...

mapomme à dit:

Bonjour @adilprodigy, @chris,

Si la feuille active n'est pas la feuille OI, le range échouera car vous avez préfixé le range global par OI. et pas préfixé les deux cellules définissant le range. Un range ne peut être sur une feuille (OI en l’occurrence) et être défini par deux cellules d'une autre feuille (la feuille active en l’occurrence).
Essayez:

VB:

OI.Range(OI.Cells(5, "A"), OI.Cells(5, "O")).Delete Shift:=xlUp

ou

VB:

With OI
   .Range(.Cells(5, "A"), .Cells(5, "O")).Delete Shift:=xlUp
End With

Bonjour chris . Chez moi, Cells avec les références des colonnes en lettre fonctionne correctement (Excel 2010)

Cliquez pour agrandir...

VIARD à dit:

Bonjour Mapomme, Chris, adilprodigy et à tous

Je viens de voir votre intervention sur la suppression d'une ligne d'un tableau.
voici ma solution, mais il me semble que je peux faire mieux.
voici un extrait.

VB:

Private Sub Bt_Supprimer_Click()
Dim r, Nb&, Ligne1&, Nbp&
Dim LigMax&, LigMin%, ColMin%, ColMax%

Nbp = Sheets("Feuil1").Cells(65000, 4).End(xlUp).Row
LigMin = 4
LigMax = Nbp
ColMin = 4
ColMax = 16

If Cbx_Id.Text = "" Then MsgBox "Aucun enregistrement à supprimer": Exit Sub
r = MsgBox("Voulez vous confirmer la suppression?", vbYesNo, "Supprimer   Enregistrement")
If r <> 6 Then Exit Sub
'----------- Suppression Emplacement -------------
'-------- si l article est en dernière ligne -----
Ligne1 = [D4].Offset(Cbx_Id.ListIndex, 0).Row
'MsgBox "Nbp=" & Nbp & "    Ligne1=" & Ligne1
If Nbp = Ligne1 Then
    Sheets("Feuil1").Range(Cells(Ligne1, ColMin), Cells(Ligne1, ColMax)).ClearContents
Else 'si non
    Worksheets("Feuil1").Range(Cells(Ligne1 + 1, ColMin), Cells(Nbp, ColMax)).Cut Worksheets("Feuil1").Cells(Ligne1, ColMin)
End If
'----- Rafraichissement Plage Tableau1 (R1C1) ----
ActiveSheet.ListObjects("Tableau1").Resize Range(Cells(LigMin - 1, ColMin), Cells(LigMax - 1, ColMax))
'------------- init paramètre -------------
Call Init
'-----------------------------------
End Sub

ce code fonctionne bien, il peut être amélioré !

A+ Jean-Paul

Cliquez pour agrandir...

Call Init

VIARD à dit:

Bonjour adilprodigy et à tous

le call Init, c'est une petite routine qui réactualise les paramètres de l'User à chaque suppression.

En faite cette discussion à été bénéfique pour moi, cela m'a permis de simplifier mon code.
ce que j'avais réalisé était compliqué mais fonctionnel.
du coup voici ma nouvelle mouture.

VB:

'--------- Suppression Emplacement --------
Ligne1 = [D4].Offset(Cbx_Id.ListIndex, 0).Row
Sheets("Feuil1").Range(Cells(Ligne1, ColMin), Cells(Ligne1, ColMax)).Delete shift:=xlUp
'------------- init paramètre -------------
Call Init
'-----------------------------------
End Sub

c'est tout de même mieux, le code est simple et léger alors que je me suis cassé la tête pour mon code.

Merci à tous
A+ Jean-Paul

Cliquez pour agrandir...