Discussion :

[profaites]

Bonjour à tous et bravo pour les aides que vous pouvez apporter.

donc voici le problème auquel je suis confronter :

je gère une salle des ventes. chaque article ( meuble en général ) est référencé puis est décrit et enfin des colonne explique son état ( vendu, don , date , eco-mobilier)

je suis en train de programmer une macro que je voudrai mettre dans la dernière cellule de la ligne qui doit être testée. Celle-ci test la colonne D ( vendu ) de la feuille si différente de "" ( ici un X ) j'aimerai copier la ligne de la cellule dans une autre feuille intitulée "Vendu" à la suite des lignes déjà présentes puis cacher la ligne qui vient d'être copier.

je ne veux pas les supprimer car les données de ces lignes sont utilisées dans d'autre feuille.

voila j'espère avoir été assez clair sinon demandez je vous répondrai le plus vite possible.

donc toute aide serait la bienvenue car je ne suis que débutant en programmation macro .

si on peux faire cela en formule dans la dernière cellule à la place d'une macro je suis preneur aussi.

merci d'avance

[curt]

Bonjour,

une vue (copie d'écran) serait la bienvenue

[profaites]

Bonjour,

une vue (copie d'écran) serait la bienvenue

la formule serait dans la cellule jaune

autrement en macro voila ou j'en suis

[anasecu]

Bonjour à tous

Celle-ci test la colonne D ( vendu ) de la feuille si différente de "" ( ici un X ) j'aimerai copier la ligne de la cellule dans une autre feuille intitulée "Vendu" à la suite des lignes déjà présentes puis cacher la ligne qui vient d'être copier.

Ton souhait est difficile à réaliser sans macro alors je te propose de coller cette macro dans la feuille vendu et cela devrait répondre à ton attente.

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
Private Sub Worksheet_Activate() ' onglet vendu
Dim der As Long
    With Sheets("Inventaire")
        Cells.ClearContents
        .Rows.Hidden = False
        Range("A1:H1").Value = .Range("A1:H1").Value
        .Range("M1").Value = "ventes"
        .Range("M2").FormulaR1C1 = "=NOT(ISBLANK(RC[-9]))"
        der = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("A1:H" & der).AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=.Range("M1:M2"), CopyToRange:=Range("A1:H1"), Unique:=False
        .Range("M1:M2") = ""
        For der = der To 2 Step -1
            If .Cells(der, "D") <> "" Then .Rows(der).Hidden = True
        Next der
    End With
End Sub

Lorsque tu sélectionnes la feuille "vendu" les lignes sont affichées et masquées dans la feuille "Inventaire"

[anasecu]

Bonjour profaites

voila j'espère avoir été assez clair sinon demandez je vous répondrai le plus vite possible.

Les promesses n'engagent que ceux qui les croient disait un président et j'ai l'impression que la rapidité de réponse n'ait pas celle promise : tant pis pour moi.

[profaites]

Bonjour profaites



Les promesses n'engagent que ceux qui les croient disait un président et j'ai l'impression que la rapidité de réponse n'ait pas celle promise : tant pis pour moi.

dsl je n'ai pas eu le temps de m'y consacrer

dès que je le fait je te tient au courant

merci de ton aide en tout cas