Copier/Coller vers une Feuille Masquée [Résolu/Fermé]

Signaler
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
-
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
-
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


1 réponse

Messages postés
15350
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 septembre 2020
1 361
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
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
1
Bonjour f894009

Merci pour votre aide

j'ai utiliser votre macro pour le Copier/Coller, elle fonctionne parfaitement bien

C'est vraiment très gentille de votre part

Merci beaucoup

Cordialement
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
1
Bonjour f894009

Si vous le permettez,

J'aimerais bien savoir comment faire pour rendre les Colonnes "C" et "F" illimitées à partir de "C4" et F4"

Merci beaucoup

Cordialement