VBA-Répéter un copier/coller
Résolu/Fermé
vero1989
Messages postés
1
Date d'inscription
mardi 5 juillet 2011
Statut
Membre
Dernière intervention
5 juillet 2011
-
5 juil. 2011 à 20:32
vero1989 - 7 juil. 2011 à 22:57
vero1989 - 7 juil. 2011 à 22:57
A voir également:
- Copier coller vba
- Copier coller pdf - Guide
- Copier-coller - Accueil - Windows
- Historique copier-coller android - Guide
- Symbole clavier copier coller - Guide
- Copier une vidéo youtube - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 751
6 juil. 2011 à 09:50
6 juil. 2011 à 09:50
Bonjour,
Sans voir la structure réelle de votre feuille, ça va pas être simple.
En effet, vos "tableaux" sont-ils tous de 3 colonnes? Lundi mardi mercredi? ou alors, de temps en temps, ne trouve t'on pas un jeudi supplémentaire?
On va faire simple, créez une copie de votre fichier avec quelques données (non confidentielles), enregistrez le "sous" au format Excel 97-2003, puis, allez créer sur https://www.cjoint.com/ ou http://www.cijoint.fr/ un lien vers votre fichier, lien que vous viendrez coller ici dans une réponse.
Sans voir la structure réelle de votre feuille, ça va pas être simple.
En effet, vos "tableaux" sont-ils tous de 3 colonnes? Lundi mardi mercredi? ou alors, de temps en temps, ne trouve t'on pas un jeudi supplémentaire?
On va faire simple, créez une copie de votre fichier avec quelques données (non confidentielles), enregistrez le "sous" au format Excel 97-2003, puis, allez créer sur https://www.cjoint.com/ ou http://www.cijoint.fr/ un lien vers votre fichier, lien que vous viendrez coller ici dans une réponse.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 751
7 juil. 2011 à 08:59
7 juil. 2011 à 08:59
Bonjour,
Alors une petite macro qui te fais ça tout bien :
1- Ouvre ton classeur,
2- Tape : ALT+F11
3- sous microsoft visual basic : Insertion/Module (!!! pas module de classe, module tout court!!!)
4- Copier / coller ce code dans le module :
5- fermer Microsoft Visual Basic (vous êtes de retour sur votre feuille)
6- ALT+F8 depuis la feuille "data"
7- sélectionner : CopiCollTablo et cliquer sur Exécuter
Et voilà!!!
Alors une petite macro qui te fais ça tout bien :
1- Ouvre ton classeur,
2- Tape : ALT+F11
3- sous microsoft visual basic : Insertion/Module (!!! pas module de classe, module tout court!!!)
4- Copier / coller ce code dans le module :
Sub CopiCollTablo()
Dim Col As Integer
Dim Lign As Long
Lign = 50
For Col = 12 To 253 Step 11
With Sheets("data")
.Range(.Cells(1, Col), .Cells(50, Col + 10)).Cut .Cells(Lign, 1)
End With
Lign = Lign + 50
Next
End Sub
5- fermer Microsoft Visual Basic (vous êtes de retour sur votre feuille)
6- ALT+F8 depuis la feuille "data"
7- sélectionner : CopiCollTablo et cliquer sur Exécuter
Et voilà!!!
6 juil. 2011 à 13:47
http://cjoint.com/?0GgnTabNIO5
Vous pourrez reconnaître le début et la fin des tableaux avec la mise en forme et les dates en haut, mais j'ai dû enlever toutes les données qui sont confidentielles. Les tableaux ont toujours le même format (pas de colonne supplémentaire).
7 juil. 2011 à 22:57