Modifier la Macro Copier/Coller d'une Feuille à l'autre [Résolu/Fermé]

Messages postés
98
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
15 octobre 2019
- - Dernière réponse : achgel
Messages postés
98
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
15 octobre 2019
- 10 oct. 2016 à 01:54
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



Afficher la suite 

1 réponse

Messages postés
7828
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
11 octobre 2019
1219
0
Merci
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.
achgel
Messages postés
98
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
15 octobre 2019
1 -
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
Patrice33740
Messages postés
7828
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
11 octobre 2019
1219 -
Bonjour,

Je ne vois pas où est le problème !

La question reste la même, mais tu ne précises toujours pas le résultat que tu voudrais obtenir !
achgel
Messages postés
98
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
15 octobre 2019
1 -
Bonjour

En réalité je veux changer la Macro, ci dessus, de façon à ce que le nombre de colonne (C) soit indépendant du nombre de colonne (F)

Merci infiniment pour votre aides et votre patience

Cordialement