VBA - Copier cellules non vide sur une plage

xavier62000 Messages postés 72 Date d'inscription Statut Membre Dernière intervention -
xavier62000 Messages postés 72 Date d'inscription Statut Membre Dernière intervention - 9 juin 2025 à 11:13

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

Afficher la suite

A voir également:

Ia vba
Whatsapp opposition ia - Guide
Ia whatsapp - Guide
Comment utiliser l'ia - Accueil - Guide Intelligence artificielle
My ia - Accueil - Intelligence artificielle
Excel compter cellule couleur sans vba - Guide

1 réponse

Réponse 1 / 1

danielc0 Messages postés 1868 Date d'inscription Statut Membre Dernière intervention 232

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

xavier62000 Messages postés 72 Date d'inscription Statut Membre Dernière intervention 2

Bonjour,

Merci beaucoup,

Cordialement

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires