A voir également:
- Macro copier coller valeur dans une autre feuille
- Copier la valeur d'une cellule dans une autre feuille vba - Meilleures réponses
- Copier coller une plage de cellules dans une autre feuille ✓ - Forum - Excel
- Vba excel copier coller une plage de cellules - Forum - VB / VBA
- Macro copier coller une plage ✓ - Forum - VB / VBA
- Excel copier coller une sélection de cellules un x nombre de fois ✓ - Forum - VB / VBA
- Comment sélectionner/copier/coller une plage de résultat d'un TCD? ✓ - Forum - VB / VBA
2 réponses
Maurice
Bonjour
Voila la modife de la macro
A+
Maurice
Voila la modife de la macro
Sub Reporter() Col = Range("B2").Value + 9 Range("O7:O12").Copy Feuil2.Select Cells(4, Col).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.Goto [A1], True End Sub
A+
Maurice
Signaler
Jo33
Merci ! ça fonctionne parfaitement bien !
via55
- Messages postés
- 12998
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 13 avril 2021
Bonjour
Sans connaitre la structure de ton fichier pas possible de t'aider
Postes un exemple (allégé et anonymé si nécessaire ) de ton fichier sur cjoint.com, fais créer un lie, copies le et reviens le coller ici dans un prochain message
Cdlmnt
Via
Sans connaitre la structure de ton fichier pas possible de t'aider
Postes un exemple (allégé et anonymé si nécessaire ) de ton fichier sur cjoint.com, fais créer un lie, copies le et reviens le coller ici dans un prochain message
Cdlmnt
Via
via55
- Messages postés
- 12998
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 13 avril 2021
Re,
Modifie dans la macro la lige qui indique le report ainsi
Sheets("Reporting quadrimestriel").Range("I4").Offset(0, Sheets("Reporting hebdomadairel").Range("B2").Value ).Select
Si tu ne veux pas que les données puissent êre modifies il faut d'abord protéger la feuille quadrimestriel, puis dans la macro, avant la ligne précédente mettre ces lignes
If Sheets("Reporting quadrimestriel").Range("I4").Offset(0, Sheets("Reporting hebdomadairel").Range("B2").Value) <> "" Then Exit Sub
Sheets("Reporting quadrimestriel").Unprotect
La 1° vérifie que 1ere cellule de report est vide si ce n'est pas cas sortie
La 2° déprotège
Rajouter enfin ligne en fin de macro pour reprotéger
Sheets("Reporting quadrimestriel").Unprotect
Clmnt
Via
Modifie dans la macro la lige qui indique le report ainsi
Sheets("Reporting quadrimestriel").Range("I4").Offset(0, Sheets("Reporting hebdomadairel").Range("B2").Value ).Select
Si tu ne veux pas que les données puissent êre modifies il faut d'abord protéger la feuille quadrimestriel, puis dans la macro, avant la ligne précédente mettre ces lignes
If Sheets("Reporting quadrimestriel").Range("I4").Offset(0, Sheets("Reporting hebdomadairel").Range("B2").Value) <> "" Then Exit Sub
Sheets("Reporting quadrimestriel").Unprotect
La 1° vérifie que 1ere cellule de report est vide si ce n'est pas cas sortie
La 2° déprotège
Rajouter enfin ligne en fin de macro pour reprotéger
Sheets("Reporting quadrimestriel").Unprotect
Clmnt
Via
Jo33
>
via55
- Messages postés
- 12998
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 13 avril 2021
Merci pour l'aide cependant il subsiste une erreur dans la modification du offset que vous m'avez apporté. En effet, en activant le bouton, le message suivant apparaît : erreur d'éxecution '9' : l'indice n'appartient pas à la sélection.
ne s'agirait-il pas pas de la valeur B2 qui ne fait pas parti de du Range I4.
merci
ne s'agirait-il pas pas de la valeur B2 qui ne fait pas parti de du Range I4.
merci
via55
- Messages postés
- 12998
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 13 avril 2021
Non B2est la cellule choix semaine dans hebdomadairel
Ce qu'il faut c'est reselectionner la feuille après la déproctection, donc après la ligne Sheets("Reporting quadrimestriel").Unprotect ajouter une ligne :
Sheets("Reporting quadrimestriel").Select
Ce qu'il faut c'est reselectionner la feuille après la déproctection, donc après la ligne Sheets("Reporting quadrimestriel").Unprotect ajouter une ligne :
Sheets("Reporting quadrimestriel").Select
Jo33
>
via55
- Messages postés
- 12998
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 13 avril 2021
Pourriez vous me faire un copier coller de la formule complète que vous avez appliqué car le problème persiste. Même avec la solution, je n'y arrive pas... Je ne suis vraiment pas doué !