Copier/Coller vers une Feuille Masquée
Résolu
achgel
Messages postés
113
Statut
Membre
-
achgel Messages postés 113 Statut Membre -
achgel Messages postés 113 Statut Membre -
Bonjour,
J'utilise la Macro ci-dessous pour Copier/Collerde la Feuille (Saisie-LSP) vers la feuille (LSP)
dans le cas où la Feuille (LSP) est visible
Mais dans ma situation je veux enregistrer avec la même Macro sauf que la Feuille de destination (LSP) soit toujours Masquée
Merci infiniment pour votre aide
Cordialement
achgel
La Macro est la suivente:
Sub Ajout_Info_LSP()
Dim Tablo_c, Tablo_f, Tablo_out, cptr As Byte, Cpt_out As Byte
Application.ScreenUpdating = False
Sheets("LSP").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'---------initialisations
'mise en mémoire Ram daes éléments en "saisie lsp"
With Sheets("Saisie-LSP")
Tablo_c = Application.Transpose(.Range("C4:C28"))
Tablo_f = Application.Transpose(.Range("F4:F28"))
'tableau de sortie
ReDim Tablo_out(1 To 26)
End With
'-------transfert des données
For cptr = 1 To 26 Step 2
Cpt_out = Cpt_out + 1
Tablo_out(Cpt_out) = Tablo_c(cptr)
Tablo_out(Cpt_out + 13) = Tablo_f(cptr)
Next
'------ restitution dans la feuille lsp
With Sheets("LSP")
.Range("A2").Resize(1, 26) = Tablo_out
.Columns("A:Z").EntireColumn.AutoFit
.Activate
End With
Sheets("Saisie-LSP").Select
Range("C4").Select
Application.CutCopyMode = False
End Sub
J'utilise la Macro ci-dessous pour Copier/Collerde la Feuille (Saisie-LSP) vers la feuille (LSP)
dans le cas où la Feuille (LSP) est visible
Mais dans ma situation je veux enregistrer avec la même Macro sauf que la Feuille de destination (LSP) soit toujours Masquée
Merci infiniment pour votre aide
Cordialement
achgel
La Macro est la suivente:
Sub Ajout_Info_LSP()
Dim Tablo_c, Tablo_f, Tablo_out, cptr As Byte, Cpt_out As Byte
Application.ScreenUpdating = False
Sheets("LSP").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'---------initialisations
'mise en mémoire Ram daes éléments en "saisie lsp"
With Sheets("Saisie-LSP")
Tablo_c = Application.Transpose(.Range("C4:C28"))
Tablo_f = Application.Transpose(.Range("F4:F28"))
'tableau de sortie
ReDim Tablo_out(1 To 26)
End With
'-------transfert des données
For cptr = 1 To 26 Step 2
Cpt_out = Cpt_out + 1
Tablo_out(Cpt_out) = Tablo_c(cptr)
Tablo_out(Cpt_out + 13) = Tablo_f(cptr)
Next
'------ restitution dans la feuille lsp
With Sheets("LSP")
.Range("A2").Resize(1, 26) = Tablo_out
.Columns("A:Z").EntireColumn.AutoFit
.Activate
End With
Sheets("Saisie-LSP").Select
Range("C4").Select
Application.CutCopyMode = False
End Sub
1 réponse
-
Bonjour,
Sub Ajout_Info_LSP() Dim Tablo_c, Tablo_f, Tablo_out, cptr As Byte, Cpt_out As Byte Application.ScreenUpdating = False Sheets("LSP").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove '---------initialisations 'mise en mémoire Ram daes éléments en "saisie lsp" With Sheets("Saisie-LSP") Tablo_c = Application.Transpose(.Range("C4:C28")) Tablo_f = Application.Transpose(.Range("F4:F28")) 'tableau de sortie ReDim Tablo_out(1 To 26) End With '-------transfert des données For cptr = 1 To 26 Step 2 Cpt_out = Cpt_out + 1 Tablo_out(Cpt_out) = Tablo_c(cptr) Tablo_out(Cpt_out + 13) = Tablo_f(cptr) Next '------ restitution dans la feuille lsp With Sheets("LSP") .Range("A2").Resize(1, 26) = Tablo_out .Columns("A:Z").EntireColumn.AutoFit '.Activate End With Sheets("Saisie-LSP").Select Range("C4").Select Application.CutCopyMode = False End Sub
