copié automatique

[Potentis]

Bonjour le forum,

je cherche a faire un truc simple mais pas si simple a créer

je voudrais en cliquant sur une cellulle quelconque copier le texte qui se trouve dans cette cellulle

si je selectionne une autre cellulle il faudrait que le précedent texte mémorisé soit effacé et remplacé par le nouveau texte de cette nouvelle cellulle

par contre pour une mesure de commodité je voudrais que ca ne se fasse uniquement dans le classeur toto.xls et dans la feuille Feuil2
Merci de m'expliquer l'endroit où je pourrais modifier le nom du fichier et de la feuille

désolée je n'ai pas de fichier a joindre car je ne sais pas comment expliquer autrement ma demande

je reste à votre disposition pour d'éventuels complément d'info

Merci d'avance
Potentis

 

[Compte Supprimé 979]

Re : copié automatique

Salut Potentis,

Je ne sais pas si j'ai bien compris ta demande ?
Voir le fichier joint, le code se trouve dans Feuil2 uniquement

A+

 

[Potentis]

Re : copié automatique

Salut Bruno
Merci mais ce n'est pas cela

en fait dans cette Feuill2 jaurai du texte dans une vingtaine de cellule
essai 1, bonjour, Merci, ....etc

et je voudrais juste en selectionnant la cellule que ca fasse Ctrl + C du texte de cette cellule pour ensuite aller dans un pu plusieurs autres classeurs et faire Ctrl + V pour coller le texte
ensuite je reviens dans la Feuill2 je selectionne la cellule où ya ecris Merci par exemple ca copie Merci en mémoire et dans un autre classeur a lendroit que je desire je fais un Ctrl + V ...Etc

désolée de navoir pas su etre clair dans ma demande^^_^^

a bientot

 

[Compte Supprimé 979]

Re : copié automatique

Re,

Je n'ai toujours rien compris 😕😱

Pour mettre une valeur d'une cellule dans plusieurs onglet au même endroit, rien de plus simple ...

1) Tu sélectionnes l'onglet source et tous les autres avec SHIFT ou CTRL appuyé
2) Tu appuies sur F2 pour entrer en mode édition
3) tu valide en appuyant sur 'Entrée'
Le tour est joué tous tes onglets contiennent dans la même cellule le texte que tu as validé 😉

Mais je n'ai certainement iren compris 😛

A+

 

[Potentis]

Re : copié automatique

Salut Bruno
ne t'en fais pas pour ca je vais expliquer d'une autre facon (j'ai du mal a m'expliquer)

imagine dans
A1 azerty123
A2 qsdfg456
A3 wxcvbn789
A4 Mettre le commutateur en position 2
A5 La vie est un long fleuve tranquille
...Etc

donc voila je cherche un truc qui va mémoriser le contenu de la cellule que je vais sélectionner
c'est comme si je me mets en A1 et que je fasse Ctrl + c
ensuite j'irai dans un autre classeur ou alors sur un site web et je ferai Ctrl + v pour coller azerty123

je cherche juste a éviter Ctrl + c car je passe mon temps a écrire la même chose plusieurs fois par jour c'est pour cela que j'ai eu l'idée de faire une sorte de copié automatique juste en sélectionnant 1 cellule
et je voudrais que cette petite astuce ne se fasse que dans la feuille 2 d'un classeur pour que je puisse chez moi l'adapter a un autre classeur et feuille

encore désolé pour la gêne
et merci de ta patience et de ton aide

Cdt
Potentis
----------------------------------------------------------------
Re
voila je viens de faire de petite chose et j'ai trouvé ceci
Range("A2").Select
Selection.Copy

ce que je cherche a obtenir c'est Selection.Copy mais qu'il se fait lorsque je sélectionne une cellule dans mon exemple A2
pour dire autrement je clic sur A2 et le Selection.Copy se fait tout seul
et
si ensuite je clic sur A3 bin un nouveau Selection.Copy se fait en remplacant le contenu de A2 par celui de A3

on va y arriver ^^

Cdt
Potentis

 

[Compte Supprimé 979]

Re : copié automatique

Salut Potentis,

Essaye avec ce code à mettre dans ThisWorkbook

Option Explicit
Public MemCel As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  ' Si l'utilisateur se trouve dans la feuille 2
  If Sh.Name = "Feuil2" Then
    ' On mémorise la valeur de la cellule dans laquelle on se trouve
    Set MemCel = Target
  Else  ' Sinon on colle la cellule mémorisée
    Target = MemCel
  End If
  ' On efface la variable objet
  Set MemCel = Nothing
End Sub

A+ 😉

 

[Potentis]

Re : copié automatique

Salut Bruno,

un collègue m'a trouvé la solution a mon problème
je tenais a te la donner et te remercier pour ton aide
et surtout a m'excuser de n'avoir pas su bien faire ma demande

voila le code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveCell.Select
Application.CutCopyMode = False
Selection.Copy

End Sub

en tâtonnant j'avais un peu trouvé les 2 dernières lignes mais impossible de trouver la 1er ActiveCell.Select

encore Merci pour ton aide et encore désolé de mon cafouillage

Cdt
Potentis