inserer un nom dans une liste

[rick]

bonjour, j'aimerais que lorsque je rentre un nom dans une cellule celui-ci aille placer le nom dans une liste.

merci

 

[Hervé]

Bonjour

Pas sur d'avoir tout compris

Ce code à placer dans la feuille voulue (clique qroit sur le nom de l'onglet, puis visualiser le code), te permettra de créer dans la colonne A, la liste des noms saisie sur la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Columns(1)) Is Nothing Then
Range('a' & Range('a65536').End(xlUp).Row + 1) = Target.Value
End If
End Sub

A plus

 

[Hervé]

re

BOOM

 

[_Thierry]

Bonjour Rick, le Forum

Pas claire du tout ta question... Liste ? quelle Liste ?

Enfin voilà une Double Procédure qui reportera en colonne 'B' ligne à ligne tout ce que tu saisiras en cellule 'A1', pour autant que tu ne saisisses pas deux fois la même chose en 'A1' coup sur coup...

NB Code à Copier et Coller Dan le Private Module de La Feuille En Question.

Option Explicit

Private KeepInMemory As String

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'A1' Then
    KeepInMemory = Target.Value
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CurrentCell As Range
Set CurrentCell = Me.Range('B' & Me.Range('B500').End(xlUp).Row + 1)

    If KeepInMemory <> '' Then
        If KeepInMemory <> CurrentCell.Offset(-1, 0) Then CurrentCell = KeepInMemory
    End If
End Sub

TIPS ! Pour atteindre le Private Module d'une Feuille, tu sélectionnes l'onglet et tu fais un click droit, puis, dans le menu contextuel 'Visualiser le Code'

Bonne Fin d'Après Midi
@+Thierry

 

[_Thierry]

re Hervé

Le Boum ! c'était en prévision de mon arrivée !! lol

Bon sinon on voit bien que Rick ne nous a pas suffisamment informé, car moi j'ai compris autre chose que toi lol !!!

Toi c'est n'importe où dans la feuille (Sauf Colonne 'A'), si tu tapes un truc, hop en colonne 'A' à la suite...

Moi c'est si tu Tape en 'A1' uniquement, Hop en colonne 'B' à la suite, pour autant que ce ne soit pas un doublon à la suite.

On verra bien !!! Si y faut c'est tout à fait autre chose dont Rick à besoin !!! LOL

Bonne Fin d'Aprèm
@+Thierry

 

[dermience]

bonjour

j'espère que cette solution répond à ta question

bonne soirée [file name=insertion nom_20050309185159.zip size=2048]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/insertion nom_20050309185159.zip[/file]