Optimiser quelques macros
Résolu
Anthelm
Messages postés
202
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai beaucoup avancer sur mon doc et je voulais remercier tout le monde.
J'aurais besoin d'un petit coup de main pour optimiser quelques macros, si quelqu'un a des idées...!
'Je souhaite effacer une valeur qui ne se trouve pas dans la feuille active
Sheets("Feuil2").Select
Selection.ClearContents
Sheets("Tableau").Select
RESULTAT: Il y a un clignotement à l'activation de la macro (changement de feuille, deux fois...)
De puis je n'ai pas reussi à lui faire comprendre le range. donc sur la feuille 2, je laisse la sélection sur A1:P1 pour qu'il l'efface.
Ce que je voudrais faire:
Range"Feuil2,A1:P1" clearcontents, d'un seul coup et en précisant vraiment le range.
Comment le formuler?
J'ai la même chose ici:
Range(ActiveCell, ActiveCell.Offset(0, 15)).Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Tableau").Select
Ce que je voudrais faire: Coller, range Feuil2, A1:P1, d'un seul coup, sans utiliser "Feuil2.Select" et "Tableau.select" pour changer de feuilles afin d'éviter le clignotement.
Merci beaucoup!
J'ai beaucoup avancer sur mon doc et je voulais remercier tout le monde.
J'aurais besoin d'un petit coup de main pour optimiser quelques macros, si quelqu'un a des idées...!
'Je souhaite effacer une valeur qui ne se trouve pas dans la feuille active
Sheets("Feuil2").Select
Selection.ClearContents
Sheets("Tableau").Select
RESULTAT: Il y a un clignotement à l'activation de la macro (changement de feuille, deux fois...)
De puis je n'ai pas reussi à lui faire comprendre le range. donc sur la feuille 2, je laisse la sélection sur A1:P1 pour qu'il l'efface.
Ce que je voudrais faire:
Range"Feuil2,A1:P1" clearcontents, d'un seul coup et en précisant vraiment le range.
Comment le formuler?
J'ai la même chose ici:
Range(ActiveCell, ActiveCell.Offset(0, 15)).Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Tableau").Select
Ce que je voudrais faire: Coller, range Feuil2, A1:P1, d'un seul coup, sans utiliser "Feuil2.Select" et "Tableau.select" pour changer de feuilles afin d'éviter le clignotement.
Merci beaucoup!
