=rept (BQ5;1)si range("F5:BP80")ClearContents.

rudy

XLDnaute Occasionnel
bonjour a tous :
voici mon souci je souhaiterai que lorsque je clics sur le bouton de remise a zero le contenu de F5:BP80 s efface
jusqu a la no problémo
mais que dans le meme temps le contenu de BQ5:BQ80
se recopie en E5:E80
et la ????? y'a pas moyen



merci a tous menbres
A+ [file name=classeur2_20050825191602.zip size=11498]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur2_20050825191602.zip[/file]
 

Pièces jointes

  • classeur2_20050825191602.zip
    11.2 KB · Affichages: 30

Humansoft

XLDnaute Occasionnel
Bonsoir le forum,


Colle ce code dans un module et affecte la macro au bouton

Cordialement

Vincent

Sub Copie_Efface()
'
' Macro enregistrée le 25/08/2005 par Humansoft ©2005
'

'
Range('BQ5:BQ80').Select
Selection.Copy
Range('E5').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('F5:BP80').Select
Selection.ClearContents
Application.CutCopyMode = False
Range('B5').Select

End Sub
 

deudecos

XLDnaute Impliqué
Bonsoir Rudy, Humansoft, le forum,

Une chose est sure Rudy, si tu te disperse, nous aurons beaucoup de mal a t'aider...
De plus, quand tu post quelque chose, prends la peine de verifier de temps en temps si tu n'as pas de reponse... :angry:

Lien supprimé

Bonne soiree quand meme

Olivier
 

deudecos

XLDnaute Impliqué
Re Rudy, le forum,

En principe, si ca t'envois vers Vba en de disant end sub attendu, c'est que tu as oublie le traditionnel et irremplacable 'End Sub' que l'on retrouve systematiquement a la fin de chaque macro... :p
Alors je te conseille fortement de l'ecrire en fin de macro si tu veux que ca fonctionne ! :)

Bonne journee

Olivier
 

Humansoft

XLDnaute Occasionnel
Bonjour le forum, Bonjour Rudy

Après un moment d'absence, travail oblige, me voici e retour.

Je ne sais pas où tu en est mais je te joint comme demandé le fichier avec la macro qui va bien.

Cordialement,

Vincent
[file name=CopieEfface.zip size=15023]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopieEfface.zip[/file]
 

Pièces jointes

  • CopieEfface.zip
    14.7 KB · Affichages: 38