Copier-Coller

Résolu
mic6259 Messages postés 343 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

3 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    1. mic6259 Messages postés 343 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
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    1. mic6259 Messages postés 343 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
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    et bien voilà en cherchant un peu, et c'est plus bénéfique si l'on veut progresser
    0
    1. mic6259 Messages postés 343 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
    2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      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