Copier-Coller

Résolu
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

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. 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

    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
  2. 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 !
    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
  3. Re,

    et bien voilà en cherchant un peu, et c'est plus bénéfique si l'on veut progresser
    1. Re,
      Tout a fait d'accord surtout avec mes 69 ans c'est pas toujours facile.
      Je progresse plus longuement avec acharnement!!!
    2. 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