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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas