Re : activeSheets.Paste Link:=True çà plante !
bon après pas mal d'erreur et après une coupe franche dans les codes je sais pas pourquoi mais çà plante plus et en plus
çà affiche quelque chose, mais ( il y a toujours un mais ! ) je n'ai que le dernier onglet qui est afficher ( celui juste avant "new page") si je change l'ordre des onglet çà change aussi.
je voudrais afficher les valeurs de A27:l27 de toutes mes pages, vu que j'ai de nouvelles pages qui se créent toutes les semaines.
je ne comprend pas pourquoi je n'ai que le dernier onglet, dans le code j'ai rien vu qui me fait penser que on demande çà .
Sub Bouton2_Clic()
Dim Ligne, Nombre As Long
Application.ScreenUpdating = False
Ligne = 2
'Ligne = Range("A2").End(xlDown).Row + 1
For Nombre = 1 To Sheets.Count
Colonne = Range("l1").End(xlToLeft).Column
Sheets(Nombre).Range("A27:L27").Copy
Sheets("stock").Select
Cells(Ligne, Colonne).Select
ActiveSheet.Paste Link:=True
Next Nombre
Application.ScreenUpdating = True
End Sub
le code qui semblerait'il possait problème était dans un userform dans le Bt pour l'enregistrement de la feuille
code que j'ai du couper:
'deverouillage de la page mot de passe antoine
Sheets("historiq").EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
'mise à jour historique
i = Sheets("historiq").Range("a65536").End(xlUp).Row + 1
Sheets("historiq").Range("a" & i) = Format(Date, "dddd d mmm yyyy")
Sheets("historiq").Range("b" & i) = Format(Time, "h:mm:ss")
Sheets("historiq").Range("c" & i) = Range("A2")
Sheets("historiq").Range("d" & i) = (" création de l'ensemble")
' verouiller page historiq
Sheets("historiq").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True