insertion automatique de nom dans une colonne

[jobardte]

bonjour
je souhaite saisir un nom dans une cellule et que ce nom s'ajoute automatiquement dans une colone a la suite des noms deja existants.

j'ai essayer un truc en vba , mais qui devient tres lent quand il y a beaucoup de nom....

merci de m'aider

salutation

 

[porcinet82]

Re : insertion automatique de nom dans une colonne

Salut,

Je te propose une solution par macro evenementielle a placer dans le module de la feuille concernée.

Private Sub Worksheet_Change(ByVal Target As Range)
'If Not Intersect(Target, Range("C2")) Is Nothing Then
    'Range("A65536").End(xlUp)(2).Value = Target
'End If
If Not Intersect(Target, Range("C2")) Is Nothing Then
    Range("A65536").End(xlUp)(2).Value = Target
    Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End If
End Sub

Le code qui est en commentaire permet simplement d'ajouter la valeur de la cellule remplit (dans le code c'est la cellule C2") a la suite de la colonne A.
Le code que j'ai laissé te permet d'ajouter directement un nom dans la colonne A mais de manière alphabétique (il y a un tri qui se fait sur la colonne A).

@+

 

[mjo]

Re : insertion automatique de nom dans une colonne

Bonsoir,

Il y a moyen de le faire par formule, et même sans doublons dans la liste.

Si cela t'interesse, fais signe, je te fais un petit exemple.

mjo

 

[mjo]

Re : insertion automatique de nom dans une colonne

Bonsoir,

Suite à ta demande (messagerie privée), un petit fichier explicatif en pièce jointe.

mjo