Microsoft 365 bug sur macro

[jalaba]

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

 

[Usine à gaz]

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,

 

[jalaba]

merci beaucoup bonne journée

 

[jalaba]

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,

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]

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

 

[jalaba]

oui mais quand je renseignes d'autres donnés il y a un message qui apparait débeug

 

[Usine à gaz]

Curieux, j'ai modifié et renseigné mais ... pas de beug chez moi.
Désolé, je ne sais pas t'aider

 

[Usine à gaz]

Si tu veux que quelqu'un t'aide, postes ton fichier qui beug en expliquant ce que tu as modifié