Enlever la sélection en surbrillance

**Vadorblanc** · 25/12/2010, 22h41

Bonjour
J'exécute un projet qui contient plusieurs modules de code, et à la fin de la procédure l'onglet s'affiche avec encore la surbrillance de la dernire colonne de code qui copie et colle une colonne.
Comment mettre un code qui supprime cette mémoire tampon, de façon que l'utilisateur ne voie pas cette dernière action, le focus est en A2 mais avec la colonne G d'ou l'on voit encore le dernier copiage par les pointilées qui surbrillent.
Merci pour cette astuce.

**mercatog** · 25/12/2010, 22h52

Code :

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

application.cutcopymode=false

mais je suis sûr qu'on pourra le faire autrement, au lieu de copier coller; rapatrier directement les valeur

**Vadorblanc** · 25/12/2010, 23h00

Bonjour mercatog
Super ça marche
Un grand merci à toi

**Vadorblanc** · 25/12/2010, 23h25

Bonjour Bigalo
Je viens de voir ta réponse qui s'est croisée avec la mienne
Merci et joyeux Noêl

Mercatog, tu me proposes une autre façon de faire... heureusement que tu ne vois pas mes astuces et tous les artifices que je déploie pour concrétiser mes projets, ils ne sont surement pas comme un programmeur les ferait, mais j'arrive malgré tout à faire des programmes qui nous facilitent grandement notre travail à moi et à toute notre équipe, je gravi chaque jour un peu plus ma montagne, et je remercie le forum et toi mercatog qui m'a si souvent donné si généreusement tes boucles d'or, boucles dont certaines qui m'ont fascinées et remplies de joie comme un gamin devant son sapin de Noël.
J'ai eu un portable aujourd'hui que m'a offert mon épouse... et un super bouquin "Le programmeur Excel et VBA" par mon fils...je crois bien que je vais passer encore beaucoup de temps dessus...avec un peu l'approbation de mes proches...
Encore un grand MERCI à vous tous...et JOYEUSES FETES...

**mercatog** · 25/12/2010, 23h51

Pour expliciter le conseil, ci-joint un exemple pour la compréhension

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'Exemples sur une même feuille
 
'------------------------------------1ère variante
'Passe par le presse papier
 Range("D1:D100").Copy
 Range("A1").Select
 ActiveSheet.Paste
 Application.CutCopyMode = False
 
 '-----------------------------------2ème variante
 'Directe
 Range("D1:D100").Copy Range("A1")
 
 '-----------------------------------3ème variante
 'Directe avec la condition que les 2 range de l'égalité soient de même taille
 Range("A1:A100").Value = Range("D1:D100").Value

à toi de choisir qui te convient et qui simplifie le temps et les ressources (quand on parle de projets)!
Quel temps fait il chez vous?

**Vadorblanc** · 26/12/2010, 12h58

Bonjour mercatog,
Je viens de tester les 3 variantes, très intéressant, j'ai pris note ... merci

Mon dernier projet terminé, 28 modules, un fichier de référence Tel alimenté à chaque embauche par la RH, un fichier Base nationale évolutif, le fichier Tel qui se mets à jour sur les données Base sur différentes colonnes tout en gardant certaines données avec variantes si trouvé ou pas, le tout par un simple clic sur un bouton commande, toujours le but, rendre opérationnel à des personnes n'y connaissant rien en informatique, ça marche, c'est super, beaucoup de lignes de code par l'éditeur, une grande dose de recherche, d'adaptation, de débrouillardise, de passion surtout...
Je suis resté longtemps passionné par les casses têtes, le dernier qui m'a fasciné était le Rubik's Cube à 16 facettes par côté, puis ma première fille réclamait un ordi soit disant pour l'école, et je suis tombé dedans, fasciné par tout, formatage à outrance, essai de différents système d'exploitation, etc...ça à du lui convenir aussi car elle sera bientôt psychiatre.

Tout est blanc dehors, une superbe poudreuse pour les passionnées de ski qui vont s'éclater, un rayon de soleil qui perce de temps en temps, le MONT-BLANC est magnifique, moins 5 degré ce matin, un bon froid sec super ...

Bien cordialement