XL 2016 copier coller VBA

[HAKIM123]

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("D5😀7").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[Jacky67]

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("D5😀7").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

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [d5:d7]) Is Nothing Then [d5:d7].Copy [d10]
End Sub

 

[jmfmarques]

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 ?

 

[HAKIM123]

Bonsoir copier D5😀7 en D10😀12 puis je veux ma macro quand je sélectionne une autre colonne E10:E12 sa me colle D5😀7.
merci

 

[jmfmarques]

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 ?

Je crains d'avoir à te laisser si la discussion continue ainsi.

 

[Staple1600]

Bonsoir le fil,

Bonsoir copier D5:D7 en D10:D12 puis je veux ma macro quand je sélectionne une autre colonne E10:E12 sa me colle D5:D7.

Alors cette macro fait exactement ce qui est décrit

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

 

[HAKIM123]

 

[Staple1600]

Re

HAKIM123
Avec l'image, j'ai mieux compris 😉
Essaie ceci

Sub RecopieAdLibitum()
Set Plg = [D5:D7]
Cells(10, Cells(10, Columns.Count).End(xlToLeft).Column + 1).Resize(3) = Plg.Value
End Sub

 

[HAKIM123]

Merci beaucoup ça marche

 

[Jacky67]

Regarde la pièce jointe 1057557

Re..
Salut JM
La même chose sur une commande par double clic

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

 

[Staple1600]

Bonsoir Jacky67

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 😉