copier cellule active et coller dans la selection an vba

[pascal21]

Private Sub CommandButton4_Click() 'bouton copier
With ActiveCell
Selection.Copy
End With
End Sub

Private Sub CommandButton5_Click()

End Sub

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

si je ne me trompe pas

 

[job75]

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 :

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+

 

[job75]

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 :

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+

 

[Pierrot93]

Re : copier cellule active et coller dans la selection an vba

Bonjour à tous,

re j'ai trouvé ça pour bloquer la macro c'est de pierrot 93

ça fonctionne
maintenant
je viens de voir que le coller contient aussi le format de la cellule
en fait je ne veux coller que la valeur et le commentaire qu'il y a
que rajouter à la macro de yeahou

merci

il doit manquer une instruction :

On Error GoTo fin
Application.EnableEvents = False
'ton code
fin:
Application.EnableEvents = True
On Error GoTo 0

bonne journée
@+

 

[pascal21]

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

j'ai essayé avec paste spécial etc...... mais je ne dois pas avoir la bonne syntaxe

 

[job75]

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+

 

[pascal21]

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

 

[job75]

Re : copier cellule active et coller dans la selection an vba

Re,

Pour un Collage spécial Valeurs et Commentaires :

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+

 

[pascal21]

Re : copier cellule active et coller dans la selection an vba

bonjour job
je reviens un peu tard te remercier pour ton code qui fonctionne parfaitement bien