A voir également:
- Macro pour copier/coller
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Macro word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Symbole clavier copier coller - Guide
2 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
23 juil. 2015 à 18:53
23 juil. 2015 à 18:53
Bonjour,
Essaie avec
A+
Essaie avec
Sub Macro1()
' Touche de raccourci du clavier: Ctrl+n
Worksheets("Feuil1").Range("A1:F31").Copy ActiveCell
End Sub
A+
Bonjour
Modification de ta Macro
A+
Maurice
Modification de ta Macro
Sub MacroMomo()
' Macro1 Macro
' copie et colle le tableau vide pour new client
'
' Touche de raccourci du clavier: Ctrl+n
'
' Numero de la Ligne
L1 = Selection.Row
' Numero de la colonne
C1 = Selection.Column
' -----------------
Range("A1:F31").Copy
Cells(L1, C1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
A+
Maurice
29 juil. 2015 à 13:29
Néanmoins je ne suis pas au bout de mes peines.
En effet apres chaque collage du tableau, je voudrais que le numero de la cellule A1 s'incremente automatiquement sur le nouveau tableau à chaque collage, c'est à dire dans le tableau que j'ai realisé et dans la cellule A1 j'ai le numero 0001 et je voudrais que ce soit 0002 au collage du tableau et ainsi de suite. Pour cela j'ai eu ce code:
Worksheets(''Feuil1'').Range(''B2'').Value = Worksheets(''Feuil1'').Range(''B2'').Value + 1
et quand j'execute le macro c'est le numero de mon 1er tableau qui devient 0002 et le numero du tableau collé reste 0001.
Aussi dans la cellule D5 se trouve la date, comment modifier s'il vous plait ce code pour qu'apres collage qu'il y ai la date dans la cellule correspondante à la cellule D5 ( la date du jour qui ne doit pas changer)
(le code suivant est conditionné par la saisie d'une valeur dans la colonne A)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then If Not (IsEmpty(Target.Value)) Then Range("B" & Target.Row).Value = Now Else Range("B" & Target.Row).ClearContents
End Sub
Merci