[Résolu] Coup de main / Macro

[Syon]

J'ai repris et modifié une de tes précentes propositions pour avoir ça :

Sub Ajoute()
Dim N
Dim i As Integer
Application.ScreenUpdating = False
Range("courrier!b31:b35").ClearContents
N = WorksheetFunction.CountA(Range("c2:c13"))
If N = 0 Then Exit Sub
Range("c2").Activate
Do While ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Loop
For i = 1 To N
If ActiveCell = "" Then
ActiveCell.Offset(1, 0).Select
saute: GoTo saute
End If
ActiveCell.Offset(1, 0).Select
Next i
End Sub

La macro ne plante pas ( ce qui est déjà pas mal x) ) mais ne copie rien du tout, trés certainement incomplète. Tu aurais une idée des modifications à ajouter s'il te plait ?

Cordialement,

Syon

[Syon]

Up

[dubois]

Bonsoir,
remplace le code par celui-ci :

Code: Tout sélectionner

Sub Ajoute()
Dim i As Byte
    Application.ScreenUpdating = False
        Range("courrier!b31:b36").ClearContents
            Range("a2").Activate
    For i = 1 To 12
        If ActiveCell <> "" Then
            ActiveCell.Offset(0, 2).Copy
                With Range("courrier!b36").End(xlUp)(2)
                    .PasteSpecial Paste:=xlValues
                End With
            Application.CutCopyMode = False
        End If
            ActiveCell.Offset(1, 0).Select
    Next i
End Sub

amicalement
Claude.

[Syon]

Tout marche à la perfection, un grand merci et bravo à toi