VBA-Répéter un copier/coller
Résolu
vero1989
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
vero1989 -
vero1989 -
A voir également:
- Copier coller vba
- Historique copier-coller android - Guide
- Copier coller pdf - Guide
- Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
- Copier-coller - Accueil - Informatique
- Symbole clavier copier coller - Guide
2 réponses
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.
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à!!!
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).