Macro copier-coller sans affichage du message "cette formule existe déja..."

namidou

XLDnaute Nouveau
Bonjour,

J'ai créé une macro qui prend les données par colonne dans un ancien fichier et qui les colle par colonne dans le nouveau fichier mis à jour. J'aimerai éviter que les messages s'affichent indiquant que la formule existe déja...à chaque colonne copiée. .

Merci de m'aider,
Namidou
 
C

Compte Supprimé 979

Guest
Re : Macro copier-coller sans affichage du message "cette formule existe déja..."

Salut Namidou,

Essaye peut-être ça :

Code:
Application.AlertBeforeOverwriting = False
....
Application.AlertBeforeOverwriting = True

A+
 

namidou

XLDnaute Nouveau
Re : Macro copier-coller sans affichage du message "cette formule existe déja..."

Merci Bruno,
voici mon code pour le collage de la première colonne, je reproduis ce code pour chaque colonne, je ne sais pas si il y a un moyen plus facile car j'ai plus de 30 colonnes à copier et un message s'affiche à chaque fois ou il faut cliquer "OUI" :

Windows("AncienFichier.xls").Activate
Sheets("Feuil1").Select
Range("A8:A200").Select
Application.CutCopyMode = False
Selection.Copy
Windows("NouveauFichier.xls").Activate
Sheets("Feuil1").Select
Range("A8:A200").Select
ActiveSheet.Paste
Application.AlertBeforeOverwriting = False
Merci de m'aider
 

Cousinhub

XLDnaute Barbatruc
Re : Macro copier-coller sans affichage du message "cette formule existe déja..."

Bonsoir,
comme te l'a dit Bruno, il faut désactiver les alertes AVANT les actions....
donc regarde la position de la désactivation dans ton code, tu la désactives APRES ton action.....
 

namidou

XLDnaute Nouveau
Re : Macro copier-coller sans affichage du message "cette formule existe déja..."

J'ai fait un mauvais copier coller, j'ai tt essayé, avant, c'est a dire au début:
1)
Application.AlertBeforeOverwriting = False
Windows("AncienFichier.xls").Activate
Sheets("Feuil1").Select
Range("A8:A200").Select
Application.CutCopyMode = False
Selection.Copy
Windows("NouveauFichier.xls").Activate
Sheets("Feuil1").Select
Range("A8:A200").Select
ActiveSheet.Paste

Et avant le "paste",
2)
Windows("AncienFichier.xls").Activate
Sheets("Feuil1").Select
Range("A8:A200").Select
Application.CutCopyMode = False
Selection.Copy
Windows("NouveauFichier.xls").Activate
Sheets("Feuil1").Select
Range("A8:A200").Select
Application.AlertBeforeOverwriting = False
ActiveSheet.Paste

et rien à faire.......
 

namidou

XLDnaute Nouveau
Re : Macro copier-coller sans affichage du message "cette formule existe déja..."

Ca marche, merci beaucoup,

sinon, à tout hasard, avant de faire une autre recherche sur le net, sais-tu si c'est possible de rendre invisible la feuille pendant l execution de la macro avec un message "En cours de remise à jour"
 

Cousinhub

XLDnaute Barbatruc
Re : Macro copier-coller sans affichage du message "cette formule existe déja..."

Re-,
Ici, on rentre dans une autre dimension, avec utilisation d'un contrôle supplémentaire "Progress Bar", bien lourd pour la finalité.....

M'enfin, si ton code dépasse un temps "inadmissible", on peut regarder comment le diminuer, mais autrement, ce contrôle va augmenter ton temps de traitement....
 

namidou

XLDnaute Nouveau
Re : Macro copier-coller sans affichage du message "cette formule existe déja..."

Je peux peut-être mettre un "label" avec juste "mise à jour en cours" sans "progress bar", je vais regarder sur mon bouquin visual basic pour les nuls car vraiment pas douée.
Merci encore pour les deux autres questions
Namidou
 

Cousinhub

XLDnaute Barbatruc
Re : Macro copier-coller sans affichage du message "cette formule existe déja..."

Re-,
oui, mais cela change tout.....:D

visual basic pour les nuls car vraiment pas douée

J'avais pas fait gaffe, pour le "e" derrière "douée".....:D

JCGL serait là, j'aurai déjà ramassé.....:D

Plus sérieusement, pour mettre ce type de message, il faut afficher un userform, avant le début de code, qui lance le code, et qui affiche ce message d'attente...
 

Discussions similaires

Statistiques des forums

Discussions
312 500
Messages
2 089 013
Membres
104 004
dernier inscrit
mista