VBA - Copier cellules non vide sur une plage

Question

Bonjour,

Le code ci-dessous fonctionne. Mais je cherche à copier depuis la feuille T15_sorties les cellules de F5 à F259 mais uniquement les cellules Non Vides. Est ce possible en VBA SVP.

Dans le cas contraire, depuis la feuille T15_128 supprimer les cellules Vides de F4 à F258.

Merci beaucoup

Cordialement

Sub T15_128()

Application.ScreenUpdating = False

'_TRANS_T15_128
Sheets("T15_sorties").Activate
Range("F5:F259").Select
Selection.Copy
Sheets("T15_128").Select
Range("f4").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False

End Sub

Windows / Edge 137.0.0.0

danielc0 · Answer

Bonjour,

Essaie :

Sub Recopie()
  Dim C As Range, Plage As Range, Ctr As Long
  With Sheets("T15_sorties")
    Set Plage = .[F5:F259]
  End With
  With Sheets("T15_128")
    For Each C In Plage
      If C <> "" Then
        Ctr = Ctr + 1
        .[F4].Offset(Ctr) = C
      End If
    Next C
  End With
End Sub

Daniel

VBA - Copier cellules non vide sur une plage

1 réponse

Discussions similaires

Newsletters