Transfert de ligne sous condition

bonjour à tous,

J'ai un tableau de suivi de carte d'adhérent.

J'y ai mis des MFC (vert quand la date d'expiration approche, et gris barré quand la date d'expiration est atteinte).

Seulement, certaine personne ne se réabonne pas et j'aimerai tout de même garder une trace de leur carte.

Et c'est pour cela que j'ai besoin d'aide.

Pour:

- mettre une croix dans la colonne restitution (H), en face des données grisés grace à une formule du style

b]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
.Column = 8 Then 'N° colonne H
.Value = "X"
End With
End Sub[/b]

- tranferer toute les lignes avec la colonne H croiter sur une autre feuille.

En espérant que j'ai été claire dans mes explications, je vous remercie d'avance pour votre aide.

Ci-joint le tableau

https://www.excel-pratique.com/~files/doc2/Classeur1_abonnes.xls

Petu

Bonsoir,

créer un onglet nommé "Restitution"

Dans le VBE de la feuille concernée (Agent), placer ce code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
''Macros par Claude Dubois pour "petula972" Excel-Pratique le 25 août 09
    If Not Application.Intersect(Target, Range("h5:h" & [a65000].End(xlUp).Row)) Is Nothing Then
        Dim Lg As Integer
            Lg = ActiveCell.Row
            If ActiveCell = "x" Or ActiveCell = "X" Then
                Range("a" & Lg & ":h" & Lg).Cut Destination:=[Restitution!A65536].End(xlUp)(2)
                ActiveCell.EntireRow.Delete
            End If
    End If
End Sub

Amicalement

Claude.

bonjour Dubois,

J'ai essayé la solution que tu m'as proposé et malheureusement, cela ne fonctionne pas.

Je te montre ce que j'ai fait.

https://www.excel-pratique.com/~files/doc2/u9GhFClasseur1_abonnes.xls

Je te remercie d'avance de m'aider

Petu

re bonjour,

finalement, j'ai réussi à mettre les croix en cliquant gauche dans la colonne H de mon tableau.

Maintenant, il faudrait juste m'aider pour le transfert des lignes où il y a les croix, dans la feuille "restitution".

https://www.excel-pratique.com/~files/doc2/OxTT8Classeur1_abonnes.xls

Merci d'avance

Petu

Bonsoir,

J'ai revu ma copie,

Tape une croix (x) en colonne "H" pour transférer la ligne

https://www.excel-pratique.com/~files/doc2/abonnes3.xls

Le code doit être dans le VBE feuille "Agent"

Amicalement

Claude.

re,

c'est parfait, je te remercie.

c'est exactement ce que je voulais.

A bientôt

Petu