Petit problème de copie

Dull

XLDnaute Barbatruc

• 23 Octobre 2009

• #2

Re : Petit problème de copie

Salut nak, le Forum

Essaye plutôt ça

Code:

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😀

Code:

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

 

Dernière édition: 23 Octobre 2009

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Octobre 2009

• #3

Re : Petit problème de copie

Bonjour à tous , Nak, Dull


Une autre façon de faire

Code:

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

 

Dernière édition: 23 Octobre 2009

Vote positif 0 Vote négatif

N

nak

XLDnaute Occasionnel

• 23 Octobre 2009

• #4

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Octobre 2009

• #5

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 😉

 

Dernière édition: 23 Octobre 2009

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 23 Octobre 2009

• #6

Re : Petit problème de copie

nak à dit:

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+

Cliquez pour agrandir...

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

 

Pièces jointes

• Nak.zip

  11.4 KB · Affichages: 41
• Nak.zip

  11.4 KB · Affichages: 41
• Nak.zip

  11.4 KB · Affichages: 43

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Octobre 2009

• #7

Re : Petit problème de copie

RE



Pour mon plaisir et pour le fun 😉

Code:

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

 

Vote positif 0 Vote négatif

N

nak

XLDnaute Occasionnel

• 24 Octobre 2009

• #8

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")

Cliquez pour agrandir...

Comme cela on peut multiplier les copies simplement

Merci les gars
A+

 

Vote positif 0 Vote négatif