Sélection des données non vide.

yohann74

XLDnaute Nouveau
Bonjour à toutes et tous,
j'ai un petit pb je souhaiterai sélectionné puis copier des lignes non vide des colonnes A à C dans un autre onglet , mais uniquement les non vides.
Donc j'applique le code suivant
Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
le problème c'est quand mes colonnes A à C sont vides il sélectionne et copie toutes les lignes même vide des 3 colonnes . hors j'aurai souhaité qu'il sélection dans ce cas que les cellules A2 à C2.
Quelqu'un à une petite idée ?
Par avance merci de votre aide
Yohann
 

pierrejean

XLDnaute Barbatruc
Bonjour Yohann

Pour copier par exemple en F2
Code:
Sub test()
Dim zone As Range
x = Range("A" & Rows.Count).End(xlUp).Row
y = Range("B" & Rows.Count).End(xlUp).Row
w = Range("B" & Rows.Count).End(xlUp).Row
derlin = 0
If x > derlin Then derlin = x
If y > derlin Then derlin = y
If w > derlin Then derlin = w
For n = 2 To derlin
If Range("A" & n) <> "" Or Range("B" & n) <> "" Or Range("C" & n) <> "" Then
    If Not zone Is Nothing Then
       Set zone = Application.Union(zone, Range("A" & n & ":C" & n))
    Else
       Set zone = Range("A" & n & ":C" & n)
    End If
End If
Next
zone.Copy Destination:=Range("F2")
End Sub
 

Haut Bas