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

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
TheProdigy

TheProdigy

XLDnaute Impliqué
Bonjour tout le monde,

Dans mon fichier mon code supprime la ligneentière de mon tableau
VB: 
OI.Rows(Maligne).EntireRow.Delete
A ce stade tout va bien. Mais ce que je veux c'est seulement la suppression d'une plage de cellule du tableau et non pas la ligne entière, alors j'ai modifié le code ci-dessus par le code ci-dessous
Code: 
OI.Range(Cells(Maligne, "A"), Cells(Maligne, "O")).Delete Shift:=xlUp

La finalité est de supprimer la plage en décalant vers le haut et non pas la ligne entière. ça n'a pas marché
le message d'erreur 1004 La méthode Delete de la classe Range a échoué
upload_2018-9-17_16-38-52.png

Voilà
Merci.
 
Trier par date Trier par votes
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

chris à dit:
Cells attend des nombres pour désigner les colonnes pas des lettres...
Cliquez pour agrandir...
Bonjour chris 😉. Chez moi, Cells avec les références des colonnes en lettre fonctionne correctement (Excel 2010) 🙄
 
Dernière édition:
Vote positif 0 Vote négatif
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...
Merci @mapomme
Ta solution fonctionne parfaitement merci pour tes explications. Merci @chris Merci le forum
Cordialement.
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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...
Bonjour,
C'est quoi
VB: 
Call Init
Merci
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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...
Merci beaucoup @VIARD
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

jeff1494
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
1 K
jeff1494
jeff1494
Phil Du59
  • Question Question
XL 2019 Ajout d'un bouton DELETE sur mon USF
2 3
Réponses
43
Affichages
1 K
Phil Du59
Phil Du59
E
  • Résolu(e)
Microsoft 365 Ajout et Suppression Date automatique
Réponses
9
Affichages
550
eric72
E
A
  • Résolu(e)
XL 2019 Optimisation code VBA (Icônes flottantes)
Réponses
14
Affichages
473
Amilo
A
BenHarber
  • Question Question
Microsoft 365 Commande VBA pour supprimer plusieurs lignes d'un tableau structuré
Réponses
7
Affichages
314
mapomme
mapomme
DAVID-44-
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
299
DAVID-44-
DAVID-44-
M
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur feuille entière
2
Réponses
24
Affichages
523
sylvanu
sylvanu
BenHarber
  • Question Question
Microsoft 365 Initialisation d'une variable tableau à partir d'une plage de cellules
2
Réponses
17
Affichages
664
job75
job75
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
704
TooFatBoy
TooFatBoy
eastwick
  • Résolu(e)
XL 2016 copier la même ligne sur la dernière ligne vierge d'un tableau
Réponses
8
Affichages
195
eastwick
eastwick
R
  • Question Question
XL pour MAC Accès aux zones d'un tableau
Réponses
10
Affichages
372
TooFatBoy
TooFatBoy
J
  • Question Question
XL 2016 recherche d'une valeur en fonction d'une plage de données
Réponses
2
Affichages
286
jeff2318
J
C
  • Question Question
Microsoft 365 écriture formule pour tableau structuré
Réponses
12
Affichages
283
CortoXls
C
Phoenix23
  • Résolu(e)
XL 2021 Mise en place d'une formule pour completer un un tableau par action en fonction d'un nom.
Réponses
5
Affichages
280
Hecatonchire
H
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
242
mikeduff
M
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
268
Paulle
P
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
317
Yogean
Y
Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
469
TooFatBoy
TooFatBoy
ralph45
  • Résolu(e)
Microsoft 365 Extraire les données d'une ligne d'un tableau dynamique piloté par un segment
Réponses
2
Affichages
198
ralph45
ralph45
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
554
sylvanu
sylvanu
Retour