Copie avec conditions

Résolu
quark81 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
quark81 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
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:

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0
quark81 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
bonjouir, désolé je ne vois pas le rapport entre ta reponse et ma question :(
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Si les données sont triées par date, il suffit d'ajouter les nouvelles à la fin du tableau !
0
quark81 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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 ?
0
Réponse 2 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour, 

Sub test()
  With Worksheets("Feuil2").Range("D4")
    Worksheets("Feuil1").Range("A2:E2").Copy _
      Destination:=.Offset(.CurrentRegion.Rows.Count)
  End With
End Sub
0
quark81 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
ok, merci :)
0

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
Retrouver liens copiés sur le téléphone
SAMA -
Peterson -

3 réponses
copie d'un lien dans le navigateur internet
Ulysse Orseau -
diamantnoir -

4 réponses
lien copié presse papier smartphone Samsung
luckygirl63 -
Pierr10 -

3 réponses
Reporter une cellule dans une autre feuille avec condition
Kambro -
Kambro -

4 réponses