Discussion :

[coco21]

Bonjour,

je copie un range d'une feuille dans une cellule d'une autre. Seulement, ce range peut comporter des cellules vides. j'aimerais savoir si il était possible de n'importer que les cellules non vide du range (sans detailler l'importation car le nb de cellules varient), ou bien quel traitement je pouvais appliquer à ma cellule d'arrivee pour supprimer les lignes vides...

j'espere avoir ete claire et qqun pourra m'aider,

merci beaucoup !

[ucfoutu]

Bonjour,

Intéresse-toi à la propriété CountA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each z In Selection
        If Application.CountA(z.EntireRow) = 0 Then .....
Next l

une autre façon de s'exprimer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Application.CountA(Rows(numero_rang)) = Empty then ...

Bonne continuation....

[coco21]

Merci beaucoup pour ta réponse, mais je n'ai pas accès à cette propriété...

de plus, je ne veux pas traiter le problème avant l'importation, mais après, quand je dispose de ma cellule contenant plusieurs lignes de textes, dont certaines sont vides...

Quelqun aurait une autre idée ?

[ucfoutu]

Oui ?

2 questions, donc :

1) codes-tu bien sous VBA ? (une macro, donc)
2) quelle est ta version d'Office ?

[jfontaine]

Une facon de faire

A la fin du traitement, "r" étant ta selection de cellule non vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim r As Range
Dim s As Range
 
 
 
For Each cell In Range("A2:A5")
 
    If cell.Value <> "" Then
        On Error Resume Next
        If s.Address = "" Then
            Set r = Range(cell.Address)
        Else
            Set r = Union(Range(cell.Address), s)
        End If
        Set s = r
    End If
 
Next

[coco21]

je code bien sous VBA, avec Excel 2003 et Visuel Basic 6.3 ...

je n'ai pas compris ce que faisais ton code dslée

[jfontaine]

dans mon code, je retourne un range (r) sui a partir du range("A1:A5"), renvoi les cellules non vide.
J'ai pas eu le temps d'optimiser; Il te faudra modifier dans la boucle Range("A1:A5") avec ta selection et copier r dans ta deuxieme feuille

[ucfoutu]

Tu as donc accès, coco21, à cette fameuse fonction CountA !
Qu'est-elle donc ?
Lis ceci
http://www.lqnet.com/Excel/CountA.asp

Elle renvoie 0 lorsqu'elle se réfère à une cellule ou un "Range" vide (et une cellule est en soi un "Range"...

Regarde à nouveau mon code plus haut (celui de la boucle for each), maintenant : il s'applique à une sélection, dont chacun des éléments est un rang (row). Bien ! Un rang est en soi un "range" (celui de toutes les cellules d'une même ligne). CountA appliiqué à ce "range" te renvoit 0 si le rang (le "row", donc toutes ses cellules, est vide...) . Voilà donc une manière (celle de VBA) de déterminner si un "Row" est vide et il me semble que c'est là parfaitement clair.

Regarde enfin mon deuxième code (celui sans le for each d'une sélection, mais qui pourrait être utilisé pour une boucle For ... Next...
Il te permet également de déterminer si un rang (row) de numéro numero_rang est vide (empty) ou non.

Je ne crois vraiment pas que tout ceci soit du Chinois et te demande un peu de concentration.

Bonne continuation...

[coco21]

merci bien j'ai reussi à faire ce que je voulais

je suis partie de ton code, mais au lieu de créer un autre range, j'ai mis le contenu de chaque cellule non vide dans une chaine séparé avec chr(10)...

merci beaucoup en tout cas,car j'avais pas penser parcourir chaque cellule de mon range...

Encore merci !