Copier dans une autre feuille une plage de cellule contenant des heures

Question

Bonjour,

J'ai un problème avec une macro que j'ai mise en place. Mon objectif serait de sélectionner dans la feuille "feuille_support" les cellules de la colonne D comprises entre 7H et 12H pour que cette plage horaire soit copiée dans une autre feuille de ce même classeur "Alerte J+2 et J+3". Malheureusement j'ai un message d'erreur "1004 : erreur définie par l'application ou par l'objet".

Je vous transmets mon code ci-dessous.

Merci d'avance pour votre aide !

Sub RDV()

Worksheets("Alertes J+2 et J+3").Range("F6:F20").Value = Worksheets("feuille_support").Range("01/01/1970 07:00:00: 01/01/1970 12:00:00").Value

End Sub

Answer 1

... Pour l'heure, il suffit de remplacer "10:00:00" par "12:00:00".

Daniel

Answer 2

La plage Range("D1", .Cells(.Rows.Count, 4).End(xlUp)) contient toutes les cellules de la première à la dernière remplie. TU peux aussi utiliser un filtre :

Sub RDV2()
d1 = "01/01/1970 07:00:00"
d2 = "01/01/1970 10:00:00"
With Sheets("feuille_support")
.Range("D1", .Cells(.Rows.Count, 4).End(xlUp)).AutoFilter 1, ">=" & _
d1, xlAnd, "<=" & d2
.AutoFilter.Range.Copy Sheets("Alertes J+2 et J+3").Range("F6")
.Range("D1", .Cells(.Rows.Count, 4).End(xlUp)).AutoFilter
End With
End Sub

Daniel

Answer 3

Merci pour votre réponse.

Le problème qui se pose est que la feuille est mise à jour chaque jour donc la plage de cellule changera.

Je cherche à trouver une solution pour avoir une plage de cellule de valeur comprise entre 7h et 12h.

Answer 4

Bonjour,

Avec "Range", tu dois spécifier une plage de cellules, eg Range("A1:A10"). Tu dois donc boucler sur les valeurs pour les sélectionner une par une.

Daniel