Copie range dynamique en fonction de la date

Bonjour,

J'ai une feuille avec un calendrier (chaque jour correspond à une case sur une ligne) et j'aimerais copier le calendrier à partir de la date d'aujourd'hui et jusqu'au 20ième jour suivant.

J'ai réalisé le code suivant :

Code:

---

1 2 3 4 5 6

Dim Col As Integer, Col2 As Integer Col = Sheets("Janvier-Juillet").Application.Match(Date * 1, Rows(4), 0) Col2 = Sheets("Janvier-Juillet").Application.Match(Date * 20, Rows(4), 0) Dim vrange As Range vrange = Sheets("Janvier-Juillet").Range(Col & "4:" & Col2 & "29") vrange.Copy Destination:=Sheets("Impression").Range("Z4")

---

Mais j'ai une erreur "incompatibilité de type" sur la 2ème ligne :calim2:

J'ai tester plusieurs solutions sans succès, et mes recherches sur le net ont été infructueuse :cry:

Merci d'avance pour tout conseils, aide que vous pourrez m'apporter!

Bonjour

pour quoi multiplie tu la date par 20 ? Date * 20Il faut aussi préciser la feuille concernée devant tous tes Rows...

Code:

---

.... Sheets("Janvier-Juillet").Rows(4) ....

---

le Date*20 c'était pour avoir la date d'aujourd'hui + 20 jours mais visiblement c'est pas ça, j'ai fait le changement que tu me conseillais :

Code:

---

1 2 3 4 5 6

Dim Col As Integer, Col2 As Integer Col = Sheets("Janvier-Juillet").Application.Match(Date * 1, Sheets("Janvier-Juillet").Rows(4), 0) Col2 = Sheets("Janvier-Juillet").Application.Match(Date * 1, Sheets("Janvier-Juillet").Rows(4), 0) + 20 Dim vrange As Range vrange = Sheets("Janvier-Juillet").Range(Col & "4:" & Col2 & "29") vrange.Copy Destination:=Sheets("Statistiques et Impression").Range("Z4")

---

Et maintenant j'ai une erreur sur la ligne "vrange = ...". c'est une erreur sur " Variable objet ou variable de bloc with non défini"

Merci pour ton aide

essaye cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub test()     Dim Col As Integer, Col2 As Integer     '''''''''' Sheets("Janvier-Juillet").Select Columns("D:D").Select 'remplace .rows(4) Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate   Col = ActiveCell.Row '''''''''' Columns("D:D").Select Selection.Find(What:=DateAdd("d", 20, Date), After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate   Col2 = ActiveCell.Row   '''''''''''   Sheets("Janvier-Juillet").Range("d" & Col & ":d" & Col2).Select Selection.Copy Destination:=Sheets("Impression").Range("Z4")   End Sub

---

Citation:

---

Envoyé par fowlie

le Date*20 c'était pour avoir la date d'aujourd'hui + 20 jours...

---

pourquoi ton addition + se transforme-t'il en multiplication ? :koi:

Les fiches VBA - Comprendre : Les fonctions de Date/Heure


tu as regardé ce que te retourner ta fonction Match ? consulte l'aide en ligne ou affiche par la valeur de col ..

Code:

---

msgbox col

---

PS : surtout n'oublie pas que les Select, Activate, activeCell, ActiveSheet ,Sélection ,c'est bon pour faire un diaporama pas pour travailler efficacement sur des feuilles..

@bbil Mes variables col et col2 me renvoie le bon numéro de la colonne que je veux, mais pour utiliser Range il faut la lettre non? comment convertir ce numéro en la lettre correspondante?

@kiila ton code me provoque une erreur sur la ligne

Code:

---

Columns("D:D").Select 'remplace .rows(4)

---

De plus je ne veux pas copier la colonne D, mais la ligne 4 ... donc je ne suis pas sur que ton algorythme corresponde à ce que je veux. Et comme bbil a fait remarquer :

Citation:

---

surtout n'oublie pas que les Select, Activate, activeCell, ActiveSheet ,Sélection ,c'est bon pour faire un diaporama pas pour travailler efficacement sur des feuilles..

---

Ok .. utilise alors cells pour définir ta plage

Code:

---

1 2 3 4 5

Dim vrange As Range with Sheets("Janvier-Juillet"). Set vrange = .Range(.Cells(4, Col), .Cells(29, Col2)) en with

---

Génial! Merci beaucoup pour ton aide =)