Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier cellule active et coller dans la selection an vba

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pascal21

XLDnaute Barbatruc
Private Sub CommandButton4_Click() 'bouton copier
With ActiveCell
Selection.Copy
End With
End Sub
Cliquez pour agrandir...
Private Sub CommandButton5_Click()

End Sub
Cliquez pour agrandir...
bonjour à tous
je n'arrive pas à trouver la pourtant simple syntaxe qui me permettrait de coller dans une selection de cellules (2 ou 3),la cellule copiée avec le bouton 5
pour le bouton 4 je doit pouvoir écrire
activecell.copy
Cliquez pour agrandir...
si je ne me trompe pas
 
Trier par date Trier par votes
Re : copier cellule active et coller dans la selection an vba

Re,

Même avec la SelectionChange on peut faire du Copier-Coller en mémorisant la cellule source :

Code: 
Dim cel As Range 'mémorise la variable

Private Sub CommandButton1_Click() 'bouton copier
Set cel = ActiveCell
End Sub
 
Private Sub CommandButton2_Click() 'bouton coller
On Error Resume Next
cel.Copy Selection
Set cel = Nothing 'RAZ
End Sub
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copier cellule active et coller dans la selection an vba

Re,

Et puis pourquoi des boutons ??

Le Copier/Coller est toujours possible avec cette macro modifiée :

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub
Range("a4").ClearContents
If ActiveCell.Value <> "" Then Range("a4").Value = ActiveCell.Value
End Sub
Fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copier cellule active et coller dans la selection an vba

Bonjour à tous,


il doit manquer une instruction :
Code: 
On Error GoTo fin
Application.EnableEvents = False
'ton code
fin:
Application.EnableEvents = True
On Error GoTo 0

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : copier cellule active et coller dans la selection an vba

bonsoir
je relance le post pour modifier cette macro
j'aimerais coller la valeur et le commentaire de la cellule active seulement
Private Sub CommandButton5_Click() 'bouton coller
Dim Cel_Dest As Range
For Each Cel_Dest In Selection
Cel_Dest.Activate
ActiveSheet.Paste
Next Cel_Dest
End Sub
Cliquez pour agrandir...
j'ai essayé avec paste spécial etc...... mais je ne dois pas avoir la bonne syntaxe
 
Vote positif 0 Vote négatif
Re : copier cellule active et coller dans la selection an vba

Bonsoir Pascal,

Je pensais que tu comprendrais que la macro de Yeahou ne va pas car elle traite toutes les cellules de destination une par une.

Si celle-ci est par exemple une colonne entière ce sera la galère !

C'est pour cela que j'ai proposé la macro du post #6.

Mais si ça t'amuse utilise-la.

Et pour qu'elle fonctionne il faut :

- lui ajouter le code du post #5

- modifier la macro SelectionChange comme indiqué au post #17.

Les pendules sont à l'heure ?

A+
 
Vote positif 0 Vote négatif
Re : copier cellule active et coller dans la selection an vba

bonsoir job
et bin non je n'avais pas capté 😱
et puis de toutes façons maintenant le code de yeahou ne veux plus fonctionner
je vais essayé la méthode dont tu me parles
merci
 
Vote positif 0 Vote négatif
Re : copier cellule active et coller dans la selection an vba

Re,

Pour un Collage spécial Valeurs et Commentaires :

Code: 
Private Sub CommandButton1_Click() 'bouton copier
ActiveCell.Copy
End Sub
 
Private Sub CommandButton2_Click() 'bouton coller
On Error Resume Next
Selection.PasteSpecial xlPasteValues
Selection.PasteSpecial xlPasteComments
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub
Range("a4").ClearContents
If ActiveCell.Value <> "" Then Range("a4").Value = ActiveCell.Value
End Sub
Bien entendu avec la macro SelectionChange modifiée.

Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
229
danielco
D
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
173
sylvanu
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
268
AlCapone
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
295
AtTheOne
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
753
gwenn49
G
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
250
safranien
S
  • Question Question
XL 2021 coller une image interne au classeur
2 3
Réponses
33
Affichages
2 K
Jouxte
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
181
Lu76Fer
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
434
snoopy07
S
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
69 K
NONO14
N
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
599
Julien_B
J
  • Question Question
XL 2016 Position userform dans coin supérieur gauche de cellule 2016 et+
7 8 9
Réponses
129
Affichages
6 K
Dudu2
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
694
Corentin26270
C
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
2 K
Phil69970
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
462
oguruma
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
690
Nel'
N
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
1 K
TooFatBoy
EXCEL :: TCD :: SEGMENTS :: Identifier l'élément sélectionné dans le segment :: Modifier dynamiquement la valeur d'un segment :: VBA
Réponses
1
Affichages
287
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…