Déplacer le contenu d'une cellule par ajout

[sophiabella]

Bonjour,

Je veux fabriquer une liste de noms sur excel sur 1 seule colonne et pour ce faire je veux pouvoir ajouter les différents noms de cette liste en les sélectionnant 1 par 1 sur une page web par clique gauche glissement de souris et les faire glisser toujours dans une même cellule excel:

exemple : j'ai une page internet avec 3 noms, pierre paul jacques. Je sélectionne pierre avec ma souris en cliquant droit dessus et je fais glisser en cellule A1 dans mon classeur excel, je répète cette action pour les 2 autres noms que je fais glisser de nouveau en A1 et j'ai le résultat suivant :

A1 Pierre
A2 Paul
A3 Jacques

Pourquoi je souhaites faire sa ? C'est pas pour vous embêter :mouarf:tdr:: , c'est parce que j'ai besoin de faire une colonne avec plus de 1000 noms et sa me facilitera énormément de les faire glisser dans la même cellule.

J'avais une solution qui marchait qui consistait à appuyer sur la touche Maj et sa se chevauchait automatiquement mais pour des raisons que j'ignores sa ne marche plus !! J'ai un message d'erreur qui me dit quelque chose du genre "le contenu ne peut pas se chevaucher" alors qu'avant sa pouvait !!

Merci beaucoup pour votre aide j'en ai vraiment besoin. Dans l'idéal je préférerais une solution qui ne m'oblige pas a appuyer sur aucune touche, je préférerai un drag & drop tout simple mais si vous avez une solution avec l'appui d'une touche je prends aussi !

Merci encore

 

[Usine à gaz]

Bonjour Job75, à toutes et à tous,

Je suis en accord avec vous mais quand même, rien n'empêche de "souligner" les bêtises et impolitesses et, pourquoi pas, de rire du ridicule à condition de ne pas en abuser LOL.
Amicalement,
Lionel,

 

[job75]

Bonjour Lionel,

C'est tout à fait mon opinion.

A+

 

[Si...]

Hello, ... d’un autre Monde

Bon courage à toi Job et surtout aux Autres (y compris les "bonnes gens"), car les plus jeunes devront subir plus longtemps tant d’Incivilité, de vilenies sans ne rien dire .

 

[phlaurent55]

Bonjour à tous,

Le calme semblant être de retour, je me décide à poster ce fichier que je gardais en attente depuis hier

à+
Philippe

 

[job75]

Bonjour Philippe, le fil,

J'utilisais une CheckBox pour activer/désactiver la macro mais ce n'est pas indispensable :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:C]) Is Nothing Or Target.Address <> ActiveCell.Address Then Exit Sub
Dim mem
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
mem = Target
Application.Undo
Cells(Rows.Count, Target.Column).End(xlUp)(2) = mem
Application.EnableEvents = True
End Sub

Fichier (2).

A+