Discussion :

[EAU24]

Bonsoir,
Je voudrais intégrer un code pour recopier une cellule non vide dans une autre colonne.

Code :

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

1
2
3
4
5
6
7
8
Sub Macro3()
 
    Range("E2:E34").Select
    If Cells <> "" Then
    Selection.copy .Offset(0, 3)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Mais ça ne marche pas...
Qui peut m'aider???
EAU24

[Menhir]

Il y a sans doute beaucoup plus élégant à proposer mais pas le temps de chercher :

Code :

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

1
2
3
4
Dim CC as Range
For Each CC In Range("E2:E34")
    If CC.Value <> "" Then CC.Offset(0, 3).Value = CC.Value
Next CC

[EAU24]

Merci à Ménhir.