Copier des cellules non vides

[sgarnung]

Bonjour à tous;
Je souhaite copier les cellules non vides de deux plages dans une autre colonne grâce à une macro. Le problème c'est que certaines cellules ne sont pas réellement vide (elles contiennent une formule).
Comme un exemple est toujours mieux qu'un long discours. voilà le fichier exemple.
Merci pour votre aide.
Stéphane

 

[Yaloo]

Re : Copier des cellules non vides

Bonsoir sgarnung, le forum,

Vois avec cette macro :

Sub essai()
Dim Zone1 As Range, Zone2 As Range
Dim Cel As Range, i As Long
Columns(5).ClearContents
Set Zone1 = Range("A1:A8")
Set Zone2 = Range("A9:A19")
i = 1
For Each Cel In Zone1
  If Cel <> "" Then
    Cells(i, 5) = Cel
    i = i + 1
  End If
Next
For Each Cel In Zone2
  If Cel <> "" Then
    Cells(i, 5) = Cel
    i = i + 1
  End If
Next
End Sub

A te relire

Martial