Message PATIENTER pendant macro
re bonjour,
j aimerais s avoir si il est possible d afficher une fenetre, un texte ou autre pdt l execution d une macro au lieu de voir ma macro s executer, et de voir plusieur page defile.
merci a vous
Bonjour,
Oui c'est possible mais...
1- si déjà vous voyez "défiler" des pages, ceci mérite d'être corrigé,
2- il nous faut, à défaut du fichier, le code de la macro.
re donc je deverouille plusieur page, sauf d autre ou il s agit d un menu avec des bouton qui amene a d autre page
Sub deverouillertouteslesfeuilles()
'
' deverouillertouteslesfeuilles Macro
mdp = InputBox("Veuillez entrer le mot de passe", "Enlever la protection des feuilles", "")
'
If (mdp = "9450") Then
' Si le mot de passe est bon, on exécute la boucle...
For I = 1 To Sheets.Count
Sheets(I).Unprotect mdp
Next I
ActiveWindow.SmallScroll Down:=-15
Sheets("tiama.msc").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("menu.check").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("traitement").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("technores").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("allglass").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("iris").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("rosario").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("thimon").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("nci-hci").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("check.v6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("menu mcf").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("mcal3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("mcal4").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("OMS").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("menu mv2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("MENU CO").Select
Sheets("menu miniature").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("menu palette").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("menu powers").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Sheets("plan du local").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("menu").Select
Range("Q1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas" _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Else: MsgBox ("Mauvais mot de passe.")
'
'
End If
End Sub
exemple de mon menu
Voici un premier jet.
Je te laisse tester.
On peut encore améliorer. Le code que je te donne comporte deux boucles. Avec une seule nous en aurions largement assez.
Je préfères toutefois que tu regardes déjà ce code et que tu reviennes nous donner ton avis.
Sub deverouillertouteslesfeuilles()
mdp = InputBox("Veuillez entrer le mot de passe", "Enlever la protection des feuilles", "")
If (mdp = "9450") Then
' Si le mot de passe est bon, on exécute la boucle...
For I = 1 To Sheets.Count
Sheets(I).Unprotect mdp
Next I
Dim Wsh As Worksheet
For Each Wsh In ThisWorkbook.Worksheets(Array("tiama.msc", "menu.check", "traitement", "technores", "allglass", "iris", "rosario", "thimon", "nci-hci", "check.v6", "menu mcf", "mcal3", "mcal4", "OMS", "menu mv2", "menu miniature", "menu palette", "menu powers", "plan du local"))
With Wsh
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas", AllowFormattingCells:=True, AllowFormattingRows:=True
End With
Next Wsh
Sheets("menu").Select
Range("Q1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas", AllowFormattingCells:=True, AllowFormattingRows:=True
Else
MsgBox ("Mauvais mot de passe.")
End If
End Sub
Merci je v essayer demain car la j ai finis le taf ^^
re bonjour pikaju et les autres
bon, j ai remplacer mon code par le tiens qui fonctionne, cependant, je vois tjs les pages defiles lorsque je debloque mon classeur
mon classeur contient au moin 130 onglets .... et certains avec des images de pieces detachees, donc plus lourd au niveau de la macro.
si un petit patienter pouvais apparaitre, ca me permettrais de l inserer dans d autres action comme la sauvegarde, une mise a jour de pieces, ....
merci bcp
Bonjour,
Nous n'avons pas encore fini.
Nous allons maintenant :
- empêcher ce "défilement" des feuilles,
- réunir les deux boucles en une seule.
Donc... Teste maintenant ce nouveau code et reviens nous dire ce qu'il en est. Temps d'attente, défilement etc....
Sub deverouillertouteslesfeuilles()
Dim Feuil_A_Proteger(), mdp As String, I As Integer, Pos As Integer
Feuil_A_Proteger = Array("tiama.msc", "menu.check", "traitement", "technores", "allglass", "iris", "rosario", "thimon", "nci-hci", "check.v6", "menu mcf", "mcal3", "mcal4", "OMS", "menu mv2", "menu miniature", "menu palette", "menu powers", "plan du local")
mdp = InputBox("Veuillez entrer le mot de passe", "Enlever la protection des feuilles", "")
'Empêche le défilement :
Application.ScreenUpdating = False
If (mdp = "9450") Then
' Si le mot de passe est bon, on exécute la boucle...
For I = 1 To Sheets.Count
On Error Resume Next
Pos = Application.Match(Sheets(I).Name, Feuil_A_Proteger, 0)
On Error GoTo 0
If Pos > 0 Then
Sheets(I).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas", AllowFormattingCells:=True, AllowFormattingRows:=True
Else
Sheets(I).Unprotect mdp
End If
Next I
Sheets("menu").Select
Range("Q1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="dallas", AllowFormattingCells:=True, AllowFormattingRows:=True
Else
MsgBox ("Mauvais mot de passe.")
End If
Application.ScreenUpdating = True
End Sub
excellent travail, rien a redire a part bravo et merci ^^
pense tu que tu puisses eventuellement faire de meme sur une macro tres grande de ce style ....
si tu ne veux pas te prendre la tete, ne t inquiete pas ^^
il s agit d une macro ou je copie bcp de texte dans une selection predefinie, dans un onglet ou je met tout a la suite en laissant du blanc entre chaque copie si je rajoute du materiel, ensuite je trie toue et je supprime les doublons
chaque onglet represente une partie de differente machine avec les pieces de rechange, les designations, le stock, ...., et j ai un onglet ou je rassemble toutes ces pages pour n avoir qu une seule feuille avec tout ce qu il y a dans le magasins de pieces de rechange.
attention elle est tres longue, et je voie egalement le defilement de la macro
Sub miseajourtouteslesreferences()
'
' miseajourtouteslesreferences Macro
'
Range("B6:I5418").Select
Selection.ClearContents
Sheets("guide").Select
Range("B41:I63").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B6").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("vis").Select
Range("B41:I92").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B29").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("planeite").Select
Range("B41:I72").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B81").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("plug").Select
Range("B41:I93").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B113").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("cin,etanche").Select
Range("B82:I101").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B166").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=12
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("cin,plug").Select
Range("B41:I77").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-21
Range("B41").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B186").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=36
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("tournette").Select
Range("B41:I92").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("B41").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B223").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=48
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("cin,tourn").Select
Range("B41:I82").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.SmallScroll Down:=-21
Range("B41").Select
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=15
Range("B275").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=36
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("emet,recep").Select
Range("B41:I58").Select
Application.CutCopyMode = False
Selection.Copy
Range("B41").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B317").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("ens,index").Select
Range("B41:I73").Select
Application.CutCopyMode = False
Selection.Copy
Range("B41").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B335").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=33
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.SmallScroll Down:=-6
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.SmallScroll Down:=3
Sheets("ens,index").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("CSB").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I63").Select
ActiveWindow.SmallScroll Down:=6
Application.CutCopyMode = False
Selection.Copy
Range("B41").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=3
Range("B368").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=30
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("sup.sabre").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I55").Select
Application.CutCopyMode = False
Selection.Copy
Range("B41").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B391").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=13
Sheets("guidesup").Select
ActiveWindow.SmallScroll Down:=15
Range("B41:I66").Select
Application.CutCopyMode = False
Selection.Copy
Range("B41").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=18
Range("B406").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("arbreinterm").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I68").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-21
Range("B41").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B432").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=12
Sheets("NCI camera").Select
ActiveWindow.SmallScroll Down:=21
Range("B39:I60").Select
Application.CutCopyMode = False
Selection.Copy
Range("B39").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B460").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=27
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=16
Sheets("HCI-NCI source 200mm").Select
ActiveWindow.SmallScroll Down:=15
Range("B39:I54").Select
Application.CutCopyMode = False
Selection.Copy
Range("B39").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B482").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("detection HCI").Select
ActiveWindow.SmallScroll Down:=15
Range("B39:I64").Select
Application.CutCopyMode = False
Selection.Copy
Range("B39").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B498").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=19
Sheets("NCI-HCI source std").Select
ActiveWindow.SmallScroll Down:=18
Range("B39:I54").Select
Application.CutCopyMode = False
Selection.Copy
Range("B39").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=9
Range("B524").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=21
Sheets("laser+").Select
ActiveWindow.SmallScroll Down:=15
Range("B41:I61").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B562").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=26
Sheets("plug v6").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I70").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=18
Range("B583").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=24
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=26
Sheets("etancheite v6").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I65").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=12
Range("B613").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("multi- mouvements").Select
ActiveWindow.SmallScroll Down:=12
Range("B39:I64").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=15
Range("B638").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=22
ActiveWindow.ScrollWorkbookTabs Sheets:=6
Sheets("bac de rejet v6").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I52").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=15
Range("B664").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=22
ActiveWindow.ScrollWorkbookTabs Sheets:=8
Sheets("bac de rejets").Select
ActiveWindow.SmallScroll Down:=21
Range("B40:I52").Select
ActiveWindow.SmallScroll Down:=-6
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B676").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=33
Sheets("cellule et capteur").Select
ActiveWindow.SmallScroll Down:=21
Range("B39:I55").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B689").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=30
Sheets("codeur et trans").Select
ActiveWindow.SmallScroll Down:=15
Range("B39:I60").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B706").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("courroies").Select
ActiveWindow.SmallScroll Down:=18
Range("B39:I61").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=27
Range("B728").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=30
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=34
Sheets("mcfstress").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I60").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B751").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=33
Sheets("csb multi").Select
ActiveWindow.SmallScroll Down:=21
Range("B39:I54").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B771").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=39
Sheets("optique mcal").Select
ActiveWindow.SmallScroll Down:=18
Range("B39:I59").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B787").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=32
ActiveWindow.ScrollWorkbookTabs Sheets:=5
Sheets("oms axe rouleau epaisseur").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I68").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B808").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=35
ActiveWindow.ScrollWorkbookTabs Sheets:=4
Sheets("oms boite anterieur").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I64").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B836").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=27
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=40
Sheets("oms plaque posterieur").Select
ActiveWindow.SmallScroll Down:=51
Range("B75:I93").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B860").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=42
Sheets("oms cylindre de tension").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I61").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=18
Range("B879").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=36
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.SmallScroll Down:=6
Sheets("oms cylindre de tension avec ax").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I60").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B900").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=43
Sheets("oms plastron").Select
ActiveWindow.SmallScroll Down:=63
Range("B74:I111").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B920").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=33
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=43
Sheets("oms leviers").Select
ActiveWindow.SmallScroll Down:=54
Range("B75:I119").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B958").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=42
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("oms soudure ruban").Select
ActiveWindow.SmallScroll Down:=54
Range("B75:I105").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=15
Range("B1003").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=30
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=43
ActiveWindow.ScrollWorkbookTabs Sheets:=5
Sheets("oms canal et centrage").Select
ActiveWindow.SmallScroll Down:=30
Range("B41:I69").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B1034").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("oms canal et centrage 2").Select
ActiveWindow.SmallScroll Down:=54
Range("B75:I106").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.SmallScroll Down:=3
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=18
Range("B1063").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("oms tendeurs courroies").Select
ActiveWindow.SmallScroll Down:=51
Range("B75:I100").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=48
Range("B1095").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("oms fig partie electrique").Select
ActiveWindow.SmallScroll Down:=60
Range("B75:I99").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B1121").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("oms equipement special").Select
ActiveWindow.SmallScroll Down:=93
Range("B109:I134").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B1146").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=30
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("oms groupe vis reducteur").Select
ActiveWindow.SmallScroll Down:=57
Range("B74:I96").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B1172").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("oms tete de cerclage").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I63").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B1195").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=56
Sheets("oms axe cames").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I63").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B1218").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=24
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("oms axe recuperation").Select
ActiveWindow.SmallScroll Down:=60
Range("B74:I95").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B1241").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=49
ActiveWindow.ScrollWorkbookTabs Sheets:=5
Sheets("oms axe lancement").Select
ActiveWindow.SmallScroll Down:=54
Range("B74:I94").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=18
Range("B1263").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("oms axe tension").Select
ActiveWindow.SmallScroll Down:=54
Range("B75:I93").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=30
Range("B1284").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=60
Sheets("piste OMS").Select
ActiveWindow.SmallScroll Down:=-9
Range("B6:I40").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=27
Range("B1303").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("iris evo18").Select
ActiveWindow.SmallScroll Down:=21
Range("B39:I40").Select
ActiveWindow.SmallScroll Down:=-6
Range("B39:I97").Select
ActiveWindow.SmallScroll Down:=3
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B1338").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Sheets:=62
Sheets("iris evo5").Select
ActiveWindow.SmallScroll Down:=12
Range("B39:I72").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=63
Range("B1397").Select
ActiveSheet.Paste
Sheets("oméga Tecnores").Select
ActiveWindow.SmallScroll Down:=18
Range("B39:I70").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=42
Range("B1431").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Sheets("omega Allglass").Select
ActiveWindow.SmallScroll Down:=24
Range("B39:I79").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B1463").Select
ActiveSheet.Paste
Sheets("V6 vis introduction").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I65").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=42
Range("B1504").Select
ActiveSheet.Paste
Sheets("motorisation vis d entree").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I66").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B1529").Select
ActiveSheet.Paste
Sheets("roulements").Select
Range("B14:I132").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B1555").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=129
ActiveWindow.ScrollWorkbookTabs Sheets:=-74
Sheets("ensemble etoile v6").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I71").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B1674").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-76
Sheets("sabre V6").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I62").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=33
Range("B1705").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-76
Sheets("tambour V6").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I69").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B1727").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-69
Sheets("guide V6").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I70").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B1756").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-72
Sheets("emetteur-recepteur V6").Select
ActiveWindow.SmallScroll Down:=21
Range("B40:I72").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=36
Range("B1786").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
ActiveWindow.ScrollWorkbookTabs Sheets:=-64
ActiveWindow.ScrollWorkbookTabs Sheets:=-4
Sheets("plaques de glissement V6").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I67").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.SmallScroll Down:=6
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=18
Range("B1819").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-69
Sheets("convoyage").Select
ActiveWindow.SmallScroll Down:=-18
Range("B18:I66").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B1846").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Sheets("stackermv2").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I91").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B1895").Select
ActiveSheet.Paste
Sheets("casiermv2").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I78").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=54
Range("B1946").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-65
Sheets("portiquemv2").Select
ActiveWindow.SmallScroll Down:=24
Range("B39:I75").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=33
Range("B1984").Select
ActiveSheet.Paste
Sheets("cadremv2").Select
ActiveWindow.SmallScroll Down:=15
Range("B44:I91").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=39
Range("B2021").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-61
ActiveWindow.SmallScroll Down:=6
Sheets("contre rampe").Select
ActiveWindow.SmallScroll Down:=-15
Range("B7:I33").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=39
Range("B2069").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=24
Sheets("Vis d entree CO").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I106").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B2096").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-59
Sheets("planeite CO").Select
ActiveWindow.SmallScroll Down:=27
Range("B41:I92").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=66
Range("B2162").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-59
Sheets("calibrage CO").Select
ActiveWindow.SmallScroll Down:=66
Range("B89:I136").Select
ActiveWindow.SmallScroll Down:=93
Range("B89:I136,B212:I259").Select
Range("B212").Activate
ActiveWindow.SmallScroll Down:=63
Range("B89:I136,B212:I259,B301:I333").Select
Range("B301").Activate
ActiveWindow.SmallScroll Down:=-216
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=60
Range("B2214").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Sheets("tambour de sortie").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I86").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=114
Range("B2343").Select
ActiveSheet.Paste
Sheets("Pulseur CO").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I66").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=33
Range("B2389").Select
ActiveSheet.Paste
Sheets("sortie courroie large").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I65").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B2415").Select
ActiveSheet.Paste
Sheets("plateau rejet").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I59").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=33
Range("B2440").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Sheets("presence article CO").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I67").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B2459").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Sheets("rotation article CO").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I89").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B2486").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Sheets("emetteur recepteur CO").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I81").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=33
Range("B2535").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=39
Sheets("bloc rotation article CO").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I71").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B2576").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Sheets("ovalisation CO").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I65").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=12
Range("B2607").Select
ActiveSheet.Paste
Sheets("volumix").Select
Range("B46:I94").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B2632").Select
ActiveSheet.Paste
Sheets("transmatic").Select
ActiveWindow.SmallScroll Down:=24
Range("B44:I82").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=48
Range("B2681").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=27
Sheets("plaque d'usure v5").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I63").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B2720").Select
ActiveSheet.Paste
Sheets("motorisation principale").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I69").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.SmallScroll Down:=18
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B2743").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Sheets("arbre vertical").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I69").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=9
Range("B2772").Select
ActiveSheet.Paste
Sheets("support sabre CO").Select
Range("B7:I34").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B2801").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-39
Sheets("CO plaques d usure").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I68").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=39
Range("B2829").Select
ActiveSheet.Paste
Sheets("sortie brosse").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I76").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B2857").Select
ActiveSheet.Paste
Sheets("convoyeur").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I77").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=36
Range("B2893").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=24
ActiveWindow.ScrollWorkbookTabs Sheets:=-32
ActiveWindow.ScrollWorkbookTabs Sheets:=-4
Sheets("codeur").Select
Range("B7:I33").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B2930").Select
ActiveSheet.Paste
Sheets("indexeur").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I71").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B2957").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-32
ActiveWindow.ScrollWorkbookTabs Sheets:=-4
Sheets("arbre horizontal").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I68").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B2988").Select
ActiveSheet.Paste
Sheets("guidesecteurco").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I92").Select
ActiveWindow.SmallScroll Down:=-21
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=30
Range("B3016").Select
ActiveSheet.Paste
Sheets("boite a lumiere").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I65").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=60
Range("B3068").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-25
ActiveWindow.ScrollWorkbookTabs Sheets:=-6
Sheets("CO pieces divers").Select
Range("B7:I34").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B3093").Select
ActiveSheet.Paste
Sheets("mv2 stoppeur").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I70").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B3121").Select
ActiveSheet.Paste
Sheets("mv2 moteur stacker").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I66").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B3151").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Sheets("powers").Select
ActiveWindow.SmallScroll Down:=-12
Range("B6:I64").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=15
Range("B3177").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=30
Sheets("powers contre rampe").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I85").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B3236").Select
ActiveSheet.Paste
Sheets("pompe planeitée").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I73").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=42
Range("B3281").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=48
ActiveWindow.ScrollWorkbookTabs Sheets:=-21
ActiveWindow.ScrollWorkbookTabs Sheets:=-5
Sheets("tk10").Select
ActiveWindow.SmallScroll Down:=15
Range("B41:I78").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B3314").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-27
Sheets("ap5").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I100").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B3352").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=57
ActiveWindow.ScrollWorkbookTabs Sheets:=-24
Sheets("sous ensemble table d entree").Select
ActiveWindow.SmallScroll Down:=21
Range("B43:I76").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
Range("B3412").Select
ActiveSheet.Paste
Sheets("sous ensemble verin de blocage").Select
ActiveWindow.SmallScroll Down:=21
Range("B45:I80").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=42
Range("B3446").Select
ActiveSheet.Paste
Sheets("schema pneumatique").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I66").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=42
Range("B3482").Select
ActiveSheet.Paste
Sheets("pince mv2").Select
ActiveWindow.SmallScroll Down:=24
Range("B43:I71").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B3508").Select
ActiveSheet.Paste
Sheets("ensemble pivotant").Select
ActiveWindow.SmallScroll Down:=27
Range("B49:I83").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B3537").Select
ActiveSheet.Paste
Sheets("ensemble frein").Select
ActiveWindow.SmallScroll Down:=24
Range("B48:I79").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=36
Range("B3572").Select
ActiveSheet.Paste
Sheets("pieces divers miniature").Select
Range("B6:I52").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=27
Range("B3604").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
ActiveWindow.ScrollWorkbookTabs Sheets:=-12
Sheets("agrafeuse").Select
ActiveWindow.SmallScroll Down:=30
Range("B44:I88").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=42
Range("B3651").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-12
Sheets("wa-200").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I88").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=33
Range("B3696").Select
ActiveSheet.Paste
Sheets("krautzberger").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I97").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=57
Range("B3744").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=42
Sheets("guide etancheite v6").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I72").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=21
Range("B3801").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Sheets("cobra-2").Select
ActiveWindow.SmallScroll Down:=21
Range("B41:I85").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=3
Range("B3833").Select
ActiveSheet.Paste
Sheets("powers support vis").Select
ActiveWindow.SmallScroll Down:=18
Range("B41:I81").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=3
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=45
Range("B3878").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=24
ActiveWindow.ScrollWorkbookTabs Sheets:=-6
Sheets("chariot powers").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I90").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.SmallScroll Down:=6
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B3919").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-4
Sheets("bati came").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I77").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=36
Range("B3969").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=24
Sheets("entrai,par chaine").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I90").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B4006").Select
ActiveSheet.Paste
Sheets("avanceretard").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I81").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B4056").Select
ActiveSheet.Paste
Sheets("entrain came piston").Select
ActiveWindow.SmallScroll Down:=24
Range("B41:I85").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=33
Range("B4097").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Sheets("platine powers").Select
Range("B41:I98").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=24
Range("B4142").Select
ActiveSheet.Paste
Sheets("toutes ref").Select
ActiveWindow.SmallScroll Down:=9
ActiveWindow.SmallScroll Down:=-24
Range("B6:I7088").Select
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-27
Range("B6:I9629").Select
ActiveWindow.SmallScroll Down:=-12
Range("B5:I9275").Select
ActiveWorkbook.Worksheets("toutes ref").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("toutes ref").Sort.SortFields.Add _
Key:=Range("D6:D5418"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("toutes ref").Sort
.SetRange Range("B5:I5418")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-21
Range("B6:I5418").Select
ActiveSheet.Range("$B$5:$I$5418").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6 _
, 7, 8), Header:=xlYes
ActiveWorkbook.Worksheets("toutes ref").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("toutes ref").Sort.SortFields.Add _
Key:=Range("D6:D5418"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("toutes ref").Sort
.SetRange Range("B5:I5418")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-18
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
ActiveWindow.SmallScroll Down:=-9
Range("G2").Select
End Sub
Bonjour,
Exemples pour copier tes données :
Application.ScreenUpdating=False
Range("B6:I5418").ClearContents
With Worksheets("guide")
.Range("B41:I63").Copy Destination:=Worksheets("toutes ref").Range("B6")
End With
With Worksheets("vis")
.Range("B41:I92").Copy Destination:=Worksheets("toutes ref").Range("B29")
End With
With Worksheets("planeite")
.Range("B41:I72").Copy Destination:=Worksheets("toutes ref").Range("B81")
End With
En effet, tout faire à ta place ne t'aidera que partiellement. Le mieux étant encore que tu saches le faire par toi-même.
Si tu veux bien nous allons y aller pas à pas.
1- retires de ton code tout ce qui est totalement inutile.
Soit :
==> Application.CutCopyMode = False
==> ActiveWindow.ScrollWorkbookTabs Position:=xl...
==> ActiveWindow.SmallScroll .....
On verra ensuite comment écrire les codes de tes copié-collé selon la méthode montrée par Jean-Eric (que je salue au passage).
J'attend donc de ta part un code épuré.
PS : pour plus de clarté, lorsque tu places un code sur un forum, il est bon de l'entourer des balises de code.
Pour cela, avant de coller ton code ici, cliques sur le bouton "Code" au dessus du champ de saisie de ta réponse, puis colle ton code entre les deux balises comme ceci : [ code ] colle ton code ICI [ /code ]
ok tres bien, je v essayer de m occuper de cette longue macro.
encore merci de votre attention et de votre aide pour nous aider a evoluer dans excel.
je vais m occuper de ça une fois mon travail finis.
encore merci pour votre attention et votre aide.
re bonjour a tous.
Pikaju, j ai un soucis au niveau de ton code que tu m as donne hier.
le deuxieme code en faite ne fonctionne pas.
il verouille bien toutes les pages, mais ne deverouille pas les autres.
Bonjour,
Il y a sans doute une "confusion" dans le mot de passe.
Tu protèges les feuilles à protéger avec le mot de passe "dallas" et ôtes la protection des feuilles avec le mot de passe "9450".
Si ton mot de passe est "dallas", remplaces la ligne :
Sheets(I).Unprotect mdp
par :
Sheets(I).Unprotect "dallas"
re , merci de ton attention, en fait j ai , je pense reussi, en inserrant juste cette ligne de commande que tu m avais aussi donner je crois, de ce fait, ca fonctionne
'Empêche le défilement :
Application.ScreenUpdating = False
pikaju, petit soucis, sur le grand code que j ai donner hier, j ai inserer le code vu au dessus, il fonctionne bien, je ne vois pas les pages defiles, en revanche, a la fin, il ne me remet pas au debut, en haut de ma page.
as tu une solution
merci
Sheets("NomDeTaFeuill").Select
Range("A1").Select
En adaptant le nom de la feuille que tu souhaites voir apparaitre...
re
non ca ne fonctionnais pas, j ai isserer le code inverse a la fin, juste avant de dire ma selection de cellule et ca fonctionne
'Empêche le défilement :
Application.ScreenUpdating = False
'macro entre 2
Application.ScreenUpdating = True
merci a toi