...Le boutons de ma macros disparait apres un F5 objet delete...
...alors qu'un autre bouton lui reste afficher...
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
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?????...
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
... Je n'arrive pas a adapter la macros...
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 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
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