Déplacer le contenu d'une cellule par ajout

sophiabella · 22 Janvier 2017

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

sophiabella · 22 Janvier 2017

j'ai pas cliqué ton lien mais je l'ai inspecté :

<a href="http://www.espacefrancais.com/difference-entre-ce-se-ces-ses-cest-sest-cest-ce-sont/" target="_blank" class="externalLink ProxyLink" data-proxy-href="proxy.php?link=http%3A%2F%2Fwww.espacefrancais.com%2Fdifference-entre-ce-se-ces-ses-cest-sest-cest-ce-sont%2F&hash=7fdfbd22c0520a6fcb3660ea347ca714" rel="nofollow">LIEN</a>

Tu voulais jouer au plus intelligent, mais tu l'a eu dans le cul Pierre. Vous êtes trop prévisibles bande d'animaux

pierrejean · 22 Janvier 2017

Bonjour à tous

Tu voulais jouer au plus intelligent, mais tu l'a eu dans le cul Pierre. Vous êtes trop prévisibles bande d'animaux
Avec ce genre d'apostrophe , le nombre de réponse va prendre une ascension fulgurante !!!!!!

Victor21 · 22 Janvier 2017

Très cher (e) sophiabella

sophiabella à dit:
j'ai pas cliqué ton lien

Dommage ! Vous auriez dû ! Vous vous seriez couché(e) un tout petit peu moins bête que quand vous vous êtes levé(e). Mais ce n'est pas votre but, semble-t-il !
Vous préférez sans doute la vulgarité à la culture. Et c'est votre droit !

PS : J'ai demandé que vous soyez banni(e) de ce forum, voire fouetté(e) en place publique.

eastwick · 22 Janvier 2017

Je trouve tout ça bien triste bien que reflétant la réalité de notre époque. Ce site, outre les services qu'il rend, nous recadre sous le signe du respect et de la politesse, valeurs surannées sans doute...

Usine à gaz · 22 Janvier 2017

Bonjour à toutes et à tous et à tous les insultés.

LOL, on croit rêver ... science diction de la bêtise humaine.
à plus de 65 ans, je suis toujours surpris.
Bien sûr, tout mon soutien pour DoubleZéro et les autres.
je n'écrirai pas ce que je pense de sophiabella qui n'a certainement d'agréable et d'attirant que son pseudo LOL

Amicalement,
Lionel,

Usine à gaz · 22 Janvier 2017

Victor21 à dit:
Très cher (e) sophiabella

Dommage ! Vous auriez dû ! Vous vous seriez couché(e) un tout petit peu moins bête que quand vous vous êtes levé(e). Mais ce n'est pas votre but, semble-t-il !
Vous préférez sans doute la vulgarité à la culture. Et c'est votre droit !

PS : J'ai demandé que vous soyez banni(e) de ce forum, voire fouetté(e) en place publique.

Ah OUI, qu'on fouette LOL qu'on fouette
mais ça ne donnera certainement pas une bonne pâtisserie LOL
Ah non, on ne la banni pas tout de suite ... on en profite mais OK pour le fouet.
PS : il ne serait pas un peu coquin notre Victor21 ?

DoubleZero · 22 Janvier 2017

Bonjour à toutes et à tous,

Cf. ici...

A bientôt

P. S. : mon "parainsulte" est ouvert...

Patrice33740 · 22 Janvier 2017

Bonjour,

Non seulement la politesse te fait défaut, mais poster sur plusieurs forums sans en informer personne, est un manque de respect envers tous les bénévoles qui te consacrent de leur temps pour résoudre ton problème !
N'étant pas au courant de ce qu'il se passe sur les autres forums, ils perdent leur temps avec des questions qui ont déjà des réponses sur les autres forums.
Pendant ce temps là, ils pourraient répondre à d'autres personnes qui eux aussi ont besoin d'aide.

Patrice

Si... · 22 Janvier 2017

Mauvais_ soir à toi sonia dite bella (que tu dis - mais surtout maleducate)
Bon_ soir à vous, ardents supporters de notre inestimable Collègue

Hou_ Hou Ò^Ó

Fouette cocher (pour le chevauchement) et pourquoi pas une contrainte par corps (pour le drag and drop) ?

Il ne s’agit quand même pas de verser dans le sadomasochisme .

Une ignorance totale de ce Sujet devrait marquer le coup (si ce n'est déjà fait) et suffire* à le renvoyer à ses chères études, ne serait-ce que pour apprendre la politesse (un des premiers maillons du Respect d’autrui)

*Il en est qu’on jette par la porte et qui malheureusement reviennent par la fenêtre

Usine à gaz · 22 Janvier 2017

En fait, notre impoliE est peut-être masculin.
Sur excel Pratique, son pseudo est Polux LOl
Quel Rigolo que celui-là

job75 · 22 Janvier 2017

Bonsoir tout le monde,

Malgré ce climat plus que frisquet je donne quand même une réponse car ainsi, comme le dit Patrick, le demandeur se couchera un peu plus intelligent ce soir.

Et d'autres aussi sans doute.

A+

job75 · 22 Janvier 2017

Re,

J'avais lu trop vite le post #1.

En fait il s'agit de déplacer la donnée entrée (ou collée) sous la dernière cellule remplie de la colonne.

C'est encore plus simple :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not CheckBox1 Or Target.Count > 1 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 joint.

Bonne fin de soirée.

Calvus · 22 Janvier 2017

Bonsoir,

Ce n'est peut être pas de la faute de sophiabella.
Elle (ou il...) a peut être un Mac au lieu d'un PC....

Lien =>
P...C....
M...A...C...

job75 · 23 Janvier 2017

Bonjour à tous,

Ma réflexion du jour, au café du commerce.

A 75 ans j'ai pu vérifier que beaucoup de gens sont stupides, méchants ou malhonnêtes, qualités cumulables.

S'il fallait tous les bannir il n'y aurait plus grand monde sur cette planète.

Et ce ne serait pas forcément plus drôle.

Bonne journée.

Déplacer le contenu d'une cellule par ajout

sophiabella

XLDnaute Nouveau

sophiabella

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Victor21

XLDnaute Barbatruc

eastwick

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Patrice33740

XLDnaute Impliqué

Si...

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Calvus

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires