Copier-Coller

Résolu
mic6259 Messages postés 342 Date d'inscription   Statut Membre Dernière intervention   -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour a tous,
Pourriez-vous me donner le code pour copier dans la feuille Total les cellules C3:G18 vers I3:M18 dans la même feuille avec la CommandButton
Merci beaucoup.

Private Sub CommandButton4_Click()

End Sub
A voir également:

3 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Bonjour,

tu peux faire quelque chose comme cela

Private Sub CommandButton4_Click()
Range("C3:G18").Copy
Range("I3").Select
ActiveSheet.PasteEnd Sub

si tu n'as que des valeurs à copier tu peux limiter le code à

Range("I3:M18").Value = Range("C3:G18").Value

0
mic6259 Messages postés 342 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonsoir Mike
Le code fonctionne bien, mais quand je change de feuille, j'obtiens le même résultat, alors que j'aimerais que cela soit que dans la feuille intitulée Total uniquement.
Merci beaucoup
Cordialement
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

mais dans ta demande initiale tu dis bien dans la même feuille avec la CommandButton
si tu as un CommondButton sur la feuiile Tartempion automatiquement le code Copie la plage de cette feuille puisque c'est elle qui est active.
dans le cas contraire, comment se nomme l'onglet que tu veux copier et l'onglet sur lequel tu veux coller !
0
mic6259 Messages postés 342 Date d'inscription   Statut Membre Dernière intervention   1
 
RE:
Excuse moi Mike, je me suis mal expliqué, j'ai trouvé avec ta seconde formule que j'ai adapter comme ceci, et çà fonctionne très bien.
Sheets("Total").Range("I3:L18").Value = Sheets("Total").Range("C3:F18").Value

Merci beaucoup pour ton aide
Cordialement
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

et bien voilà en cherchant un peu, et c'est plus bénéfique si l'on veut progresser
0
mic6259 Messages postés 342 Date d'inscription   Statut Membre Dernière intervention   1
 
Re,
Tout a fait d'accord surtout avec mes 69 ans c'est pas toujours facile.
Je progresse plus longuement avec acharnement!!!
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
L'âge n'y est pour rien, je reste encore ton aîné, le tout est de vouloir enrichir ses connaissances et entretenir ses neurones qui se fatiguent plus à ne rien faire.
Cordialement
0