Modifier la Macro Copier/Coller d'une Feuille à l'autre
Résolu
achgel
Messages postés
108
Date d'inscription
Statut
Membre
Dernière intervention
-
achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Modifier la Macro Copier/Coller d'une Feuille à l'autre
- Modifier dns - Guide
- Historique copier coller - Guide
- Modifier liste déroulante excel - Guide
- Style d'écriture a copier coller - Guide
- Copier-coller - Accueil - Informatique
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
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 !
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