Microsoft 365 Bouton copier objets vba

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2019

• #2

Bonjour le fil

kay
Une image, c'est joli mais c'est tout
Un classeur joint c'est pas forcément joli, mais c'est mieux qu'une image parce qu'on peut y faire des tests

Et ce que tu veux copier, tu le colles où?
Sur une feuille?
Sur une feuille mais dans un autre classeur
dans un userform ?
etc...

 

Dernière édition: 22 Juillet 2019

Vote positif 0 Vote négatif

K

kay

XLDnaute Nouveau

• 22 Juillet 2019

• #3

Bonjour Staple 1600
Tu as bien raison

 

Pièces jointes

• Formulaire JDD.xlsm

  65.2 KB · Affichages: 13

Vote positif 0 Vote négatif

K

kay

XLDnaute Nouveau

• 22 Juillet 2019

• #4

Je veux le coller juste en bas de ces 2 lignes, donc sur la même feuille

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2019

• #5

Re

Si j'étais moi, j'essaierai de me convaincre d'utiliser un Userform (en lieu et place de la feuille nommée Formulaire)
Et pour ce faire, je me serai convaincu de faire la chose suivante
ALT+F11
ALT+I
ALT+U
(ou pour le plaisir de caresser sa souris ALT+F11 puis Insertion/Userform)

Maintenant reste à savoir ce que tu penses de la suggestion du gars qui se pense être moi

 

Vote positif 0 Vote négatif

K

kay

XLDnaute Nouveau

• 22 Juillet 2019

• #6

Je ne connaissais pas mais why not si tu penses que c'est plus adapté. Est-ce que j'aurais la possibilité de créer ce fameux bouton qui permet de répéter les deux lignes que j'ai mentionné avant ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juillet 2019

• #7

Bonjour kay, salut JM,

Je comprends que vous voulez modifier la macro du bouton :

VB:

Sub Bouton189_Cliquer()
Application.CopyObjectsWithCells = True
With ActiveSheet
    .DrawingObjects.Placement = 2
    If .Name <> "Definitions" And .Name <> "fx" And .Name <> "Needs" Then _
        .DrawingObjects("Zone combinée 160").TopLeftCell.Copy .[E10]
End With
End Sub

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2019

• #8

Re

Pour le moment, je n'ai compris ce que tu veux faire sur ta feuille Formulaire
et ta macro plante sur mon PC.

Et si j'utilise l'enregistreur de macros pour copier la zone combinée (juste pour faire un test)
j'obtiens ce type de syntaxe

VB:

Sub Macro1()
' Macro enregistrée le 22/07/2019 par inadvertance
ActiveSheet.Shapes("Drop Down 160").Copy
ActiveSheet.Paste
End Sub

Tu peux ajouter quelques explications supplémentaires, stp?

EDITION: Bonsoir job75
Pas vu ta réponse avant de poster.

 

Vote positif 0 Vote négatif

K

kay

XLDnaute Nouveau

• 22 Juillet 2019

• #9

Oui alors l'objectif c'est de permettre aux personnes de formuler plusieurs demandes. Les 2 lignes (cf. capture premier message) correspondent à une demande, mais je veux permettre aux personnes de formuler autant de demande qu'ils le souhaitent.

 

Vote positif 0 Vote négatif

K

kay

XLDnaute Nouveau

• 22 Juillet 2019

• #10

job75 à dit:

Bonjour kay, salut JM,

Je comprends que vous voulez modifier la macro du bouton :

VB:

Sub Bouton189_Cliquer()
Application.CopyObjectsWithCells = True
With ActiveSheet
    .DrawingObjects.Placement = 2
    If .Name <> "Definitions" And .Name <> "fx" And .Name <> "Needs" Then _
        .DrawingObjects("Zone combinée 160").TopLeftCell.Copy .[E10]
End With
End Sub

A+

Cliquez pour agrandir...

Salut job75

Merci pour ton aide, c'était pas tout à fait cet objet là mais ces 2 lignes :



j'essaye de modifier ton code pour l'adapter peut-être que ça marchera

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juillet 2019

• #11

Vous voulez les coller où "ces 2 lignes" ?

 

Vote positif 0 Vote négatif

K

kay

XLDnaute Nouveau

• 22 Juillet 2019

• #12

Le contenu que je souhaite copier correspond aux lignes 5 jusqu'à 9, l'idée c'est de coller à la suite donc de la ligne 10 à 14 sans changer de colonnes (donc toujours de la colonne D à M).

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juillet 2019

• #13

Bonjour kay, JM, le forum,

Il est facile de copier-coller les contrôles de formulaire, pour les contrôles ActiveX il faut les dupliquer :

VB:

Sub Bouton189_Cliquer()
Dim P As Range, decal&, o As OLEObject, c As Range
Application.CopyObjectsWithCells = True
With ActiveSheet
    If .Name = "Definitions" Or .Name = "fx" Or .Name = "Needs" Then Exit Sub
    Set P = .[D5:M9] 'plage à adapter
    decal = 5 'décalage à adapter
    Application.ScreenUpdating = False
    .DrawingObjects.Placement = 2
    P.Copy P.Offset(decal) 'copie les cellules et les contrôles de formulaire
    For Each o In .OLEObjects 'boucle pour copier les contrôles ActiveX
        Set c = o.TopLeftCell
        If Not Intersect(P, c) Is Nothing Then
            With o.Duplicate 'duplication
                .Left = o.Left
                .Top = c.Offset(decal).Top + o.Top - c.Top
            End With
        End If
    Next
End With
End Sub

Bonne journée.

 

Pièces jointes

• Formulaire JDD(1).xlsm

  70.3 KB · Affichages: 3

Dernière édition: 24 Juillet 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juillet 2019

• #14

Avec le fichier précédent les copies de CheckBox3 et CheckBox4 ne se voient pas pas car elles sont cachées par les TextBoxes.

Dans ce fichier (2) j'ai un peu modifié les positions pour qu'elles apparaissent.

 

Pièces jointes

• Formulaire JDD(2).xlsm

  69.5 KB · Affichages: 5

Vote positif 0 Vote négatif

K

kay

XLDnaute Nouveau

• 23 Juillet 2019

• #15

job75 à dit:

Avec le fichier précédent les copies de CheckBox3 et CheckBox4 ne se voient pas pas car elles sont cachées par les TextBoxes.

Dans ce fichier (2) j'ai un peu modifié les positions pour qu'elles apparaissent.

Cliquez pour agrandir...

Bonjour job75, JM,

C'est exactement ce que je recherchais, merci beaucoup à vous deux pour votre aide précieuse !

Bonne journée

 

Vote positif 0 Vote négatif