Copies cellules sous conditions

sevy31130 -  
 0 LA SAISIE -
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

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  2. 0 LA SAISIE
     
    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
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,
      Ok, à demain matin
      0
      1. 0 LA SAISIE > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
         
        ok merci
        0
      2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > 0 LA SAISIE
         
        Bonjour,

        Fichier modifie: https://www.cjoint.com/c/GKbm6UnzpIf
        0
  3. 0 LA SAISIE
     
    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