bonsoir
je cherche une macro qui permette de copier des cellules non vide sur une plage de ellules determinées.
ça ne doit pas etre compliqué,mais n'etant pas un pro de la macro,je ne m'en sors pas.
j'ai ecrit ceci:
 
Private Sub CommandButton1_Click()
For Each Cell In Range("B2:E26" )
If Cell.Value <> 0 Then
Cell.select
Selection.Copy
End sub  
 
Ca ne fonctionne pas car ça doit etre bourré de fautes;pouvez-vous m'aider ?
merci d'avance
                      michel

Bonjour,
Cela ira mieux en essayant cela :
 
Private Sub CommandButton1_Click()
For Each Cell In Range("B2:E26" )
    If Not IsEmpty(Cell.Value) Then
        Cell.Select
        Selection.Copy
    End If
Next
End Sub
 
Cordialement
     Epéna