XL 2013 TRANSFERT DE VBA DANS UNE AUTRE FEUILLE

1

123442

XLDnaute Nouveau

• 21 Janvier 2021

• #2

Voici mon fichier, ce sera peut-être plus clair. Merci.

 

Pièces jointes

• QUESTIONS VBA.xlsm

  276.5 KB · Affichages: 24

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Janvier 2021

• #3

Bonsoir 123442,

Voyez le fichier joint, voici comment j'ai procédé, dans la feuille "Engrenages" :

- j'ai donné à tous les objets la propriété "Déplacer sans dimensionner avec les cellules" en exécutant le code DrawingObjects.Placement = 2

- j'ai inséré une colonne A et lui ai donné la largeur 134

- j'ai copié la colonne A de la feuille "FLASH" et l'ai collé sur cette colonne

- j'ai modifié le code VBA en ajoutant [A1].Width à la propriété Left des objets "1","2" et "3" [Edit] et j'ai aussi modifié le code pour la propriété Top

- j'ai copié-collé le code de la feuille "FLASH" dans cette feuille.

J'ai supprimé la feuille "FLASH" et renommé la feuille "Engrenages".

Par ailleurs mettre un code qui boucle sans fin dans la Workbook_Open n'était pas bon, je l'ai modifié.

A+

 

Pièces jointes

• QUESTIONS VBA(1).xlsm

  257.4 KB · Affichages: 11

Dernière édition: 21 Janvier 2021

Vote positif 0 Vote négatif

J

jabn29

XLDnaute Nouveau

• 21 Janvier 2021

• #4

Excellent. Merci beaucoups. Je retranche cette compétence à la longue liste des choses que j'ai à apprendre. Passionnant.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Janvier 2021

• #5

Si je comprends bien 123442 et jabn29 sont une seule et même personne, pas très catholique tout ça

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 22 Janvier 2021

• #6

Bonjour job75, le fil,

si ça peut aider, j'ai déjà eu un demandeur qui avait 2 pseudos :
un depuis chez lui (son domicile), et un autre depuis son bureau ;
peut-être que c'est pareil pour @123442 / @jabn29 ?

mais c'est sûr que c'est plus simple quand le demandeur
a un seul pseudo !

---

je m'souviens aussi d'une fois où sur un fil du demandeur,
c'est son collègue de travail qui avait pris le relais, et qui
continuait la discussion entamée par le premier !

soan

 

Vote positif 0 Vote négatif

J

jabn29

XLDnaute Nouveau

• 22 Janvier 2021

• #7

Bonjour,

Rien de louche. honnêtement je ne sais même pas pourquoi il y a 2 pseudo. J'ai une adresse pro et une perso et sur mon adresse person je ne reçois pas toujours les codes d'accès dont je ne me souviens pas toujours. Le forum reste une communauté précieuse en terme d'apprentissage pour moi. Merci à tous.

 

Vote positif 0 Vote négatif

J

jabn29

XLDnaute Nouveau

• 23 Janvier 2021

• #8

Bonjour,

Je voudrais maintenant placer une partie de l'engrenage en dessous de ce que j'ai déjà travaillé mais je ne sais pas pourquoi ça ne fonctionne plus. Je ne comprend pas ou, dans le code, on gère l'emplacement de l'engrenage. Merci de votre aide. Votre connaissance d'excel me bluff

 

Vote positif 0 Vote négatif

J

jabn29

XLDnaute Nouveau

• 23 Janvier 2021

• #9

Voici le fichier

 

Pièces jointes

• Copie de QUESTIONS VBA(1)-2.xlsm

  261.8 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2021

• #10

Bonsoir 123442 alias jabn29,

Voyez ce fichier (2).

Pour parvenir à ce résultat je suis parti du fichier du post #2 et j'ai exécuté cette macro :

VB:

Sub a()
Dim o As Object, x, y
With Sheets("Engrenages")
    .DrawingObjects.Placement = 2
    .DrawingObjects.Group 'commande Grouper
    Set o = .DrawingObjects(1)
End With
x = o.Left
y = o.Top
o.Copy
With Sheets("FLASH")
    .Activate
    .Paste
    Selection.Left = x
    Selection.Top = .[A55].Top + y
    Selection.Ungroup 'commande Dissocier
End With
ActiveCell.Activate
End Sub

Ensuite le code de la feuille "Engrenages" a été collé dans la feuille "FLASH".

A+

 

Pièces jointes

• QUESTIONS VBA(2).xlsm

  275.2 KB · Affichages: 6

Vote positif 0 Vote négatif

J

jabn29

XLDnaute Nouveau

• 23 Janvier 2021

• #11

Je commence à bien mieux saisir ces fonctionnements. Merci.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2021

• #12

Bonjour jabn29, le forum,

Le fichier (1) du post #3 ne me plaît pas du tout, utilisez le fichier (3) joint.

Sur le fichier du post #2 j'ai exécuté cette macro :

VB:

Sub b()
Dim o As Object, x, y
With Sheets("Engrenages")
    .DrawingObjects.Placement = 2
    .DrawingObjects.Group 'commande Grouper
    Set o = .DrawingObjects(1)
    .[B49].UnMerge
End With
x = o.Left
y = o.Top
With Sheets("FLASH")
    .DrawingObjects.Placement = 3
    .Activate
    o.Copy
    .Paste
    Selection.Left = .[B1].Left + x
    Selection.Top = y
    Selection.Ungroup 'commande Dissocier
    o.Parent.[B45,B47,B49,B52].Copy .[B43]
    .[B45:G45].Merge
    .[B46].VerticalAlignment = xlBottom
End With
ActiveCell.Activate
End Sub

Comme le fichier (2) le code de la feuille "Engrenages" a été collé dans la feuille "FLASH".

Je trouve ce fichier (3) plus agréable que le fichier (2) et les rotations sont plus fluides.

Bon dimanche.

 

Pièces jointes

• QUESTIONS VBA(3).xlsm

  277.8 KB · Affichages: 5

Vote positif 0 Vote négatif

J

jabn29

XLDnaute Nouveau

• 30 Janvier 2021

• #13

Effectivement merci beaucoup.

 

Vote positif 0 Vote négatif