Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 bug sur macro

jalaba

XLDnaute Nouveau
Bonjour
j'ai crée ce tableau mais il y a un beug je ne sait comment résoudre le problème.
J'aimerai utilisé ce tableau pour un autre cas.
Merci
 

Pièces jointes

  • arbrecauses.xls
    140.5 KB · Affichages: 16

Usine à gaz

XLDnaute Barbatruc
Bonjour jalaba, le Forum,
Bonne journée à toutes et à tous
@ jalaba : bienvenue

Peut-être comme àa :
Dans votre "Sub Schema", j'ai neutralisé le code 'Application.CommandBars("Selection and Visibility").Visible = False
Voir fichier en retour,
Amicalement,
lionel,
 

Pièces jointes

  • arbrecauses.xls
    152.5 KB · Affichages: 6

jalaba

XLDnaute Nouveau
le beug persiste
Sub Schema()

Range("I11").Select
Sheets("Schema").Select
'Application.CommandBars("Selection and Visibility").Visible = False
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Group.Select
Selection.ShapeRange.IncrementRotation 90
Selection.ShapeRange.ScaleHeight 2.2747807708, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.2479514048, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.TextFrame2.Orientation = msoTextOrientationUpward
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
msoAlignCenter
Rows(1).Insert
Rows(2).Insert

Selection.ShapeRange.ScaleWidth 0.5999999067, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.749699556, msoFalse, msoScaleFromBottomRight
ActiveWindow.SmallScroll Down:=-60
End Sub
 

Usine à gaz

XLDnaute Barbatruc
Re-Bonjour,

Chez moi il n'y a plus de beug.
Si j'ai bien compris :
1 - clic sur Click ici dans un premier temps dans la feuille Tableau,
2 - retour sur la Feuille tableau et clic sur Click ici après !!! qui renvoie à la feuille Schema et l'affichage ci-dessous apparait

sans beug chez moi
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…