Copie avec conditions

Résolu/Fermé

quark81 Messages postés 4 Date d'inscription lundi 3 mars 2014 Statut Membre Dernière intervention 7 mars 2014 - 3 mars 2014 à 12:12
quark81 Messages postés 4 Date d'inscription lundi 3 mars 2014 Statut Membre Dernière intervention 7 mars 2014 - 7 mars 2014 à 07:05

bonjour,
je debute en vba , j'ai regarder mais pas trouver mon cas sur le forum aussi je pose cette question :

j'ai une feuille1 avec un tri de données (j'ai fait des macro pour), sur cette meme feuille j'ai un petit tableau de 5 colonnes où les données sont recueillis par des fomules, ces données chagent tous les jours. ; j'ai une autre feuille2 avec un tableau de synthese avec 5 colonnes (meme appellation qu'en feuille1) + une colonne qui est la date du jour . ce que je voudrais c'est faire une macro qui selon la date du jour aille me recueillir les données du tableau de la feuille1 et les copies dans le tableau de la feuille 2 dans la ligne qui correspond a la date du jour sans bien sur ecraser celles de la veille car je veux que ces dernieres restent en place sur la feuille2.

j'espère etre assez clair dans les explications .

merci pour votre aide

A voir également:

Copie avec conditions
Copie cachée - Guide
Super copie - Télécharger - Gestion de fichiers
Copie écran samsung - Guide
Copie disque dur - Guide
Copie rapide - Télécharger - Gestion de fichiers

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
3 mars 2014 à 13:51

Bonjour,

Pour sélectionner la première cellule libre à la suite d'un tableau qui commence en D4 :

Sub test()
  With Range("D4")
    .Offset(.CurrentRegion.Rows.Count).Select
  End With
End Sub

quark81 Messages postés 4 Date d'inscription lundi 3 mars 2014 Statut Membre Dernière intervention 7 mars 2014
4 mars 2014 à 07:05

bonjouir, désolé je ne vois pas le rapport entre ta reponse et ma question :(

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
4 mars 2014 à 08:50

Si les données sont triées par date, il suffit d'ajouter les nouvelles à la fin du tableau !

quark81 Messages postés 4 Date d'inscription lundi 3 mars 2014 Statut Membre Dernière intervention 7 mars 2014
4 mars 2014 à 10:02

ok, j'ai compris merci :) , mais comment faire pour copier mes cinq cellules de la meme ligne sur la feuille1 et les copier sur la feuille2 ?

Réponse 2 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
4 mars 2014 à 11:50

Bonjour,

Sub test()
  With Worksheets("Feuil2").Range("D4")
    Worksheets("Feuil1").Range("A2:E2").Copy _
      Destination:=.Offset(.CurrentRegion.Rows.Count)
  End With
End Sub

quark81 Messages postés 4 Date d'inscription lundi 3 mars 2014 Statut Membre Dernière intervention 7 mars 2014
7 mars 2014 à 07:05

ok, merci :)

Discussions similaires

lien copié

Comment retrouver des lien copier sur sont téléphone

supprimer "je ne suis pas un robot"

Discussions similaires

Newsletters