Le bouton dessins qui vas avec la macros disparait....

Guido · 3 Juin 2016

Bonjour le Forum..

Le boutons de ma macros disparait apres un F5 objet delete..

alors qu'un autre bouton lui reste afficher...

Merci de me faire savoir le pourkoi..du comment,,,

Merci

Guido

DoubleZero · 3 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Bonjour, Guido, le Forum,

Guido à dit:
...Le boutons de ma macros disparait apres un F5 objet delete...

Sauf erreur de ma part, cette action supprime chaque objet, quel qu'en soit le type.

Guido à dit:
...alors qu'un autre bouton lui reste afficher...

Que doit faire le code ? Supprimer tous les boutons ? Préserver un bouton ?

Merci de bien vouloir déposer le fichier contenant les boutons.

A bientôt

Guido · 3 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

DoubleZero à dit:
Bonjour, Guido, le Forum,

Sauf erreur de ma part, cette action supprime chaque objet, quel qu'en soit le type.

Que doit faire le code ? Supprimer tous les boutons ? Préserver un bouton ?

Merci de bien vouloir déposer le fichier contenant les boutons.

A bientôt

Re Bonjour DoubleZero

Voici mon desire avec le nouveau bouton de la macros....

Je desire une macros ,,qui supprimes les objets de qui se trouvent sur cette feuille Pronos.,

qui supprimer les colonnes depuis " AI:CF " , ensuite qui quadrille les cellules trait fin…et

le centrage par les colonnes et les cellules de la plage A1 à AJ 1400.

Voila mon desire...Merci

Dans la page Arrivée la macros " mise en page " bug?????

Merci de jetté un oeil..

Amitiées

Guido

DoubleZero · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Bonjour, Guido, le Forum,

Nous sommes loin de la question initiale...

Code:

Option Explicit
Sub MF_onglet_Prono()
    With Sheets("Prono")
        .DrawingObjects.Delete
        .Columns("ai:cf").Delete Shift:=xlToLeft
        .UsedRange.Borders.Weight = xlHairline
        With .Columns("a:aj")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    End With
End Sub

Guido à dit:
...Dans la page Arrivée la macros " mise en page " bug?????...

Partie non traitée.

A bientôt

Guido · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

DoubleZero à dit:

Bonjour, Guido, le Forum,

Nous sommes loin de la question initiale...

Code:

Option Explicit
Sub MF_onglet_Prono()
    With Sheets("Prono")
        .DrawingObjects.Delete
        .Columns("ai:cf").Delete Shift:=xlToLeft
        .UsedRange.Borders.Weight = xlHairline
        With .Columns("a:aj")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    End With
End Sub

Partie non traitée.

A bientôt

Re

Bonjour DoubleZero

Merci pour les reponses

Je n'arrive pas a adapter la macros,quand je n'arrive pas apres avoir cree une nv macros je redemande de l'aide

Merci

Pour la partie non traitée,je ne voulais pas refaire un nv post...???

Merci

Slts

Guido

DoubleZero · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Re-bonjour,

Guido à dit:
... Je n'arrive pas a adapter la macros...

La macro "Sub MF_onglet_Prono()" fonctionne-t-elle ?

A bientôt

Guido · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

DoubleZero à dit:
Re-bonjour,

La macro "Sub MF_onglet_Prono()" fonctionne-t-elle ?

A bientôt

Re

Les macros qui sont déjà dans le fichier ,ce n'est pas moi qui les ait crés...

je sais faire des macros facile, exp effacer,trier un peu,pour le reste j'essaie d'adapter ???

Mais je ne connais rien en VBA...

Merci de m'aider pour ce fichier

a plus

Slts

Guido

DoubleZero · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Re-bonjour,

Je ne peux modifier les autres codes.

Bon courage et à bientôt

Guido · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Re DoubleZero

Merci pour avoir regarder les solutions possibles,pas de problèmes

Je pense que job75 vas me sortir de la....

Merci d'avance

Slts

Guido

Guido · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Guido à dit:
Re

Les macros qui sont déjà dans le fichier ,ce n'est pas moi qui les ais crées...

je sais faire des macros facile, exp effacer,trier un peu,pour le reste j'essaie d'adapter ???

Mais je ne connais rien en VBA...

Merci de m'aider pour ce fichier

a plus

Slts

Guido

DoubleZero,et le forum

Je me permet de te demander ,si tu peux svp

adapter ton VBA avec une macro événementielle

Merci d'avance

Guido

DoubleZero · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Bonjour, Guido, le Forum,

Voici le code (onglet "Prono") :

Code:

Option Explicit
Private Sub Worksheet_Activate()
    With ActiveSheet
        .DrawingObjects.Delete
        .Columns("ai:cf").Delete Shift:=xlToLeft
        .UsedRange.Borders.Weight = xlHairline
        With .Columns("a:aj")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    End With
End Sub

A bientôt

Guido · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Re

Merci pour ta proposition,

J'ai essayé ,mais je n'arrive pas,DSL

a plus

Guido

DoubleZero · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Re-bonjour,

Le code se trouve-t-il dans le module de l'onglet "Prono" ?

Il agit lorsque ledit onglet est activé.

Cf. le fichier joint.

A bientôt

Guido · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Re

Merci DoubleZerro

je te joint la capture d'ecran

il y a un bug

A de suite

Guido

DoubleZero · 4 Juin 2016

Re : Le bouton dessins qui vas avec la macros disparait....

Re-bonjour,

Je n'ai pas ce message d'erreur et ne sais que proposer.

Attendons la venue des spécialistes.

A bientôt

Le bouton dessins qui vas avec la macros disparait....

Guido

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Guido

XLDnaute Accro

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Guido

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Guido

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Guido

XLDnaute Accro

Guido

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Guido

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Guido

XLDnaute Accro

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Discussions similaires