copie avec conditions Résolu

Question

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

Patrice33740 · Answer

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

Patrice33740 · Answer

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

Copie avec conditions

2 réponses

Discussions similaires

Newsletters