COPIER/COLLER par macro

Bonjour à tous

Alors voilà, un cas d'école j'ai envie de dire....mais pour moi et mes petites connaissances en VBA, eh bien je n'y arrive pas!

j'ai testé des tas de lignes de code, grace à l'aide de visualbasic, mais rien ne va!!

Alors si quelqu'un, une âme charitable?, pouvait m'aider

Merci beaucoup

Plus d'info sur le fichier type.

https://www.excel-pratique.com/~files/doc2/copier_coller_macro.xls

Bonjour, tu veux copier coller quoi?

Si c'est une case :

    Range("B4").Select
    Selection.Copy
    Range("C4").Select
    ActiveSheet.Paste

Ou plus court :

Range("B4").Copy
Range("C4").Select
ActiveSheet.Paste

Merci pour ta réponse!

Et pour copier sur une autre feuille?

En fait je ne sais jamais quand est-ce qu'il faut sélectionner la bonne feuille. j'ai souvent une erreur du type #1004, ou je ne sais quoi!

Pour copier une case de la feuille 1 vers une case de la feuille 2 :

Sheets("Feuil1").Select
Range("B4").Copy
Sheets("Feuil2").Select
Range("B4").Select
ActiveSheet.Paste

Bonjour,

Sub saisietest()
Application.ScreenUpdating = False
    Sheets("saisie").Range("b3:b5").Copy
    With Sheets("base").Range("A65536").End(xlUp)(2)
        .PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        .Offset(0, 3).FormulaR1C1 = "=RC[-1]-RC[-2]"
    End With
   Application.CutCopyMode = False
End Sub

Fichier

https://www.excel-pratique.com/~files/doc2/copier_coller_macro2.xls

Bonne journée

Claude.

Merci claude, et Tonnerre33,

Claude, peux-tu m'expliquer 2 ou 3 petite choses, 8) , si cela ne t'ennuie pas?

En fait, mis à part le copiage b3:b5....je perds le fil. Les commandes ne me parlent pas...

et sinon, 2 remarques :

1) est il possible d'insérer la ligne au niveau la ligne 4 de la base (toujours en haut en fait)

2) le fait de faire une étape intermédiaire en regroupant en ligne les infos par simple "=" m'était utile, car, en réalité ce n'est pas sur ce fichier, mais sur un autre que je bosse, beaucoup plus complexe, et où les éléments de saisie sont un peu éparpillés partout. Du coup, les regrouper sur une ligne un peu plus loin est nécessaire.

Pourrais-tu me montrer ce que ça donnerait en conservant la ligne intermédiaire?

Merci beaucoup!

re,

Sub saisietest()
Application.ScreenUpdating = False
    Sheets("saisie").Range("e3:g3").Copy
    With Sheets("base").Range("A65536").End(xlUp)(2)
        .PasteSpecial Paste:=xlValues
        .Offset(0, 3).FormulaR1C1 = "=RC[-1]-RC[-2]"
    End With
   Application.CutCopyMode = False
End Sub

Claude.

Génial Claude, ça fonctionne super!

Pour insérer la ligne en premier dans la base de donnée, je ne vois pas trop quoi ajouter dans ton code?

Bon je pourrais ajouter un trie sur la colonne "date", mais le problème c'est que si je resaisi un événement ancien, et que je veux voir la base après la saisie (pour voir), il ne sera pas en premier...

Une idée?

re,

N'oublie pas la petite formalité

en étant connecté

à+.... Claude

Bonsoir,

Bonsoir, Claude

Euh, avant le résolu, il me semble qu'il avait une autre question...

Pour insérer la ligne en premier dans la base de donnée, je ne vois pas trop quoi ajouter dans ton code?

jeremie, tu peux essayer ainsi :

Public Sub saisietest()
With Sheets("base")
    .Rows(4).Insert
    Range("E3:H3").Copy
    .Range("A4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    .Range("D4").Value = Format(.Range("C4").Value - .Range("B4").Value, "hh:mm")
End With
End Sub

Bonsoir cousinhub,

Peux-tu me rappeler l'intérêt d'un "Public Sub" ?

Amicalement

Claude.

Re-,

Claude, je n'ai fait que recopier le code initial de Jeremie....

On peut l'appeler à partir d'une autre feuille, ou même d'une feuille de calcul....

Et notamment via "Outils/Macro/Macros...." (ou Alt + F8)

Une "Public Sub ...." apparaît dans la liste des macros disponibles

Le plus avantageux, est le Private, dans un module standard....

Dénommer une procédure "Private Sub ......" empêche de voir cette Sub dans "Outils/Macro/Macros...." (ou Alt + F8)

Bonne soirée

re,

Ok, merci

à+.... Claude.