pheonix00fr
XLDnaute Junior
Bonjour, j'aurais besoin d'un peut d'aide pour adapter un code, je voudrais copier/coller la valeur des cellules non vide d'un tableau, j'ai ce code mais je ne sais pas comment le modifier pour ne coller que la valeur.
Option Explicit
Sub Test()
Dim LastRowA As Long
Application.ScreenUpdating = False
Range("O4:R49").ClearContents
LastRowA = Range("AA").End(xlUp).Row
With Feuil4
.Range("AA").AutoFilter Field:=1, Criteria1:="<>"
.Range("AA").Copy .Range("O4")
.Range("AA").AutoFilter
End With
Application.ScreenUpdating = True
End Sub
Merci pour votre aide.
Option Explicit
Sub Test()
Dim LastRowA As Long
Application.ScreenUpdating = False
Range("O4:R49").ClearContents
LastRowA = Range("AA").End(xlUp).Row
With Feuil4
.Range("AA").AutoFilter Field:=1, Criteria1:="<>"
.Range("AA").Copy .Range("O4")
.Range("AA").AutoFilter
End With
Application.ScreenUpdating = True
End Sub
Merci pour votre aide.