Copier-coller spécifique
Bonjour,
J’ai cette macro dans le fichier « rechercher déplacer »qui permet de copier et de coller les fonctions contenu dans les dernières lignes d’un tableau dans le fichier « exemple » dans toutes les autres lignes d’un tableau.
Les fonctions contenues dans toutes les cellules correspondant aux dates de décembre sont copier puis coller dans les autres cellules.
Pour ce faire, il suffit de mettre l’emplacement désigné en cellule B6 pour chercher le document excel ou l’on souhaite faire la modification et la macro doit s’appliquer sur tous les onglets des fichiers (ce sont les memes tableaux à chaque fois).
Cependant, les copiers coller de mon code ne fonctionne pas …
De plus, je voudrais insérer une ligne en plus au dessus de la ligne 68 lorsque l’année est bissextile (2024,2028,2032,2036,2040,2044,2048,2052,2056). Et donc mettre « J » en A68, 29/02/(la même année que la cellule d’avant), et la même formule que au dessus pour la plage de donné C68:BW68.
Pourriez vous m’aider je suis bloqué?
Merci beaucoup beaucoup d’avance
Bonjour POPOtte56
Cependant, les copiers coller de mon code ne fonctionne pas …
Il vous faut une formation sur la programmation objet (ce qu'est VBA)
Quand je vois cela, il semble que vous n'ayez pas assimilé le sujet
chaque_fichier = Dir(nom_dossier & "\*.xls*")
Do While chaque_fichier <> ""
Set le_fichier = Workbooks.Open(nom_dossier & "\" & chaque_fichier)
For Each sh In le_fichier.Worksheets
Range("C353:BV383").Copy Worksheets.Range("C8:BW38")
A quoi sert la variable objet "Sh" du coup ?
A+