Discussion :

[casefayere]

je n'ai pas vraiment suivi toute cette discussion alors mes réponses sont à peser, je t'aurais bien dit d'essayer

Code :

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

Application.Match(Date, plage, 0)

mais je pense qu'il faut donner Match à une valeur, imaginons

Code :

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

1
2
3
4
5
Dim toto as range
.....
set toto = Application.Match(Date, plage, 0)
If Not toto Is Nothing Then
.....

pas sur mais à fouiller

[nibledispo]

range ou object cela ne change rien à l'erreur.

Je dois à présent m'absenter. je vais y réfléchir chemin faisant.

a+

[casefayere]

Ou encore :

Code :

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

1
2
3
4
5
6
7
Dim toto As Range
'......
'.......
Set toto = plage.Find(Date)
If Not toto Is Nothing Then
'............
'..........

.plage n'est pas valable non plus

surtout pas, plage étant un objet "Range"

ton code revu

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
Sub copiefeuilleconditionnelle()
Dim derlig1 As Integer
Dim derlig2 As Integer
Dim plage As Range
Feuil1.Range("A2:A40").ClearContents
With Sheets("Feuil2")
  derlig2 = .Range("A" & .Rows.Count).End(xlUp).Row
  If derlig2 > 32 Then
    .Range(.Cells(derlig2 - 32, 1), .Cells(derlig2, 1)).Copy Sheets("Feuil1").Range("a2")
  End If
End With
With Sheets("Feuil1")
  derlig1 = .Range("A" & .Rows.Count).End(xlUp).Row
    MsgBox Date
  Set plage = .Range(.Cells(2, 1), .Cells(derlig1, 1)).Find(Date, .Range("A" & derlig1))
  If Not plage Is Nothing Then
    For J = 1 To 31
      .Range("I" & J + 1) = Date + J - 1
    Next J
  End If
End With
End Sub

j'ai mis .Range(.Cells(derlig2 - 32, 1), .Cells(derlig2, 1)).Copy sinon tu n'as pas la date d'aujourd'hui avec ton dernier fichier donc plage = Nothing

Bien sur, code à adapter pour correspondre à la finalité désirée que je n'ai pas regardé, j'ai simplement regardé ton code

[nibledispo]

Bonjour casefayere,

Ok pour ton code.

Sur le mien, j'ai compris pourquoi ça bloquait sur "application.match" : il ne fallait pas mettre "date" mais la cellule de date.
Comme la position n'est pas connue, il fallait donc passer par "find" comme tu l'as fait.

Par contre le "." devant cells n'est pas si évident.
Avec "match" problème si feuil2 active.
Avec "find" la feuille active n'a aucune importance.
Dans les deux cas, si feuil1 est active on peut se dispenser du "." dans le premier with.
Raison supplémentaire de privilégier la fonction "find" et de mettre les "." d'office dans un .range(.cells...... )

Cordialement,

[vins86]

Merci pour vos aides.

Le code de casefayere fonctionne parfaitement.

Encore merci et excusé moi pour l'explication pas toujours compréhensible.

Cordialement,

Vincent.