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
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
A voir également:
- Copier/Coller vers une Feuille Masquée
- Dessin a copier coller ✓ - Forum Internet / Réseaux sociaux
- Copier une vidéo youtube - Guide
- Il est en cours de transport vers votre site de livraison ✓ - Forum Consommation et internet
- Windows 7 vers windows 10 - Guide
- Coeur copier coller ✓ - Forum Internet / Réseaux sociaux
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
5 sept. 2016 à 08:25
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
5 sept. 2016 à 09:54
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
7 sept. 2016 à 12:31
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