Copier/Coller vers une Feuille Masquée

Résolu/Fermé

achgel Messages postés 108 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 - 5 sept. 2016 à 02:29
achgel Messages postés 108 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 - 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
Copier une vidéo youtube - Guide
Copier coller pdf - Guide
Windows 7 vers windows 10 - Guide
Symbole coeur copier-coller ✓ - Forum Réseaux sociaux
Super copier - Télécharger - Gestion de fichiers

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
5 sept. 2016 à 08:25

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 mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 1
5 sept. 2016 à 09:54

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 mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 1
7 sept. 2016 à 12:31

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

Dessiner avec son clavier et avec des lettres

Sécurité de l'URL

Colis en cours de transport vers votre site de livraison ?

Comment faire le signe de croix (chrétiens) ?

dessin au clavier cannabis

Discussions similaires

Newsletters