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

 

[Pierrot93]

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

Bonjour,

pas tout compris, peut être simplement ceci :

ActiveCell.Copy Selection

bonne journée
@+

 

[Bernard_XLD]

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

Bonjour Pascal, Pierrot, le forum

si j'ai bien compris ton problème :

set Cel_a_Copier = range("A1")
For each Cel_Dest in Selection
Cel_Dest.value=Cel_a_Copier .value
Next Cel_en_Cours

Bien cordialement, @+

 

[Bernard_XLD]

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

en deuxième lecture, je crois avoir mieux compris ton problème
Private Sub CommandButton4_Click() 'bouton copier
ActiveCell.Copy
End Sub
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

 

[job75]

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

Bonjour Pascal, Pierrot, Yeahou,

@ Yeahou, pour la 2ème macro, si l'on "oublie" de lancer la 1ère, écrire au début :

If Not Application.CutCopyMode Then Exit Sub

A+

 

[job75]

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

Re,

Mais le plus simple c'est tout de même d'écrire :

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

Private Sub CommandButton5_Click() 'bouton coller
On Error Resume Next
Me.Paste
End Sub

Cela évite en particulier des soucis si la plage de collage est très très grande...

A+

 

[job75]

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

Re, pour terminer,

Un conseil : mettre la propriété TakeFocusOnClick des 2 boutons à False.

Cela évite que la sélection ne soit plus visible.

A+

 

[pascal21]

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

bonjour et merci pour votre aide
je pensais le problème plus simple
petite recap des solutions proposées
yeahou j'ai une erreur sur cette ligne

ActiveSheet.Paste

la méthode paste etc....
job

On Error Resume Next
Me.Paste​

et bien là ça donne ....... heu! rien en fait
pas d'action
du coup, je suis toujours à la recherche d'une solution
l'inspiration ne m'étant pas venue pendant ma longue nuit d'insomnies
alors si toi aussi comme moi, tu ne dors pas pense à mon problème (pas mon problème d'insomnies mais mon problème de copier/coller)
😕

 

[Bernard_XLD]

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

salut pascal

la, faudrait un petit fichier exemple
les deux méthodes fonctionnent sous excel 2003 et je ne vois pas pourquoi elles ne fonctionneraient pas chez toi

@+

 

[job75]

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

Re Pascal,

Là tu te surpasses 😛

Sans doute as-tu oublié que chaque bouton (ActiveX bien sûr) a un numéro.

Et que ce numéro doit correspondre dans les macros...

Fichier joint.

A+

 

[pascal21]

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

re
effectivement ton fichier joint fonctionne
mais je viens de voir que je ne peux pas faire de copier coller sur un clic droit tout simple
je fais copier mais lorsque je veux faire coller c'est grisé
faut que je vois si une macro ne me gène pas
avec "me past" sur le bouton sans le "on error.... ça me mets que il ne peut coller le control
pour excel (chez moi en tout cas il comprends que tu lui demande de coller le bouton) enfin je pense
bon aller je regarde ce probleme de cloic droit copier/coller

 

[pascal21]

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

re
le phénomène ne se produit que sur la feuille concernée
voilà ce qu'il y a en macros dans cette feuille
je viens de voir que c'est la macro worksheet selection change qui fout le bazard

Private Sub Bt_Eff_cellule_Click()
Selection.ClearComments
Selection.ClearContents
End Sub
Private Sub Worksheet_Activate()
test
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B6:h1200")) Is Nothing Then
Application.ScreenUpdating = False
Unload UserForm2
UserForm1.Show 0
Unload UserForm1
UserForm1.Show 0
Cancel = True
Application.ScreenUpdating = True
Else
If Not Intersect(Target, Range("i6:m1200")) Is Nothing Then UserForm2.Show 0
Unload UserForm1
UserForm2.Show 0
Unload UserForm2
UserForm2.Show 0
Cancel = True


End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a4").ClearContents
If ActiveCell.Value <> "" Then Range("a4").Value = ActiveCell.Value
End Sub

 

[pascal21]

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

j'ai mis

Range("a4").ClearContents
If ActiveCell.Value <> "" Then Range("a4").Value = ActiveCell.Value

dans un module

Sub recopie()
Range("a4").ClearContents
If ActiveCell.Value <> "" Then Range("a4").Value = ActiveCell.Value
End Sub

comment faire pour bloquer cette macro le temps de mon copier coller
parce que sans cette macro le copier coller fonctionne parfaitement

 

[job75]

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

Re,

je viens de voir que c'est la macro worksheet selection change qui fout le bazard

Oui car elle efface ou entre une valeur en A4.

Cela annule alors le copier (efface ce qu'il y a dans le presse-papier).

A+

 

[pascal21]

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

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

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

ç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

Dim Cel_Dest As Range
For Each Cel_Dest In Selection
Cel_Dest.Activate
ActiveSheet.Paste
Next Cel_Dest

merci