Probleme format date et heure avec code VBA

[lanoe]

Bonjour,

J’ai un probleme avec se code : il ne conserve pas le format date et heure de certaines cellules.

Sheets("Creme Fraiche Archives").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("AX2:AZ8").Select
Selection.Copy

Range("BA2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.AutoFilter Field:=1
Dim i As Byte
With Sheets("Creme Fraiche Archives")
Selection.AutoFilter Field:=4, Criteria1:="<>"
.Range("BA2:By3").SpecialCells(xlCellTypeVisible).Copy
i = (.Range("BA2:BB3").SpecialCells(xlCellTypeVisible).Count / 2) - 1
End With
With Sheets("Creme Fraiche Archives")
If .Range("A65536").End(xlUp).Interior.ColorIndex = 34 Then
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
.Range(.Range("A65536").End(xlUp).Offset(-i, 0), .Range("A65536").End(xlUp) _
.Offset(0, 19)).Interior.ColorIndex = 35
Else
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
.Range(.Range("A65536").End(xlUp).Offset(-i, 0), .Range("A65536").End(xlUp) _ .Offset(0, 19)).Interior.ColorIndex = 34
End If
End With
Selection.AutoFilter Field:=4
Sheets("Creme Fraiche").Select
Range("Da3:Eq18").Select
Selection.Copy
ActiveWindow.ScrollColumn = 1
Range("C3").Select
ActiveSheet.Paste
Range("A1").Select
'End Sub

En l'attente de vos conseilles.

Lanoé

 

[skoobi]

Re : Probleme format date et heure avec code VBA

Bonsoir,
de quelles cellules parles-tu? des cellules coller en gras dans ta macro?
Merci de lire ou relire la charte de ce forum......

 

[lanoe]

Re : Probleme format date et heure avec code VBA

Bonjour,

Effectivement je n'ai pas été assez claire. A partir d'un code fourni par Pierrot 93, j'ai un macro qui utilise un premier filtre automatique, réalise un copier et coller de la valeur puis un 2ème filtre automatique: copier puis coller la valeur et le format sur une page différente avec une couleur de ligne différente à chaque manipulation. En gras sur mon premier post. Mais je ne comprend pas: j'ai un:

Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=

et pourtant Excel ne conserve pas le format "h:mn" sur les lignes collées dans la page "Creme Fraiche Archives".

Merci pour vos recherches.

Lanoé

 

[skoobi]

Re : Probleme format date et heure avec code VBA

Re,

il y a un 1er "collage" de la valeur puis une mise en forme sur la cellule qui se trouve sous la valeur collée.
Enlève le .Offset(1, 0) sur la 2eme ligne:
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
.Range("A65536").End(xlUp).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=

 

[lanoe]

Re : Probleme format date et heure avec code VBA

Re bonjour,

Je viens de reprendre ton conseil aprés le week-end. Merci pour ton aide.
Lanoé