Copier coller
Bonjour a tous,
Je cherche a copier une ligne complete de tableau EXCEL en VBA. Dans ce tableau chaque ligne est compose
en "A": Nom de l'entreprise "B": le secteur "C":Nom d'un événement et en "D": La date de l'événement.
1)Je dois parcourir une colonne ("D" ici ) pour la comparer la date d'aujourd'hui (actuelle = valuation_date (cellule s'appelant valuation date dans le tableau EXCEL) ) et si les deux dates sont égales, alors je voudrais qu'il recopie toute la ligne ou se trouve cette date dans une ligne de la feuille 2 c'est a dire "A" "B" "C" et "D". Mais cela ne fonctionne pas...
2) Mais il est possible qu'il y est plusieurs événements a la meme date donc comment faire pour "copier/coller" plusieurs lignes dans la ligne 1 puis 2 puis 3 de la seconde feuille.
Voici mon programme :
Sub programme()
Set wb = ThisWorkbook
Set ws_Event = wb.Worksheets("EVENT CALENDAR")
Set range_event_day = ws_Event.Range("EVENT_DATE")
Next_event_day = ws_Event.Range("Valuation_date")
For Each event_day In range_event_day
If event_day = Next_event_day Then
'il sait pas ou je suis
Selection.Copy
Sheets("sheet2").Rows("1:5").Select
Selection.Paste
Else
End If
Next
End Sub
J'espère que tout cela est clair!
Merci d'avance,
Toria
Bonjour,
Tu devrais joindre un fichier exemple afin de permettre aux intervenants de voir la structuration des données (feuilles, tableaux et plages nommées).
A+
Le voici, le voila !
Merci beaucoup !
Je test ce programme des que j'arrive au travail.
Toria