copie de plages de cellules

V

violaine

Guest

• 9 Juin 2003

• #2

je n'ai pas pris le temps de finir

quelqu'un a t il une solution à ce problème?

merci

violaine

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 9 Juin 2003

• #3

Bonsoir Violaine,

Tu travailles avec l'enregistreur de macro ?...c'est une très bonne chose pour apprendre...par contre l'enregistreur a tendance à tout inscrire par incrémentation...donc faut ranger un peu...loool

Donc si tu associes la macro à un bouton il faut un Private sub sur la feuille (VBA) qui appelle la macro recup_clients

...le bouton sera défini comme çà...

Private Sub CommandButton1_Click()
recup_clients
End Sub

...et ta macro pouvant être ainsi...

Sub recup_clients()
Sheets("feuil1").Range("C2:C84").Copy
ActiveSheet.Paste Worksheets("Feuil5").Range("B4")
End Sub

Voilà pour l'instant...

Bonne programmation

 

Vote positif 0 Vote négatif

S

schmail

Guest

• 9 Juin 2003

• #4

Bonsoir Violaine et le Forum

Je pense que si tu colles ton bouton sur la feuille5 pas de pb si ce n'est que tu peux simplifier ta macro :

Sub récup_clients()

Sheets("feuil1").Range("C2:C84").Copy
Sheets("feuil5").Range("B4").Select
ActiveSheet.Paste

End Sub

Par contre si tu colles ton bouton sur la feuille1, activesheet ne doit pas être valable et il doit falloir faire une macro du style :

Sub récup_clients2()

Sheets("feuil1").Range("C2:C84").Copy
Sheets("feuil5").Select
Range("B4").PasteSpecial

End Sub

Bonne soirée et @+

 

Vote positif 0 Vote négatif

S

schmail

Guest

• 9 Juin 2003

• #5

Bon ben je vais me coucher après avoir noté la leçon de Vériland...
Bonne soirée à tous et @+

 

Vote positif 0 Vote négatif

V

violaine

Guest

• 9 Juin 2003

• #6

Merci à vous deux,

je vais essayer de travailler tout ça dans le calme...

Bonne nuit

violaine

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 9 Juin 2003

• #7

juste pour terminer le plus simple est de mettre l'ensemble de la procédure dans le bouton :

Private Sub CommandButton1_Click()
Sheets("feuil1").Range("C2:C84").Copy
ActiveSheet.Paste Sheets("Feuil5").Range("B4")
End Sub

Avant c'était l'exemple où recup_clients était placé dans un module...

Bon ben Bonne nuit Schmail Violaine et le Forum

 

Vote positif 0 Vote négatif