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

Sergiosanchez

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
Bonjour Sergiosanchez,
Un essai en PJ avec :
VB:
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
 

Pièces jointes

  • Classeur4.xlsm
    15.3 KB · Affichages: 7

job75

XLDnaute Barbatruc
Bonjour Sergiosanchez, bienvenue sur XLD, salut sylvanu,

Clic droit sur l'onglet de la feuille "a" => Visualiser le code et collez cette macro :
VB:
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+
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 947
Messages
2 093 835
Membres
105 850
dernier inscrit
mat.prv