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

[Guido]

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]

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

Bonjour, Guido, le Forum,

...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.

...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]

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

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]

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

Bonjour, Guido, le Forum,

Nous sommes loin de la question initiale...

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

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

Partie non traitée.

A bientôt 🙂

 

[Guido]

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

Bonjour, Guido, le Forum,

Nous sommes loin de la question initiale...

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]

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

Re-bonjour,

... Je n'arrive pas a adapter la macros...

😕

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

A bientôt 🙂

 

[Guido]

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

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]

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]

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]

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

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]

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

Bonjour, Guido, le Forum,

Voici le code (onglet "Prono") :

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]

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]

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]

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]

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 🙂