Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA : Delete rows

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion yonini
  • Date de début Date de début

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
Y

yonini

XLDnaute Nouveau
Bonjour à tous,

Je me permets de venir poster ici mon pb avec mon code, car je n'arrive pas à trouver pourquoi ca coince...
Mon code :
Code: 
Sub Archiver_affaire()

    'Déverrouille les pages
    Worksheets("Saisie").Unprotect
    Worksheets("Donnees").Unprotect
    Worksheets("Archives").Unprotect
    
    ligne = Worksheets("Saisie").Range("Ligne_Aff_Ref")
    ' Prochaine ligne disponible
    ligne_archive = Worksheets("Archives").Range("Nb_Affaires_Archives") + 5
    Affaire = Sheets("Saisie").Range("Saisie_MO") + " - " + Sheets("Saisie").Range("Saisie_Nom") + " - " + Sheets("Saisie").Range("Saisie_Ville") + " - " + Sheets("Saisie").Range("Saisie_Archi")

    If MsgBox("Etes-vous sûr de vouloir archiver l'affaire " & Affaire & " ?", vbYesNo) = vbYes Then
        Worksheets("Donnees").Rows(ligne).Copy
        Application.DisplayAlerts = False
        Worksheets("Archives").Paste (Worksheets("Archives").Rows(ligne_archive))
        Application.DisplayAlerts = True
       
        'Supprime l'affaire du tableau données
        Worksheets("Donnees").Rows(ligne).Delete Shift:=xlUp
        
        'Evite la mise à jour de l'affaire sur l'affaire suivante
        Worksheets("Saisie").Range("Ligne_Aff_Ref") = 0
        
        'Met la liste des affaires à jour
        Worksheets("Saisie").Activate
        Call Remplir_Liste_Affaire
        MsgBox ("L'archivage de l'affaire a été effectuée")
    
    Else
        MsgBox ("L'affaire n'a pas été archivée")

    End If
    
   'Verrouille les pages
   Worksheets("Saisie").Protect
   Worksheets("Donnees").Protect
   Worksheets("Archives").Protect
    
End Sub

Le soucis, c'est que j'ai un message d'erreur sur la ligne "Worksheets("Donnees").Rows(ligne).Delete Shift:=xlUp" qui me dit
"Le méthode delete de la classe Range a échoué"

J'ai fait qq tests, comme supprimer tout ce qu'il y a avant, cela fonctionne, ma ligne est supprimée, et j'ai aussi supprimé "Worksheets("Donnees").Rows(ligne).Delete Shift:=xlUp", le code marche bien...

Qq saurait-il voir où se trouve mon pb ?
Merci d'avance !
 
Trier par date Trier par votes
Re : VBA : Delete rows

Bonjour,
ligne renvoie quel type de données ?
ligne correspond t-elle à la valeur de la cellule, si tant est qu'il en ait qu'une puisqu'on en sait rien, ou à son addresse
Bref faut être devin !
A+
kjin
 
Vote positif 0 Vote négatif
Re : VBA : Delete rows

Bonjour kjin,

"ligne" renvoie la valeur de ma case nommé "Ligne_Aff_Ref" de l'onglet Saisie.
Cela correspond à la ligne que je veux supprimer, donc une valeur (1, 2 3...).
La case "Ligne_Aff_Ref" n'est pas vide, et j'ai même fait un test juste avant ma ligne delete pour être sur que "ligne" contenait toujours la bonne valeur.
 
Vote positif 0 Vote négatif
Re : VBA : Delete rows

Essaie d'intervertir les lignes :
Code: 
       'Supprime l'affaire du tableau données
        Worksheets("Donnees").Rows(ligne).Delete Shift:=xlUp
        
        'Evite la mise à jour de l'affaire sur l'affaire suivante
        Worksheets("Saisie").Range("Ligne_Aff_Ref") = 0

Chez moi, tout marche parfaitement. Donc, la seule raison que je peux y voir, c'est que la ligne sélectionné est en mode "copie", pour supprimer ce mode, il peut simplement suffire d'éditer une autre cellule avant la suppression, ce que l'inversion des lignes peut faire...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA : Delete rows

Bonjour Pierrot,

Et bien non, je n'ai pas de cellule fusionnée dans ma ligne, ni dans aucune des lignes de l'onglet Donnees...
En plus je copie de donnees à archives, qui sont deux onglets totalement identique (mise à part le contenu des lignes)
 
Vote positif 0 Vote négatif
Re : VBA : Delete rows

Re,

il faut définir et initialiser ligne ainsi :
Code: 
Dim ligne As Range
Set ligne = Worksheets("Saisie").Range("Ligne_Aff_Ref")

on ne le répètera jamais assez, ne pas déclarer et ne pas typer les variables provoquent souvent des surprises...

ensuite tu pourras "deleter" ainsi :
Code: 
Worksheets("Donnees").Rows(ligne.Row).Delete Shift:=xlUp
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
934
Dranreb
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
712
TooFatBoy
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
333
escudo
E
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
405
job75
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
657
thunder23
L
  • Question Question
XL 2016 code VBA - masque afficher des lignes
Réponses
3
Affichages
640
Jacky67
L
  • Résolu(e)
XL 2016 finaliser mon code VBA
Réponses
8
Affichages
844
Linda42
L
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
438
Latias
L
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
980
Oneida
T
  • Question Question
XL 2021 message si une valeur n'existe pas
Réponses
6
Affichages
816
target
T
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
950
MickaeL_D
M
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
593
tactic6
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
695
loreak
L
A
  • Question Question
Microsoft 365 Retourner message si compteur 0
Réponses
4
Affichages
646
AD95
A
J
  • Résolu(e)
Autres Pb d'affichage d'un objet
Réponses
2
Affichages
541
JPaul78
J
S
  • Question Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
842
Staple1600
M
  • Résolu(e)
XL 2013 Liens hypertexte / Nouvelle onglet
Réponses
8
Affichages
869
vgendron
V
  • Question Question
XL 2016 Convertir en tableau
Réponses
6
Affichages
765
cp4
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…