Discussion :

[Arcenix]

Bonjour,

Etant débutant en VBA et ne sachant pas du tout comment faire, j'aurais besoin de votre aide !

Le but est de réaliser une macro qui permet de couper/coller une ligne dans une autre feuille si la cellule d'une colonne est modifiée.
Par exemple, si une cellule de ma colonne A est non vide ou une cellule de ma colonne B est égale à "Toto" dans ma feuille1, alors il coupe et colle la ligne dans ma feuille2.

De plus, j'aimerais que cela soit automatisé ... c'est-à-dire que dès lorsque les cellules répondent aux conditions (colonne A = cellule non vide, colonne B = toto), il m'effectue le couper/coller dans l'autre feuille et qu'il ne m'écrase pas les lignes qui y sont déjà collées.

Est-ce que quelqu'un saurait comment faire ?

Merci d'avance !

[Menhir]

si la cellule d'une colonne est modifiée.

Utiliser un évènement Worksheet_Change en vérifiant que la cellule qui a changé est dans la zone qui t'intéresse.
https://msdn.microsoft.com/fr-fr/lib.../ff839775.aspx

couper/coller une ligne dans une autre feuille

Méthode Cut appliqué à un Range (ou un Row) référençant ta ligne.
https://msdn.microsoft.com/fr-fr/lib.../ff838374.aspx

qu'il ne m'écrase pas les lignes qui y sont déjà collées.

Utilise la propriété End(xlUp) de Range pour trouver quelle est la dernière ligne remplie et donc faire le coller sur la suivante.
https://msdn.microsoft.com/fr-fr/lib.../ff839539.aspx

[Arcenix]

Merci pour ta réponse !

J'ai réussi à écrire un bout de code à l'aide de tes liens mais ça ne fonctionne pas :

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells, KeyCells2 As Range
    Set KeyCells = Range("G2:G5000")
    Set KeyCells2 = Range("H2:H5000")
    Dim DernLigne1, DernLigne2 As Long
 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        Ligne1 = Target.Row
        DernLigne1 = Worksheets("Rebut").Range("A" & Rows.Count).End(xlUp).Row
        Range(Ligne1).Cut (DernLigne1)
        MsgBox "La ligne " & Ligne1 & " vient d'être déplacée ... dans la feuille Rebut"
    End If
 
 
    If Not Application.Intersect(KeyCells2, Range(Target.Address)) Is Nothing Then
        If Target.Value = "Sorti Immo" Or Target.Value = "Destocké" Then
            Ligne2 = Target.Row
            DernLigne2 = Worksheets("Rebut").Range("A" & Rows.Count).End(xlUp).Row
            Range(Ligne2).Cut (DernLigne2)
            MsgBox "La ligne " & Ligne2 & " vient d'être déplacée ... dans la feuille Rebut"
        End If
    End If
 
End Sub

Je ne comprends pas le soucis avec le couper/coller ...
Une idée ?

Merci

[Menhir]

ça ne fonctionne pas :

"Ca ne fonctionne pas", ça n'est pas très précis comme description de dysfonctionnement.

Code :

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

    Dim KeyCells, KeyCells2 As Range

Quand tu écris ça, seule KeyCells2 est déclaré comme Range.
KeyCells est déclarée comme Variant.
La bonne syntaxe est

Code :

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

    Dim KeyCells As Range, KeyCells2 As Range

Code :

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

1
2
3
        Ligne1 = Target.Row
        DernLigne1 = Worksheets("Rebut").Range("A" & Rows.Count).End(xlUp).Row
        Range(Ligne1).Cut (DernLigne1)

Ca c'est pas bon.

Dans le Range de la seconde ligne, tu ne donnes qu'un numéro de ligne alors qu'il faut donner une adresse complète (ligne et colonne).
Si tu veux te référencer uniquement à la ligne, il faut utiliser Rows à la place de Range.

La destination de Cut ne doit pas être une valeur numérique mais une référence de cellule.

[Arcenix]

Rebonjour,

J'ai modifié la destination de mon cut et j'obtiens maintenant ceci :

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
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")
    Dim DernLigne1, DernLigne2 As Long
 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        Ligne1 = Target.Row
        Rows(Ligne1).Cut Worksheets("Rebut").Cells(Rows.Count, 1).End(xlUp)(2)
        MsgBox "La ligne " & Ligne1 & " vient d'être déplacée ... dans la feuille Rebut"
    End If
 
 
    If Not Application.Intersect(KeyCells2, Range(Target.Address)) Is Nothing Then
        If Target.Value = "Sorti Immo" Or Target.Value = "Destocké" Then
            Ligne2 = Target.Row
            Rows(Ligne2).Cut Worksheets("Rebut").Cells(Rows.Count, 1).End(xlUp)(2)
            MsgBox "La ligne " & Ligne2 & " vient d'être déplacée ... dans la feuille Rebut"
        End If
    End If
 
End Sub

Le débogage ne m'affiche aucune erreur de code cependant lorsque je modifie l'une des cellules concernées par le couper/coller dans l'autre feuille, mon classeur se fige et il n'effectue pas la modification ...