Coller par simple click

[lanoe]

Bonjour le forum,

Je souhaite un macro que je n’ai encore jamais vu…au cas où, si cela vous semblerait possible :
1- Activer la macro par bouton
2- Copier le contenue de c1 et le coller quand je sélectionne une cellule par un simple click uniquement colonne A
3- Désactiver la macro par un bouton


Merci d’avance

lanoe

 

[Catrice]

Re : Coller par simple click

Bonjour,

Au cas où, il y a quelque chose de ressemblant déjà implémenté dans Excel...

Clic droit sur C1 (le bord de la cellule)
Glisser vers la destination
Cliquer sur "Copier ici"

La meme chose peut etre faite en maintenant la touche controle appuyée :
Sélectionner C1
Glisser déplacer vers la destination en maintenant CTRL appuyée

Il y a aussi :
clic droit copier
destination
clic droit coller


Ci-joint une macro qui fait ce que tu souhaites ...

 

[lanoe]

Re : Coller par simple click

Bonjour,

Merci pour ta réponse, je connais les conseils que tu donnes, mais cela n'est pas assez efficace pour les utilisateurs de mon programme.

Cordialement

lanoe

 

[Catrice]

Re : Coller par simple click

Re,

J'ai mis un fichier dans le Post précédent qui fais ce que tu souhaites ...

 

[lanoe]

Re : Coller par simple click

Re,

Sur le principe impeccable, il faudrait simplement que je puisse coller plusieurs fois de suite, sans avoir à clicker.

lanoe

 

[Dull]

Re : Coller par simple click

Salut lanoé, Catrice🙂, le Forum

Vraiment tiré par les cheveux 😀... maisalors...vraiment

Bonne Journée

EDITION: Désolé je n'avais pas vu col A 😛 Salut job75 🙂

 

[Catrice]

Re : Coller par simple click

Re,

Autant pour moi, j'avais mal lu l'énoncé, il faut enlever une ligne :

Private Sub CommandButton1_Click()
CommandButton1.Caption = IIf(CommandButton1.Caption = "Arrêter", "Démarrer", "Arrêter")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And CommandButton1.Caption = "Arrêter" Then
Target.Value = Range("C1").Value
End If
End Sub


Voir le fichier joint

 

[job75]

Re : Coller par simple click

Bonjour lanoe, salut Catrice,

J'avais fait ce fichier mais Catrice a été plus rapide, Edit : et de toute façon ce n'est pas une bonne méthode avec la variable Flag.

Edit : salut Dull

A+

 

[lanoe]

Re : Coller par simple click

Re,

Grand merci à Vous...

lanoe

 

[Catrice]

Re : Coller par simple click

Re bonjour à tous,

Me revoilà...
Peux etre qu'il faut modifier cette ligne :
Target.Value = Range("C1").Value
en
Target.Resize(1, 1) = Range("C1").Value

En effet, si on selectionne A5:E10 par exemple (avec mon code d'origine) => surprise 😀

Autres solutions :

'Autorise à coller sur plusieurs lignes seulement dans la colonne A
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Columns.Count = 1 And CommandButton1.Caption = "Arrêter" Then
Target.Value = Range("C1").Value
End If
End Sub

'Autorise à coller que sur une seule cellule destination (si on a selectionné une seule cellule destination)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And CommandButton1.Caption = "Arrêter" Then
Target.Value = Range("C1").Value
End If
End Sub