copie sans mise a jour

M

MARIE74

Guest
B) Bonjour a toutes et a tous

Météo 18° ciel brumeux legere pluie (région Megeve)


Mon petit probleme

Dans la ligne A2;j2 j'ai des resultats de calculs

Dans la ligne C4;j4 je copie les résultats de la ligne A2;J2 avec la fonction = mais je voudrais ensuite bloquer cette copie pour eviter une mise a jour automatique a chaque modification de la ligne A2;J2

Pourquoi, parceque ma ligne C4;J4 devient mon tarif de base valable 1 an (donc pas de modification ulterieure)

Je coince
Y a t-il une petite formule
Merci d'avance
 
Trier par date Trier par votes
B

bbmarcus

XLDnaute Occasionnel
Bonjour Marie, le forum,

en formule je sais pas, mais avec une chtiote macro c'est pour moi plus facile.

Cré ta macro en faisant un copier/coller spéciale (valeurs).
Tu peux le mettre sous la forme d'un commandboutton.Comme ca, les modifications ne se ferons que lorsque c'est toi qui les feras......

@+ en espérant que tu auras meilleur temps !

bbmarcus

ps: tu sais faire? sinon dis moi....pas trop le temps ce matin mais peux me débrouiller ! ;)

Message édité par: bbmarcus, à: 06/09/2005 09:27
 
Vote positif 0 Vote négatif
M

MARIE74

Guest
B) Re a toutes et toue

Meteo 22° soleil (region Megeve) tu vois ça s'arrange

Bon Merci bbmarcus

J'ai fait ma macro elle fonctionne mais
Le commandbutton je n'arrive pas, je le met sur ma feuille mais je ne peux pas l'attribuer a ma macro, meme avec cli droit pas possible
Pourquoi

Ci joint ma macro (elle fonctionne bien)

Je ne sais pas s'implifier une macro
et je voudrais qu'elle fonctionne sans que cela sois visible a l'écran

Sub CopieTarif()
'
' CopieTarif Macro
' Macro enregistrée le 06/09/2005 par BK
'

'
ActiveWindow.SmallScroll Down:=24
Range('B47:K47').Select
Selection.Copy
Range('B48').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B95:K95').Select
Application.CutCopyMode = False
Selection.Copy
Range('B96').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B143:K143').Select
Application.CutCopyMode = False
Selection.Copy
Range('B144:K144').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B191:K191').Select
Application.CutCopyMode = False
Selection.Copy
Range('B192').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=60
Range('B239:K239').Select
Application.CutCopyMode = False
Selection.Copy
Range('B240').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B287:K287').Select
Application.CutCopyMode = False
Selection.Copy
Range('B288').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B335:K335').Select
Application.CutCopyMode = False
Selection.Copy
Range('B336').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B383:K383').Select
Application.CutCopyMode = False
Selection.Copy
Range('B384').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=60
Range('B431:K431').Select
Application.CutCopyMode = False
Selection.Copy
Range('B432').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B479:K479').Select
Application.CutCopyMode = False
Selection.Copy
Range('B480').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B527:K527').Select
Application.CutCopyMode = False
Selection.Copy
Range('B528').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B575:K575').Select
Application.CutCopyMode = False
Selection.Copy
Range('B576').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B623:K623').Select
Application.CutCopyMode = False
Selection.Copy
Range('B624').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B671:K671').Select
Application.CutCopyMode = False
Selection.Copy
Range('B672').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B719:K719').Select
Application.CutCopyMode = False
Selection.Copy
Range('B720').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B767:K767').Select
Application.CutCopyMode = False
Selection.Copy
Range('B768').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B815:K815').Select
Application.CutCopyMode = False
Selection.Copy
Range('B816').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B863:K863').Select
Application.CutCopyMode = False
Selection.Copy
Range('B864').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B911:K911').Select
Application.CutCopyMode = False
Selection.Copy
Range('B912').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B959:K959').Select
Application.CutCopyMode = False
Selection.Copy
Range('B960').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1007:K1007').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1008').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1055:K1055').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1056').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1103:K1103').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1104').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1151:K1151').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1152').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1199:K1199').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1200').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1247:K1247').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1248').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1295:K1295').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1296').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1343:K1343').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1344').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1391:K1391').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1392').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1439:K1439').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1440').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1487:K1487').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1488').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1535:K1535').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1536').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1583:K1583').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1584').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1631:K1631').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1632').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1679:K1679').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1680').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1727:K1727').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1728').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1775:K1775').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1776').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B1823:K1823').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1824').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1871:K1871').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1872').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1919:K1919').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1920').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B1967:K1967').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1968').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2015:K2015').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2016').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B2063:K2063').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2064').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2111:K2111').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2112').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2159:K2159').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2160').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B2207:K2207').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2208').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B2255:K2255').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2256').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B2303:K2303').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2304').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B2351:K2351').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2352').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B2399:K2399').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2400').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2447:K2447').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2448').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=60
Range('B2495:K2495').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2496').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B2543:K2543').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2544').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2591:K2591').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2592').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollRow = 2553
ActiveWindow.ScrollRow = 2548
ActiveWindow.ScrollRow = 2489
ActiveWindow.ScrollRow = 2467
ActiveWindow.ScrollRow = 2446
ActiveWindow.ScrollRow = 2425
ActiveWindow.ScrollRow = 2403
ActiveWindow.ScrollRow = 2366
ActiveWindow.ScrollRow = 2328
ActiveWindow.ScrollRow = 2291
ActiveWindow.ScrollRow = 2248
ActiveWindow.ScrollRow = 2189
ActiveWindow.ScrollRow = 2109
ActiveWindow.ScrollRow = 2050
ActiveWindow.ScrollRow = 2029
ActiveWindow.ScrollRow = 1991
ActiveWindow.ScrollRow = 1927
ActiveWindow.ScrollRow = 1906
ActiveWindow.ScrollRow = 1868
ActiveWindow.ScrollRow = 1809
ActiveWindow.ScrollRow = 1772
ActiveWindow.ScrollRow = 1692
ActiveWindow.ScrollRow = 1627
ActiveWindow.ScrollRow = 1590
ActiveWindow.ScrollRow = 1553
ActiveWindow.ScrollRow = 1494
ActiveWindow.ScrollRow = 1456
ActiveWindow.ScrollRow = 1435
ActiveWindow.ScrollRow = 1371
ActiveWindow.ScrollRow = 1333
ActiveWindow.ScrollRow = 1328
ActiveWindow.ScrollRow = 1285
ActiveWindow.ScrollRow = 1280
ActiveWindow.ScrollRow = 1258
ActiveWindow.ScrollRow = 1253
ActiveWindow.ScrollRow = 1215
ActiveWindow.ScrollRow = 1194
ActiveWindow.ScrollRow = 1173
ActiveWindow.ScrollRow = 1135
ActiveWindow.ScrollRow = 1098
ActiveWindow.ScrollRow = 1060
ActiveWindow.ScrollRow = 975
ActiveWindow.ScrollRow = 953
ActiveWindow.ScrollRow = 911
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 830
ActiveWindow.ScrollRow = 825
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 798
ActiveWindow.ScrollRow = 777
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 734
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 670
ActiveWindow.ScrollRow = 648
ActiveWindow.ScrollRow = 627
ActiveWindow.ScrollRow = 622
ActiveWindow.ScrollRow = 600
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 557
ActiveWindow.ScrollRow = 536
ActiveWindow.ScrollRow = 515
ActiveWindow.ScrollRow = 493
ActiveWindow.ScrollRow = 472
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 445
ActiveWindow.ScrollRow = 424
ActiveWindow.ScrollRow = 402
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 392
ActiveWindow.ScrollRow = 386
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 370
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 359
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 252
ActiveWindow.ScrollRow = 215
ActiveWindow.ScrollRow = 210
ActiveWindow.ScrollRow = 204
ActiveWindow.ScrollRow = 199
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 1
End Sub
 
Vote positif 0 Vote négatif
B

bbmarcus

XLDnaute Occasionnel
Re,

ARGHHHHHHHHHHHHHHHHHH ! ! ! !
Ca c'est du code.....
Mais tu en a combien des lignes comme ca ! ! !
D'après ton exemple, je pensais que :
Range('A2:J2').Select
Selection.Copy
Range('C4').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Serais suffisant ! ! !

C'est pô grave, vu qu'elle est créée.

Alors pour le commandboutton, tu clique sur la représentation d'un boutton dans la barre d'outils exel....
en doublecliquant dessus, tu iras automatiquement dans la zone de saisie d'un code VBA.
Ca commencera par :private Sub CommandButton1_Click()

Dessous, tu colles ton code et voili voilou...

Ca devrais aller....

@+

bbmarcus
 
Vote positif 0 Vote négatif
M

MARIE74

Guest
B) re

Encore Merci bbmarcus

C'est vrai ça fait costaud mais bon
j'ai utilisé outils/macro/creer une macro et voila
j'ai 2594 lignes

Bon pour le bouton bin je vais essayer


MERCI BEAUCOUP


Bon appetit a tous
 
Vote positif 0 Vote négatif
M

MARIE74

Guest
B) Re a tous

Meteo 25° soleil mais lourd

bbmarcus merci

Ci dessous macro dans commanbutton
Au secour ça marche pas
j'ai fais une betise ou quoi??


Private Sub CommandButton1_Click()

End Sub
Sub CopieTarif()
'
' CopieTarif Macro
' Macro enregistrée le 06/09/2005 par BK
'

'
ActiveWindow.SmallScroll Down:=24
Range('B47:K47').Select
Selection.Copy
Range('B48').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B95:K95').Select
Application.CutCopyMode = False
Selection.Copy
Range('B96').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B143:K143').Select
Application.CutCopyMode = False
Selection.Copy
Range('B144:K144').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B191:K191').Select
Application.CutCopyMode = False
Selection.Copy
Range('B192').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=60
Range('B239:K239').Select
Application.CutCopyMode = False
Selection.Copy
Range('B240').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B287:K287').Select
Application.CutCopyMode = False
Selection.Copy
Range('B288').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B335:K335').Select
Application.CutCopyMode = False
Selection.Copy
Range('B336').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B383:K383').Select
Application.CutCopyMode = False
Selection.Copy
Range('B384').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=60
Range('B431:K431').Select
Application.CutCopyMode = False
Selection.Copy
Range('B432').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B479:K479').Select
Application.CutCopyMode = False
Selection.Copy
Range('B480').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B527:K527').Select
Application.CutCopyMode = False
Selection.Copy
Range('B528').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B575:K575').Select
Application.CutCopyMode = False
Selection.Copy
Range('B576').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B623:K623').Select
Application.CutCopyMode = False
Selection.Copy
Range('B624').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B671:K671').Select
Application.CutCopyMode = False
Selection.Copy
Range('B672').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B719:K719').Select
Application.CutCopyMode = False
Selection.Copy
Range('B720').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B767:K767').Select
Application.CutCopyMode = False
Selection.Copy
Range('B768').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B815:K815').Select
Application.CutCopyMode = False
Selection.Copy
Range('B816').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B863:K863').Select
Application.CutCopyMode = False
Selection.Copy
Range('B864').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B911:K911').Select
Application.CutCopyMode = False
Selection.Copy
Range('B912').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B959:K959').Select
Application.CutCopyMode = False
Selection.Copy
Range('B960').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1007:K1007').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1008').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1055:K1055').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1056').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1103:K1103').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1104').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1151:K1151').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1152').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1199:K1199').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1200').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1247:K1247').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1248').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1295:K1295').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1296').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1343:K1343').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1344').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1391:K1391').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1392').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1439:K1439').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1440').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1487:K1487').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1488').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1535:K1535').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1536').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1583:K1583').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1584').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1631:K1631').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1632').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1679:K1679').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1680').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1727:K1727').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1728').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1775:K1775').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1776').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B1823:K1823').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1824').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1871:K1871').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1872').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1919:K1919').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1920').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B1967:K1967').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1968').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2015:K2015').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2016').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B2063:K2063').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2064').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2111:K2111').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2112').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2159:K2159').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2160').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B2207:K2207').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2208').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B2255:K2255').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2256').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B2303:K2303').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2304').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B2351:K2351').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2352').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B2399:K2399').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2400').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2447:K2447').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2448').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=60
Range('B2495:K2495').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2496').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B2543:K2543').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2544').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2591:K2591').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2592').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollRow = 2553
ActiveWindow.ScrollRow = 2548
ActiveWindow.ScrollRow = 2489
ActiveWindow.ScrollRow = 2467
ActiveWindow.ScrollRow = 2446
ActiveWindow.ScrollRow = 2425
ActiveWindow.ScrollRow = 2403
ActiveWindow.ScrollRow = 2366
ActiveWindow.ScrollRow = 2328
ActiveWindow.ScrollRow = 2291
ActiveWindow.ScrollRow = 2248
ActiveWindow.ScrollRow = 2189
ActiveWindow.ScrollRow = 2109
ActiveWindow.ScrollRow = 2050
ActiveWindow.ScrollRow = 2029
ActiveWindow.ScrollRow = 1991
ActiveWindow.ScrollRow = 1927
ActiveWindow.ScrollRow = 1906
ActiveWindow.ScrollRow = 1868
ActiveWindow.ScrollRow = 1809
ActiveWindow.ScrollRow = 1772
ActiveWindow.ScrollRow = 1692
ActiveWindow.ScrollRow = 1627
ActiveWindow.ScrollRow = 1590
ActiveWindow.ScrollRow = 1553
ActiveWindow.ScrollRow = 1494
ActiveWindow.ScrollRow = 1456
ActiveWindow.ScrollRow = 1435
ActiveWindow.ScrollRow = 1371
ActiveWindow.ScrollRow = 1333
ActiveWindow.ScrollRow = 1328
ActiveWindow.ScrollRow = 1285
ActiveWindow.ScrollRow = 1280
ActiveWindow.ScrollRow = 1258
ActiveWindow.ScrollRow = 1253
ActiveWindow.ScrollRow = 1215
ActiveWindow.ScrollRow = 1194
ActiveWindow.ScrollRow = 1173
ActiveWindow.ScrollRow = 1135
ActiveWindow.ScrollRow = 1098
ActiveWindow.ScrollRow = 1060
ActiveWindow.ScrollRow = 975
ActiveWindow.ScrollRow = 953
ActiveWindow.ScrollRow = 911
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 830
ActiveWindow.ScrollRow = 825
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 798
ActiveWindow.ScrollRow = 777
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 734
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 670
ActiveWindow.ScrollRow = 648
ActiveWindow.ScrollRow = 627
ActiveWindow.ScrollRow = 622
ActiveWindow.ScrollRow = 600
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 557
ActiveWindow.ScrollRow = 536
ActiveWindow.ScrollRow = 515
ActiveWindow.ScrollRow = 493
ActiveWindow.ScrollRow = 472
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 445
ActiveWindow.ScrollRow = 424
ActiveWindow.ScrollRow = 402
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 392
ActiveWindow.ScrollRow = 386
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 370
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 359
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 252
ActiveWindow.ScrollRow = 215
ActiveWindow.ScrollRow = 210
ActiveWindow.ScrollRow = 204
ActiveWindow.ScrollRow = 199
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 1
End Sub

End Sub

Private Sub CommandButton2_Click()

End Sub
 
Vote positif 0 Vote négatif
B

bbmarcus

XLDnaute Occasionnel
Re Marie, le forum,

je penses que tu as des 'End Sub' en trop....
Dans:
Private Sub CommandButton1_Click()

End Sub
Sub CopieTarif()
'
' CopieTarif Macro
' Macro enregistrée le 06/09/2005 par BK

Enlève le End Sub juste après le CommandButton1.
Tu as quoi comme message?
Recopie juste ta macro de tout à l'heure sous Private sub et ca devrais aller....sinon tu lui dis de fermer alors que tu as à peine ouvert !

C'est pô gentil ca.....à mon avis ca vient de là....

bbmarcus
 
Vote positif 0 Vote négatif
M

MARIE74

Guest
B) Re a tous

Pas marche regarde macro j'ai fait comme tu as dis message
'erreur compiulation end sub attendu ????'

Merci d'avance (je commence a bouillir :evil: :evil )


Private Sub CommandButton1_Click()

Sub CopieTarif()
'
' CopieTarif Macro
' Macro enregistrée le 06/09/2005 par BK
'

'
ActiveWindow.SmallScroll Down:=24
Range('B47:K47').Select
Selection.Copy
Range('B48').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B95:K95').Select
Application.CutCopyMode = False
Selection.Copy
Range('B96').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B143:K143').Select
Application.CutCopyMode = False
Selection.Copy
Range('B144:K144').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B191:K191').Select
Application.CutCopyMode = False
Selection.Copy
Range('B192').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=60
Range('B239:K239').Select
Application.CutCopyMode = False
Selection.Copy
Range('B240').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B287:K287').Select
Application.CutCopyMode = False
Selection.Copy
Range('B288').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B335:K335').Select
Application.CutCopyMode = False
Selection.Copy
Range('B336').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B383:K383').Select
Application.CutCopyMode = False
Selection.Copy
Range('B384').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=60
Range('B431:K431').Select
Application.CutCopyMode = False
Selection.Copy
Range('B432').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B479:K479').Select
Application.CutCopyMode = False
Selection.Copy
Range('B480').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B527:K527').Select
Application.CutCopyMode = False
Selection.Copy
Range('B528').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B575:K575').Select
Application.CutCopyMode = False
Selection.Copy
Range('B576').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B623:K623').Select
Application.CutCopyMode = False
Selection.Copy
Range('B624').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B671:K671').Select
Application.CutCopyMode = False
Selection.Copy
Range('B672').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B719:K719').Select
Application.CutCopyMode = False
Selection.Copy
Range('B720').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B767:K767').Select
Application.CutCopyMode = False
Selection.Copy
Range('B768').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B815:K815').Select
Application.CutCopyMode = False
Selection.Copy
Range('B816').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B863:K863').Select
Application.CutCopyMode = False
Selection.Copy
Range('B864').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B911:K911').Select
Application.CutCopyMode = False
Selection.Copy
Range('B912').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B959:K959').Select
Application.CutCopyMode = False
Selection.Copy
Range('B960').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1007:K1007').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1008').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1055:K1055').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1056').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1103:K1103').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1104').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1151:K1151').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1152').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1199:K1199').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1200').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1247:K1247').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1248').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1295:K1295').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1296').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1343:K1343').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1344').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1391:K1391').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1392').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1439:K1439').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1440').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1487:K1487').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1488').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B1535:K1535').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1536').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1583:K1583').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1584').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1631:K1631').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1632').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B1679:K1679').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1680').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1727:K1727').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1728').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1775:K1775').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1776').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B1823:K1823').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1824').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1871:K1871').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1872').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B1919:K1919').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1920').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B1967:K1967').Select
Application.CutCopyMode = False
Selection.Copy
Range('B1968').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2015:K2015').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2016').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B2063:K2063').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2064').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2111:K2111').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2112').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2159:K2159').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2160').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B2207:K2207').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2208').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B2255:K2255').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2256').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B2303:K2303').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2304').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=54
Range('B2351:K2351').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2352').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Range('B2399:K2399').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2400').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2447:K2447').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2448').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=60
Range('B2495:K2495').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2496').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range('B2543:K2543').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2544').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range('B2591:K2591').Select
Application.CutCopyMode = False
Selection.Copy
Range('B2592').Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollRow = 2553
ActiveWindow.ScrollRow = 2548
ActiveWindow.ScrollRow = 2489
ActiveWindow.ScrollRow = 2467
ActiveWindow.ScrollRow = 2446
ActiveWindow.ScrollRow = 2425
ActiveWindow.ScrollRow = 2403
ActiveWindow.ScrollRow = 2366
ActiveWindow.ScrollRow = 2328
ActiveWindow.ScrollRow = 2291
ActiveWindow.ScrollRow = 2248
ActiveWindow.ScrollRow = 2189
ActiveWindow.ScrollRow = 2109
ActiveWindow.ScrollRow = 2050
ActiveWindow.ScrollRow = 2029
ActiveWindow.ScrollRow = 1991
ActiveWindow.ScrollRow = 1927
ActiveWindow.ScrollRow = 1906
ActiveWindow.ScrollRow = 1868
ActiveWindow.ScrollRow = 1809
ActiveWindow.ScrollRow = 1772
ActiveWindow.ScrollRow = 1692
ActiveWindow.ScrollRow = 1627
ActiveWindow.ScrollRow = 1590
ActiveWindow.ScrollRow = 1553
ActiveWindow.ScrollRow = 1494
ActiveWindow.ScrollRow = 1456
ActiveWindow.ScrollRow = 1435
ActiveWindow.ScrollRow = 1371
ActiveWindow.ScrollRow = 1333
ActiveWindow.ScrollRow = 1328
ActiveWindow.ScrollRow = 1285
ActiveWindow.ScrollRow = 1280
ActiveWindow.ScrollRow = 1258
ActiveWindow.ScrollRow = 1253
ActiveWindow.ScrollRow = 1215
ActiveWindow.ScrollRow = 1194
ActiveWindow.ScrollRow = 1173
ActiveWindow.ScrollRow = 1135
ActiveWindow.ScrollRow = 1098
ActiveWindow.ScrollRow = 1060
ActiveWindow.ScrollRow = 975
ActiveWindow.ScrollRow = 953
ActiveWindow.ScrollRow = 911
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 830
ActiveWindow.ScrollRow = 825
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 798
ActiveWindow.ScrollRow = 777
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 734
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 670
ActiveWindow.ScrollRow = 648
ActiveWindow.ScrollRow = 627
ActiveWindow.ScrollRow = 622
ActiveWindow.ScrollRow = 600
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 557
ActiveWindow.ScrollRow = 536
ActiveWindow.ScrollRow = 515
ActiveWindow.ScrollRow = 493
ActiveWindow.ScrollRow = 472
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 445
ActiveWindow.ScrollRow = 424
ActiveWindow.ScrollRow = 402
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 392
ActiveWindow.ScrollRow = 386
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 370
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 359
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 252
ActiveWindow.ScrollRow = 215
ActiveWindow.ScrollRow = 210
ActiveWindow.ScrollRow = 204
ActiveWindow.ScrollRow = 199
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 1
End Sub

End Sub

:
 
Vote positif 0 Vote négatif
M

MARIE

Guest
B) Re a tous

Ca y est il fallait enlever comme tu l'as dis ça
Sub CopieTarif()

Mais aussi un End sub a la fin


C'est impecable


Encore un grand merci a toi oh Grand bbmarcus


(euh j'en fait pas un peux trop non)


Bon apres midi a tous

Grosse bises
 
Vote positif 0 Vote négatif

Discussions similaires

H
  • Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
321
HANN
H
C
  • Question
Microsoft 365 Mise à jour fichier après extraction sur ERP
Réponses
9
Affichages
560
Gégé-45550
Gégé-45550
S
  • Question
Microsoft 365 Mise à Jour dates
Réponses
0
Affichages
431
Stephane Mex
S
D
  • Question
XL 2019 Besoin d'aide sur diverses macros
2 3
Réponses
31
Affichages
3 K
darknigthmare
D
D
  • Question
XL 2016 [RESOLU] Copie d'une zone selon contenu d'une cellule et mise a jour de certaines cellules de la zone et format date
Réponses
0
Affichages
1 K
dupuy.mathias
D
P
  • Question
XL 2019 Bloc if sans End If
Réponses
3
Affichages
1 K
Pounet95
P
M
  • Question
XL 2016 Mise à jour de la date si modification d'une cellule
Réponses
1
Affichages
7 K
melvin
M
T
  • Question
XL 2010 mise a jour de feuilles excel a partir d'un tableau
Réponses
0
Affichages
560
TIMOUYASSUP
T
M
  • Question
Mise à jour du tableau initial
2
Réponses
17
Affichages
1 K
michel-nac
M
B
  • Question
Microsoft 365 mise a jour sur excel a partir d,un fichier PDF
Réponses
6
Affichages
627
Staple1600
Staple1600

Membres actuellement en ligne

8 membres et 60 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 493
Messages
2 088 944
Membres
103 989
dernier inscrit
jralonso