tout sauf bordure au démarrage

[Esox]

Bonjour le forum,

Je souhaiterai dans un tableau copier et collage spécial "tout sauf la bordure", mais de facon automatique. Puis je déterminer cela à l'ouverture du fichier ?? ce qui m'éviterai cette manipulation ou un bouton supplémentaire.
Merci d'avance...

 

[job75]

Re : tout sauf bordure au démarrage

Bonjour Esox,

- exécuter le copier-coller en faisant tourner l'enregistreur de macro (Menu Outils-Macro-Nouvelle macro)

- dans le ThisWorkbook de VBA (Alt+F11) placer cette macro :

Private Sub Workbook_Open()
'ici le code obtenu
End Sub

A+

 

[Esox]

Re : tout sauf bordure au démarrage

Bonjour,
Je te remercie, mais là au démarrage il va m'effectuer le copier/coller, non ? moi ce que je veux, c'est que dès que je fais un copier coller, il me fasse le "coller" tout sauf bordure, mais de facon automatique sans passer par collage special ou bien un bouton supplémentaire.
En fait j'aurais souhaité dire à Excel dès le début que pour ce fichier précisément "coller" = "collage spécial tout sauf bordure".
Arf j'espère que tu, enfin vous, m'as et m'avez compris lol
Stef.

 

[job75]

Re : tout sauf bordure au démarrage

Re,

Pas très claire votre affaire.

Vous voudriez que chaque fois que vous faites un copier-coller Excel ignore les bordures ?

Et donc qu'à l'ouverture Excel modifie la commande Coller en conséquence ?

Alors c'est tout simplement impossible.

Mais on peut toujours mettre une commande spéciale dans la barre d'outils ou de menus...

A+

 

[Esox]

Re : tout sauf bordure au démarrage

Ok, c'est ce que jai, un bouton avec la commande.
Sinon oui c est ce que je voulais... tant pis...
Merci,

 

[JNP]

Re : tout sauf bordure au démarrage

Bonjour le fil 🙂,
Tu peux toujours dériver la fonction Coller avec

Private Sub Workbook_Open()
Application.OnKey "^v", "MaMacro"
End Sub

Ne pas oublier de le réactiver 😛

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^v"
End Sub

Tu peux aussi l'utiliser avec Deactivate et Activate si tu as plusieurs classeurs d'ouverts 🙄.
Bon courage 😎
Ajout pour Job : Impossible n'est pas Français 😀...

 

[job75]

Re : tout sauf bordure au démarrage

Salut Jean-Noël,

Ajout pour Job : Impossible n'est pas Français 😀...

Très juste, et les touches de raccourci clavier c'est mieux qu'un petit bouton 🙂

A+

 

[Guest]

Re : tout sauf bordure au démarrage

Bonjour,

Et également le Edition/coller:

[COLOR=blue]Option[/COLOR] [COLOR=blue]Explicit[/COLOR]
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Workbook_BeforeClose(Cancel [COLOR=blue]As[/COLOR] [COLOR=blue]Boolean[/COLOR])
    Application.OnKey [I]"^v"[/I]
    Application.CommandBars(1).Controls([I]"Edition"[/I]).Controls([I]"Coller"[/I]).[COLOR=blue]Reset[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Workbook_Open()
    Application.OnKey [I]"^v"[/I], [I]"CollageSpecial"[/I]
    [COLOR=blue]With[/COLOR] Application.CommandBars(1).Controls([I]"Edition"[/I]).Controls([I]"Coller"[/I])
    .OnAction = [I]"CollageSpecial"[/I]
    [COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

Avec la macro:

[COLOR=blue]Sub[/COLOR] CollageSpecial()
    Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
        SkipBlanks:=[COLOR=blue]False[/COLOR], Transpose:=[COLOR=blue]False[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

Par contre pour le bouton de collage de la barre d'outils standard, c'est une autre paire de manches😀

A+

 

[job75]

Re : tout sauf bordure au démarrage

Salut Hasco,

La commande Coller est donc bien modifiable. Deux questions :

- ne faut-il pas rétablir en l'état à la fermeture ?

- quid de la commande Coller du menu contextuel (clic droit) ?

A+