Menu

Optimiser quelques macros [Résolu]

Messages postés
96
Date d'inscription
lundi 15 octobre 2018
Dernière intervention
10 décembre 2018
- - Dernière réponse : eriiic
Messages postés
22250
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
12 décembre 2018
- 24 nov. 2018 à 19:32
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!
Afficher la suite 

Votre réponse

1 réponse

Messages postés
96
Date d'inscription
lundi 15 octobre 2018
Dernière intervention
10 décembre 2018
0
Merci
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?
eriiic
Messages postés
22250
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
12 décembre 2018
-
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
Commenter la réponse de Anthelm