Comment eviter un message

tototiti2008

XLDnaute Barbatruc

• 1 Août 2008

• #2

Re : Comment eviter un message

Bonjour gh4,

dans quel situation as-tu ce message ? je viens d'enregistrer une macro et je n'ai pas de message de ce type...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Août 2008

• #3

Re : Comment eviter un message

Bonjour gh4

essaye peut être comme suit, tu ne devrais pas avoir le message :

Code:

Sheets("Feuil1").Range("A1").Copy Sheets("Feuil2").Range("A1")

bonne fin d'après midi
@+

Edition : bonjour tototiti

 

Vote positif 0 Vote négatif

gh4

XLDnaute Occasionnel

• 1 Août 2008

• #4

Re : Comment eviter un message

lce message apparait quand
lors de la copie feuill1 des cellules de b1 a p900 qui contiennnent des formules vers la cellule B19 de la feuill2 qui contient auusi des formules que je veux remplacer

Sheets("feuil2").Select
Range("b1😛900").Select
Selection.Copy
Sheets("feuil2").Select
Range("B19").Select
ActiveSheet.Paste
Application.CutCopyMode = False

 

Vote positif 0 Vote négatif

A

allegro50

XLDnaute Occasionnel

• 2 Août 2008

• #5

Re : Comment eviter un message

Bonjour le forum

Pour eviter les messages de ce type dans l'execution d'une macro
mets l'instruction ci-dessous en debut de procedure

Application.DisplayAlerts = False

N'oublie pas de la remettre à True à la fin

Bon we

 

Vote positif 0 Vote négatif

gh4

XLDnaute Occasionnel

• 2 Août 2008

• #6

Re : Comment eviter un message

merci bcp a vous tous

 

Vote positif 0 Vote négatif