Bonjour;
svp une aide concernant le copier coller VBA ,je veux copier une colonne des 10 cellules puis la coller sur la même feuille mais je veux la rendre dynamique c-à-d quand je clique sur une cellule vide la colonne elle se colle automatiquement; merci d'avance.
Sub Macro1()
'
' Macro1 Macro
Range("D57").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
HAKIM123
Le code de Jacky67 copie aussi le format
Le mien fait mine de copier, et ce qu'il "copie", ce ne sont que les valeurs seules.
Donc selon que tu ais besoin ou pas du format, tu sais quel code choisir
Bonjour;
svp une aide concernant le copier coller VBA ,je veux copier une colonne des 10 cellules puis la coller sur la même feuille mais je veux la rendre dynamique c-à-d quand je clique sur une cellule vide la colonne elle se colle automatiquement; merci d'avance.
Sub Macro1()
'
' Macro1 Macro
Range("D57").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Bonjour,
Un classeur contenant du VBA doit être enregistré en .XLSM En tenant compte de ton code ce serait,
ce code à mettre dans le module de la feuille en question
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [d5:d7]) Is Nothing Then [d5:d7].Copy [d10]
End Sub
Bonjour
L'exposé du besoin reste assez flou.
Quel est le but exact ?
- copier quoi exactement (adresse complète de la plage à copier) , quand exactement et le coller où et quand exactement ?
Nous n'avons manifestement pas les mêmes manières de nous exprimer, ni celles de comprendre l'autre.
Je parviens à "interpréter" une partie, mais pas tout;
Et je ne vois pas la réponse à la partie, ici mise en rouge, de ma question :
- copier quoi exactement (adresse complète de la plage à copier) , quand exactement et le coller où et quand exactement ?
Alors cette macro fait exactement ce qui est décrit
VB:
Sub repticement()
If Selection.Rows.Count = 2 And Selection.Columns.Count = 1 Then
If Application.CountBlank(Selection) = 0 Then
Selection.Copy [D5:D7]
End If
End If
End Sub
Re..
Salut JM
La même chose sur une commande par double clic
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [D5:D7]) Is Nothing Then [D5:D7].Copy Cells(10, Cells(10, Columns.Count).End(xlToLeft).Column + 1)
End Sub
HAKIM123
Le code de Jacky67 copie aussi le format
Le mien fait mine de copier, et ce qu'il "copie", ce ne sont que les valeurs seules.
Donc selon que tu ais besoin ou pas du format, tu sais quel code choisir