Modifier la Macro Copier/Coller d'une Feuille à l'autre
Résolu
achgel
Messages postés
113
Statut
Membre
-
achgel Messages postés 113 Statut Membre -
achgel Messages postés 113 Statut Membre -
Bonjour,
J'utilise la Macro si dessous pour copie coller d'une Feuille à l'autre
Mon problème c'est que lorsque le nombre de ligne de la Colonne C de la Feuille ("Saisie-LSP") est différent du nombre de lignes de la Colonne F la Macro ne marche pas
J'aimerais bien que avoir de l’aide à ce que la Macro fonctionne telle que:
la Colonne C de la Feuille ("Saisie-LSP") contient 13 ligne
la Colonne F de la Feuille ("Saisie-LSP") contient 12 ligne
Merci infiniment
La Macro est la suivente:
Sub Ajout_Info_LSP()
Dim Tablo_c, Tablo_f, Tablo_out, cptr As Byte, Cpt_out As Byte
'---------initialisations
Application.ScreenUpdating = False
'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("L S P")
.Range("A2").Resize(1, 26) = Tablo_out
.Columns("A:Z").EntireColumn.AutoFit
.Activate
End With
End Sub
J'utilise la Macro si dessous pour copie coller d'une Feuille à l'autre
Mon problème c'est que lorsque le nombre de ligne de la Colonne C de la Feuille ("Saisie-LSP") est différent du nombre de lignes de la Colonne F la Macro ne marche pas
J'aimerais bien que avoir de l’aide à ce que la Macro fonctionne telle que:
la Colonne C de la Feuille ("Saisie-LSP") contient 13 ligne
la Colonne F de la Feuille ("Saisie-LSP") contient 12 ligne
Merci infiniment
La Macro est la suivente:
Sub Ajout_Info_LSP()
Dim Tablo_c, Tablo_f, Tablo_out, cptr As Byte, Cpt_out As Byte
'---------initialisations
Application.ScreenUpdating = False
'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("L S P")
.Range("A2").Resize(1, 26) = Tablo_out
.Columns("A:Z").EntireColumn.AutoFit
.Activate
End With
End Sub
1 réponse
-
Bonjour,
Cette macro fonctionne parfaitement !
Ce n'est peut-être pas le résultat que tu souhaites, mais tes explications sont plutôt lacunaires !
Tu parles de 13 et 12 lignes mais les plages contiennent 25 lignes (4 à 28).
Il faut que tu précises le résultat que tu voudrais obtenir.
-
Bonjour Patrice33740
En réalité j'utilise les lignes 4, 6, 8, 10.....28
c'est à dire les ligne à nombre paire. En total 13 lignes
Ma question c'est comment faire pour que la même Macro peut fonctionner lorsque:
la Colonne C de la Feuille ("Saisie-LSP") contient 13 ligne
la Colonne F de la Feuille ("Saisie-LSP") contient 12 ligne
Cordialement -
-
-
