Autres Copier une cellule sur une autre feuille quand on clique dessus

[Sergiosanchez]

Bonjour, un peu d'aide sur excel 2007
Sur une feuille "a" j'ai une liste d'adhérents et sur une feuille "b" j'ai une liste vide.
Je voudrai, quand je clique sur un nom d'adhèrent, que celui-ci soit copié sur la première cellule vide de la liste vide
Et quand je clique sur un autre nom qu'il soit copié juste en dessous du premier.
Si possible un contrôle des doublons serait le bienvenu.

Merci pour votre aide

 

[sylvanu]

Bonjour Sergiosanchez,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
        Application.ScreenUpdating = False
        With Sheets("B")
            DL = 1 + .Range("A65500").End(xlUp).Row
            .Cells(DL, "A") = Target
            .Range("$A$1:$A$" & DL).RemoveDuplicates Columns:=1, Header:=xlYes
        End With
    End If
Fin:
Application.ScreenUpdating = True
End Sub

 

[Sergiosanchez]

Merci beaucoup.
A quoi sert la macro4 ?
Et est ce que vous pouvez m'expliquer le deroulement du code ?
Passez une très belle journée

 

[job75]

Bonjour Sergiosanchez, bienvenue sur XLD, salut sylvanu,

Clic droit sur l'onglet de la feuille "a" => Visualiser le code et collez cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col%
col = 1 'colonne des noms, à adapter
If Target.Row = 1 Or Target.Column <> col Or CStr(Target(1)) = "" Then Exit Sub
Cancel = True
With Sheets("b").Columns(1)
    .Cells(1) = "Nom"
    .Find("", , xlValues) = CStr(Target(1))
    .RemoveDuplicates 1, Header:=xlYes 'supprime les doublons
End With
End Sub

Elle se déclenche quand on fait un double-clic dans la colonne concernée.

A+

 

[Sergiosanchez]

Merci, ca fonctionne mais ça efface le quadrillage et la couleur de fond.
Bonne journée

 

[sylvanu]

Bonjour,
Alors fournissez un petit fichier test, comme recommandé dans la charte. ( Lien )
Ou reformulez votre demande. Nous ne sommes pas devins.

 

[Sergiosanchez]

Désolé, pour le fichier.
Là ça fonctionne.
mille mercis