Copie/colle en cliquant sur un cellule

Bonjour,
Je ne pense pas que mon problème soit très compliqué mais étant novice, je vous demande votre aide.
Je souhaite, après avoir cliqué sur une céllule pleine puis sur un cellule vide, avoir le contenu de ma cellule pleine dans ma cellule vide. En somme un copie colle avec un simple clique sur les 2 cellules concernée par ces cliques.
Merci d'avance pour votre aide :)
Cordialement
Kalchips

Bonjour,

Citation:

---

Je souhaite, après avoir cliqué sur une céllule pleine puis sur un cellule vide, avoir le contenu de ma cellule pleine dans ma cellule vide

---

je ne sais pas si c'est possible mais est-ce trop long, après avoir cliqué sur la cellule de destination de faire un "Ctrl + V"

à copier dans la feuille où tu souhaites utiliser la macro :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Not IsEmpty(ActiveCell) Then ActiveCell.Copy ElseIf Application.CutCopyMode = xlCopy Then ActiveSheet.Paste Application.CutCopyMode = False End If   End Sub

---

Ca ne fonctionne que pour les cellules, si tu en as besoin pour des plages je regarderais pour transformer le code :)

Bonjour Vincent,
ton code est sympa mais pour la suite, Kalchips risque d'avoir des problèmes quand il manipulera sa feuille, enfin ! c'est un choix à faire

bonne journée

Toute macro peut gêner, cela dépend de l'utilisation que l'on en fait.

En l'occurence cette macro n'empêche pas l'édition des cellules sélectionnées et la copie ne s'effectue qu'une fois, cela limite les risques.

La solution pour empêcher les copies non voulues serait de bloquer ou débloquer la macro avec un bouton ou case à cocher :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   'CopieDirecte est une checkbox sur ma feuille 'si cochée alors vrai, sinon faux If CopieDirecte.Value Then If Not IsEmpty(ActiveCell) Then ActiveCell.Copy ElseIf Application.CutCopyMode = xlCopy Then ActiveSheet.Paste Application.CutCopyMode = False End If End If   End Sub

---

Voir, plus propre, un bouton dans une barre personnalisée (mais je sais pas faire).

re,

Citation:

---

Toute macro peut gêner, cela dépend de l'utilisation que l'on en fait.

---

tu as raison mais je me demande justement quelle utilité ?

en proposant une case à cocher, on pourrait aussi proposer un bouton de commande qui copie les cellules sélectionnées (si il y en a plusieurs), ce n'est pas plus lourd à gérer.

J'ai certainement tort, ne connaissant pas le but final, mais ton idée est bonne. :ccool:

Je n'était plus disponible mais, par rapport à ce que je disais et afin d'orienter Kalchips sur d'autres solutions possibles

un bouton de commande et son code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton1_Click() Dim refcopier As Range, refcoller As Range, i As Integer Dim copierstring As String, collerstring As String Set refcopier = Application.InputBox("Sélectionner les cellules à copier" & Chr(10) & "Appuyer sur Ctrl pour sélectionner plusieurs cellules", Type:=8) copierstring = refcopier.Address Set refcoller = Application.InputBox("Sélectionner les cellules de destination" & Chr(10) & "Appuyer sur Ctrl pour sélectionner plusieurs cellules", Type:=8) collerstring = refcoller.Address If copierstring Like "*:*" Then refcoller.Value = refcopier.Value ElseIf copierstring Like "*,*" Then For i = 0 To UBound(Split(refcopier.Address, ",")) Range(Split(refcoller.Address, ",")(i)) = Range(Split(refcopier.Address, ",")(i)) Next i Else refcoller.Value = refcopier.Value End If End Sub

---

Merci beaucou pour votre aide! Je souhaite utiliser un programme et pas un Ctrl + V car ce sera pour une utilisation de plusieurs personnes pas forcément à l'aise en informatique... Je vais essayer la dernière version du programme puis je vous tiens au courant!
Merci encore de votre aide rapide et précise!

Dans mon souvenir, après avoir tapé la macro dans le module VBA d'excel, on cliqué sur la fléche verte qui lancer l'exécusion de la macro. C'est ce que j'ai fait aujourd'hui mais au lieu de lancer la macro, ca me demande de la nommer. Je le fais et ca me créé une nouvelle macro au dessous de la première... Comment dois-je m'y prendre?
Merci

Si tu utilises la macro de casefayere, il faut que tu mettes un bouton sur ta feuille. Pour cela, affichage > barre d'outils > Visual Basic > Boîte à outils Contrôles et tu choisis Bouton de commande. Tu auras un bouton qui s'appelera "CommandButton1", qui appelera automatiquement la macro CommandButton1_Click().

Si tu utilises ma 1ere macro, tu n'as pas besoin de faire quoi que ce soit, ça marche automatiquement. Si tu prends la 2eme, alors il faut ajouter une Case à cocher (même méthode que le bouton), faire clic droit dessus, propriétés et changer son nom CheckBox1 en CopieDirecte.

Dans les deux cas, si tu crées un bouton ou autre, il faut que tu sortes du mode création pour qu'il fonctionne et après ça marche tout seul, pas besoin de passer par l'éditeur VB pour lancer les macro.

C'est exactement ce que je recherchai!! Merci beaucoup c'est parfait! Une dernière question si ce n'est pas trop demandé: existe-il une formule qui met automatiquement la date d'aujourd'hui dans une ou plusieurs cellules? J'ai regardé dans les formules de bases d'excel mais je n'ai rien trouvé de ce genre...

Bonjour à tou(te)s,

formule dans cellule :

Code:

---

=AUJOURDHUI()

---

appliquer le format "Date" aux cellules concernées

Parfait ce forum est vraiment génial et vous aussi! Merci encore! :D

J'ai oublié d'indiquer dans l'inputbox, quand le message dit :

Code:

---

"Appuyer sur Ctrl pour sélectionner plusieurs cellules"

---

il faut entendre plusieurs cellules non contiguë, sinon il suffit de glisser avec la souris pour selectionner une plage contiguë,

Ravi de te satisfaire,

a + et bonne journée à tou(te)s