Copier/Coller vers une Feuille Masquée

Résolu

achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention - 7 sept. 2016 à 12:31

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

A voir également:

Copier/Coller vers une Feuille Masquée
Historique copier coller - Guide
Copier coller pdf - Guide
Copier-coller - Accueil - Informatique
Style d'écriture a copier coller - Guide
Comment copier une vidéo youtube - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention 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

achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention 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

Discussions similaires

dessin avec symbole clavier

Sécurité de l'URL

comment lire un message masqué????

La nouvelle messagerie du Boncoin....

dessin au clavier cannabis

Votre réponse

Discussions similaires