Discussion :

[davidbd]

Bonjour à tous.

J'ai crée une macro VBA sous Excel 2003 qui me permet d'importer des données d'une base de données Access et qui met en forme les tableaux qui sont générés.
J'ai en partie repris ce code: http://www.developpez.net/forums/d13...onnees-access/

J'ai ajouté aussi quelques lignes dans la fonction QueryAccess pour spécifier les paramètres de mon tableau.
De cette façon, j'ai généré 16 tableaux différents sur 16 feuilles distinctes.

Toutefois, pour m'assurer que les largeurs des colonnes s'ajustent au contenu, j'ai inséré ce bout de code dans Microsoft Excel Objets - ThisWorkbook.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.EntireColumn.AutoFit
End Sub

En créant une nouvelle feuille, j'aimerais être en mesure de pouvoir faire des copier-coller, créer manuellement de nouveaux tableaux et de pouvoir annuler mes modifications (en utilisant Ctrl+Z) mais j'ai l'impression que le Autofit m'en empêche.

Comment pourrais remédier à ce problème?

Est-il possible de spécifier le Autofit seulement sur une feuille générée par VBA? Sinon, est-il possible de "désactiver" le Autofit à la fin de l'exécution de mon code?


Merci et bonne journée!

[defluc]

Bonjour,

Cela m'étonnerait que Autofit soit responsable de ton problème.

Ne quittes-tu pas une fonction ou une procédure avec EnableExents = False ?

[davidbd]

Bonjour defluc,

Non, je n'ai pas de fonction avec EnableExents = False.

À quoi ça sert?

[Invité]

un traitement par macro ne passe pas par le presse papier!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.EntireColumn.AutoFit
End Sub

je vien de faire un test ça vide bien le presse papier

[davidbd]

un traitement par macro ne passe pas par le presse papier!

Concrètement, qu'est-ce que ça veut dire?
Comment puis-je remédier à la situation?
As-tu un bout de code à me proposer?


Bonne journée!

[Invité]

Concrètement, qu'est-ce que ça veut dire?
Comment puis-je remédier à la situation?
As-tu un bout de code à me proposer?


Bonne journée!

je confirme ça vide bien le presse papier!

[defluc]

EnableEvents (excuses la faute d'orthographe de mon précédent post) active ou désactive le déclenchement des évènements.

[Invité]

il est toujours possible avec de positionner artificiellement le presse papier pour des données géré par macro. Mais la il s'agit de manipulation suivi d'une macro je t'avoue quand l'état je suis à dépourvu d’idées.

[davidbd]

je confirme ça vide bien le presse papier!

Ok....

Ça ne règle toujours pas mon problème que je ne suis pas en mesure d'annuler la dernière opération.

Je vous réexplique la situation.

Je lance une macro qui importe mes données Access et qui les met en forme.
Cette macro est lancée à l'aide d'un bouton.

J'obtiens alors 16 feuilles distinctes qui présentent chacun 1 tableau (16 tableaux au total). La macro est terminée.

Je crée manuellement une nouvelle feuille (On peut la nommer feuille 17).

Je copie de l'information d'un autre fichier Excel.
Je colle cette information dans la feuille 17.

Je veux annuler le copier-coller que je viens de faire et ça ne fonctionne pas.

Il est à noter que je ne désire pas annuler ce que ma macro fait. Les 16 tableaux demeurent intacts. Je veux pouvoir annuler (Ctrl+Z) sur une nouvelle feuille que je crée manuellement.

Je ne crois pas que le presse-papier ait d'incidence dans mon travail.

Pour le EnableEvents = False, est-ce que cela peut empêcher d'effectuer un retour en arrière?


Merci et bonne journée!

[defluc]

Je viens de tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Application.EnableEvents = False
  Target.EntireColumn.AutoFit
  Application.EnableEvents = False
End Sub

Cela ne change rien c'est bien AutoFit qui vide le presse-papier.
Alors, la solution serait de placer cette instruction ailleurs dans le code.

[davidbd]

Bonjour à tous,

Pour le moment, j'ai simplement désactivé le Autofit (Mettre en commentaires) pour le bien de mon travail étant donné que j'ai déja toutes mes informations.

Je vais voir si il est possible de mettre Autofit ailleurs dans mon code pour qu'il s'applique seulement aux feuilles qui sont générées par la macro.

Il est à noter que ce n'est pas seulement le copier-coller qui ne fonctionne pas. Si je tape manuellement des caractères dans une cellule, je ne suis pas en mesure d'annuler.

Merci pour votre aide et bonne journée!

[defluc]

Si tu peux confirmer que, même avec le "Autofit" annulé, l'annulation de l'action n'est pas possible, c'est qu'il y a autre chose qui vide le presse papier.

A creuser, cela devient intéressant comme investigation.