Copies cellules sous conditions

Fermé
sevy31130 - 31 oct. 2017 à 14:59
 0 LA SAISIE - 1 nov. 2017 à 14:41
Bonjour,

bonjour

je voudrais copier des cellules tous les jours sous condition (date correspondante)
je pense qu'il faut une macro, mais je ne sais pas faire, alors si vous pouviez m'aider
voici le fichier avec une explication sur ce qu'il me faudrait
http://www.cjoint.com/c/GJFmTW0Pm5m
Par avance merci


3 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
31 oct. 2017 à 16:10
Bonjour,
C'est copie des cellules dans la feuille du jour, pas dans toutes les feuilles........
Pour declancher la copie, nous prenons quoi: un bouton, une combinaison de touche ou ..?
0
0 LA SAISIE
31 oct. 2017 à 18:44
bonsoir


Il faut que la macro copie sur la feuille 01 le 1er du mois, le 02 le 2 du mois le 03 le 3 du mois etc.....(exemple le 1er novembre sous condition que les dates correspondent on copie sur la feuille 01 et idem pour chaque jour: DONC JE CHANGE LA DATE à la saisie ainsi que l'arrivée du jour et les rapports. et donc le bouton lancerais la macro pour copier les lignes dans la feuille du jour correspondant
c'est ce qui est le plus pratique pour toi , un bouton c'est très bien
Par avance merci
Par avance merci
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
31 oct. 2017 à 20:17
Re,
Ok, à demain matin
0
0 LA SAISIE > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
31 oct. 2017 à 20:50
ok merci
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > 0 LA SAISIE
1 nov. 2017 à 13:58
Bonjour,

Fichier modifie: https://www.cjoint.com/c/GKbm6UnzpIf
0
bonjour et un grand merci

il y avait une petite erreur, j'ai été dans "macro" et j'ai changé cela
.Range("D5:I5") = Plage1.Value donc la copie n'était pas bonne
car la plage c'est E5:I5 donc j'ai rectifié comme ceela
.Range("E5:I5") = Plage1.Value
et cela donne nickel,
c'est ce qu'il fallait faire ?

encore mille merci
0