macro automatique

[caroted]

Bonjour à tous,

Mon tableau est composé de plusieurs feuilles (une pour chaque départements plus une regroupant toutes les propriétés vendues). Je souhaiterais que lorsqu'on indique la date de cession d'une propriété (colonne J dans mon exemple) la ligne concernée soit supprimé et apparaisse dans la feuille "Cession".

est il plus facile de créer une macro ou une formule pour y arriver ?

Je vous remercie d'avance pour vos conseils.

Cordialement,

Caroted

 

[JCGL]

Re : macro automatique

Bonjour à tous,

Tu as posté sur le Forum XL 2003 mais ton fichier est basé sur du XL 2007 ou supérieur.
Le code ne sera le même suivant la version.

A + à tous

 

[caroted]

Re : macro automatique

Bonsoir,

J'ai excel 2007 sur mon PC mais le classeur excel que je réalise actuellement dans le cadre de mon stage doit être sous 2003. Merci

 

[kjin]

Re : macro automatique

Bonsoir,
Dans le module de ThisWorkbook

Option Base 1
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim T(10), x&, c As Range
If Sh.Name <> "Cession" Then
    If Target.Column = 10 And Target.Row > 4 And Target.Count = 1 Then
        If IsDate(Target) Then
            x = Target.Row
            T(1) = Cells(x, 1) 'commune
            T(2) = Cells(x, 7) 'vendeur
            T(3) = Cells(x, 2) 'nature
            T(4) = Cells(x, 3) 'sec cadastre
            T(5) = Cells(x, 4) 'N°
            T(6) = Cells(x, 5) 'lieu dit
            T(7) = Cells(x, 6) 'cont
            T(9) = Cells(x, 8) 'prix
            T(10) = Cells(x, 10) 'date cession
            With Sheets("Cession")
                Set c = .Range("A65000").End(xlUp).Offset(1, 0)
                Application.EnableEvents = False
                c.Resize(1, UBound(T)) = T
                Rows(x).Delete
                Application.EnableEvents = True
            End With
        End If
    End If
End If
End Sub

A+
kjin

 

[caroted]

Re : macro automatique

Merci pour votre réponse kjin,
Lorsque j'execute le code un message d'erreur apparaît : erreur d'exécution '424'. Objet requis

 

[caroted]

Re : macro automatique

En faite le code marche très bien sous 2007 mais n'a pas l'air de fonctionner sous 2003, quelqu'un aurai une idée ? Merci beaucoup