Discussion :

[Arcenix]

Bonjour,

J'essaye de couper des lignes de ma feuille "Parc" et de les insérer à la ligne 2 de ma feuille "Rebut" suivant certaines conditions mais le débogage m'affiche cette erreur : "Erreur d'exécution '1004': La méthode Cut de la classe Range a échoué.". L'erreur s'affiche à la ligne 25 et j'ignore comment la résoudre.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range, KeyCells2 As Range
    Set KeyCells = Range("G2:G5000")
    Set KeyCells2 = Range("H2:H5000")
 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        Ligne1 = Target.Row
        ColonneRebut1 = Range("G" & Ligne1).Value
        ColonneStatus1 = Range("G" & Ligne1).Value
 
        If ColonneRebut1 <> "" And ColonneStatus1 = "Sorti Immo" Or ColonneRebut1 <> "" And ColonneStatus1 = "Destocké" Then
            Rows(Ligne1).Cut Sheets("Rebut").Rows(2).Insert
            MsgBox "La ligne " & Ligne1 & " vient d'être déplacée ... dans la feuille Rebut"
        End If
 
    End If
 
 
    If Not Application.Intersect(KeyCells2, Range(Target.Address)) Is Nothing Then
        Ligne2 = Target.Row
        ColonneRebut2 = Range("H" & Ligne2).Value
        ColonneStatus2 = Range("H" & Ligne2).Value
 
        If ColonneStatus2 = "Sorti Immo" And ColonneRebut2 <> "" Or ColonneStatus2 = "Destocké" And ColonneRebut2 <> "" Then
            Rows(Ligne2).Cut Sheets("Rebut").Rows(2).Insert
            MsgBox "La ligne " & Ligne2 & " vient d'être déplacée ... dans la feuille Rebut"
        End If
 
    End If
 
End Sub

Merci d'avance

P.S: Je suis débutant en VBA.

[riaolle]

Bonjour,
Je ne te promets rien , mais essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Rebut").Rows(2).Insert
Rows(Ligne2).Cut destination:=Sheets("Rebut").Rows(2)

[Arcenix]

Merci beaucoup, ça fonctionne !

Cependant, je ne comprends pas comment ? Peux-tu m'expliquer s'il te plaît ?

[riaolle]

Je suis pas sûre de vraiment pouvoir l'expliquer.
En "manuel", quand on copie une ligne, puis qu'on ajoute une ligne, la ligne copiée se colle sur la ligne ajoutée. Mais apparemment cela ne se passe pas en VBA... Du coup, ce que je te propose avec le code, c'est :

1. Ajouter une ligne
2. Copier la ligne voulue
3. Coller sur la ligne ajoutée auparavant (destination indique la destination sur laquelle tu veux coller)

Si ton problème est résolu, n'oublie pas de cliquer sur le bouton résolu
Bon courage pour la suite !