Copier/coller cellule non vide d'un tableau

[micapilote]

Bonjour, j'ai eu beau passer par la recherche, je ne trouve pas le but recherché,
je cherche en effet à copier / coller par macro uniquement les cellules non vides d'un tableau vers un autre tableau de la même feuille.
j'avais trouvé un méthode (que j'ai oublié) mais qui était très très lente.
Merci

 

[Fred0o]

Re : Copier/coller cellule non vide d'un tableau

Bonjour micapilote,

Peut-être ceci correspondra-t-il à ton besoin ?

Sub Essai()
    Application.ScreenUpdating = False
    Dim Li, Co
    For Co = 1 To 5
        For Li = 1 To 5
            If Cells(Li + 1, Co) = "" Then Cells(Li + 1, Co) = Cells(Li + 1, Co + 6)
        Next
    Next
    Application.ScreenUpdating = True
End Sub

A+

 

[micapilote]

Re : Copier/coller cellule non vide d'un tableau

Merci beaucoup, c'est au poil
😉

 

[Odette]

Re : Copier/coller cellule non vide d'un tableau

Bonjour,

Tu peux le faire très facilement en faisant simplement un copier/collage spécial et cocher "Blancs non compris"

Ça prend 2 secondes!

Odette