Petit problème de copie

[nak]

Bonjour,

Excusez moi par avance pour mon ignorance met je ne comprends pas pourquoi mes deux lignes de macro plantent:

Private Sub CommandButton1_Click()
Sheets("Feuil1").Cells(ActiveCell.Row, 2).Copy
Sheets("Feuil1").Range("B5").Paste.Value
End Sub

La fonction coller ne se passe pas bien, cela vient de quoi ?

Merci

 

[Dull]

Re : Petit problème de copie

Salut nak, le Forum

Essaye plutôt ça

Private Sub CommandButton1_Click()
Sheets("Feuil1").Cells(ActiveCell.Row, 2).Copy Destination:=Sheets("Feuil1").Range("B5")
End Sub

EDITION: Salut Staple 🙂 Content de te croiser
Si tu veux absolument ton Code il faut passer par un Select ...PasCool😀

Private Sub CommandButton1_Click()
Sheets("Feuil1").Cells(ActiveCell.Row, 2).Copy
Sheets("Feuil1").Range("B5").[B]Select[/B]
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

mais comme tu peux le constater 1 ligne contre 4 ...IlyapasPhoto🙂

Bonne Journée

 

[Staple1600]

Re : Petit problème de copie

Bonjour à tous , Nak, Dull


Une autre façon de faire

Sub Macro()
Dim f As Worksheet:         Set f = Sheets("Feuil1")
f.[B5] = f.Cells(ActiveCell.Row, "B")
End Sub

 

[nak]

Re : Petit problème de copie

Salut Dull,
Merci pour la ligne, par contre si je veux juste coller la valeur cela ne fonctionne pas
le .Value bloque....
Une idée ?

Merci

A+

 

[Staple1600]

Re : Petit problème de copie

Re

Nak: tu sembles n'avoir pas lu mon message ?
Tu as essayé ma proposition ?


(Car on ne récupère seulement la valeur )

EDITION: Salut Dull, content de même 😉

 

[Dull]

Re : Petit problème de copie

Salut Dull,
Merci pour la ligne, par contre si je veux juste coller la valeur cela ne fonctionne pas
le .Value bloque....
Une idée ?

Merci

A+

Re le Fil

??? ou ça il-y-a un .Value

essaye ce fichier ou il-y-a les trois méthodes

sinon post ton fichier pour voir de quoi il retourne

Bonne Journée

 

[Staple1600]

Re : Petit problème de copie

RE



Pour mon plaisir et pour le fun 😉

Private Sub CommandButton1_Click()
Dim f As Worksheet:         Set f = Sheets("Feuil1")
Dim a As Range:             Set a = ActiveCell
If Not IsEmpty(a) Then
f.[B5] = f.Cells(a.Row, "B")
Else
MsgBox "Attention, la sélection en cours (" & a.Address(0, 0) & ") est vide", vbCritical, "ERREUR"
End If
End Sub

 

[nak]

Re : Petit problème de copie

Merci pour vos solutions,

Très bien celle avec f:

Dim f As Worksheet: Set f = Sheets("Feuil1")
f.[B5] = f.Cells(ActiveCell.Row, "B")
f.[B6] = f.Cells(ActiveCell.Row, "A")
f.[B7] = f.Cells(ActiveCell.Row, "F")

Comme cela on peut multiplier les copies simplement

Merci les gars
A+