Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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

[SfJ5Rpw8]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiila]

essaye cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[Invité]

@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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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..

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Génial! Merci beaucoup pour ton aide =)