J
jujudeo
Guest
Voila j'ai fait le tour des forums mais je ne trouve pas la solution a une manip très basique
j'aimerais copier les valeurs de cellules non vides vers une autre feuille exactement au même endroit ! En soit très simple, mais je n'arrive pas a "coller" exactement au même endroit.
je sais que mon problème est ici
la plage sur laquelle je veux coller est celle-ci
je vous laisse mon code en dessous et je vous remercie par avance !!
j'aimerais copier les valeurs de cellules non vides vers une autre feuille exactement au même endroit ! En soit très simple, mais je n'arrive pas a "coller" exactement au même endroit.
je sais que mon problème est ici
VB:
Sheets("TOTAL").Range("H5:NI27").PasteSpecial xlPasteAllla plage sur laquelle je veux coller est celle-ci
VB:
Sheets("TOTAL").Range("H5:NI27")je vous laisse mon code en dessous et je vous remercie par avance !!
VB:
Sub copiercoller()
Dim myRange As Range
Dim cell As Range
Set myRange = Sheets("RECUP").Range("H5:NI27")
For Each cell In myRange
If cell <> "" Then
cell.Copy
Sheets("TOTAL").Range("H5:NI27").PasteSpecial xlPasteAll
End If
Next cell
End Sub