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
- Copier coller pdf - Guide
- Historique copier-coller android - Guide
- Comment copier une vidéo youtube - Guide
- Copier-coller - Accueil - Informatique
- Symbole clavier copier coller - Guide
1 réponse
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
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