Optimiser quelques macros

Résolu
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!

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. Worksheets("Feuil2").Range("A1:P1").ClearContents

    ça marche :)

    Par contre ça:
    Worksheets("Feuil2").Range("A1:P1").Paste
    ça ne marche pas. C'est possible de copier vers une autre feuille?
    1. Contributeur
      Bonjour,

      pour coller il faut avoir copier qq chose avant
      Et si tu colles qq chose dans Worksheets("Feuil2").Range("A1:P1"), inutile de l'effacer avant avec .clearcontents
      eric