Copier-Coller

Résolu/Fermé
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 27 nov. 2018 à 15:03
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 28 nov. 2018 à 11:18
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 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
Modifié le 27 nov. 2018 à 15:22
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 mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
27 nov. 2018 à 21:34
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 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
28 nov. 2018 à 06:37
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 mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
28 nov. 2018 à 08:04
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 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
28 nov. 2018 à 08:45
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 mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
28 nov. 2018 à 11:13
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 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
28 nov. 2018 à 11:18
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