VBA : Delete rows

[yonini]

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 :

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 !

 

[kjin]

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

 

[yonini]

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.

 

[yoyoton]

Re : VBA : Delete rows

Essaie d'intervertir les lignes :

       '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...

 

[yonini]

Re : VBA : Delete rows

Bonjour Yoyoton,

J'ai essayé ce que tu m'as dit, mais ca ne marche toujours pas...L'erreur est toujours sur delete...

 

[Pierrot93]

Re : VBA : Delete rows

Bonjour à tous

A tout hasard, n'aurais tu pas des cellules fusionnées sur cette lignes ??

bon après midi
@+

 

[Pierrot93]

Re : VBA : Delete rows

Re

sinon, peut être ainsi :

Worksheets("Donnees").Rows(Range(ligne).Row).Delete Shift:=xlUp

mais sans voir le fichier....

 

[yonini]

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)

 

[Pierrot93]

Re : VBA : Delete rows

Re,

regarde le code posté à 15h40..;

 

[yonini]

Re : VBA : Delete rows

Je viens d'essayer, ca beug encore, mais j'ai un nouveau message d'erreur :
"La méthode 'Range' de l'objet '_Global' a échoué"...

Re

sinon, peut être ainsi :

Worksheets("Donnees").Rows(Range(ligne).Row).Delete Shift:=xlUp

mais sans voir le fichier....

 

[Pierrot93]

Re : VBA : Delete rows

Re,

il faut définir et initialiser ligne ainsi :

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 :

Worksheets("Donnees").Rows(ligne.Row).Delete Shift:=xlUp

 

[yonini]

Re : VBA : Delete rows

Re,

J'ai suivi ce que tu m'as dit. Et ca beug toujours...
Merci en tout cas pour tes conseils !

 

[Pierrot93]

Re : VBA : Delete rows

Re,

là, en l'état plus d'idée, cela fonctionne chez moi, et sans voir le fichier difficile de t'en dire plus...

 

[kjin]

Re : VBA : Delete rows

Re,

ligne renvoie quel type de données ?

Cela correspond à la ligne que je veux supprimer, donc une valeur (1, 2 3...).

Bah oui Pierrot, on a beau être téméraire, il y a des limites...
A+
kjin

 

[yonini]

Re : VBA : Delete rows

Le fichier contient des infos un peu confidentielles, je ne peux donc pas le faire suivre...