Bonjour à toutes et tous.
J'essaye de copier des valeurs sur une plage mobile pour les coller sur une plage également mobile.
Je viens d'écrire le code suivant, qui me semble correct, et pourtant il ne fonctionne pas.
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
20
21
22
Sub UOT_Actuel()
 
    CLsource = Sheets("Synthese_UOT").Cells(4, 101).Value
    CLdestina = Sheets("Synthese_UOT").Cells(5, 101).Value
 
    If Sheets("Synthese_UOT").Cells(2, 101).Value > 25 Then
        Exit Sub
    End If
 
    Sheets("Compilation").Range(Cells(13, CLsource), Cells(76, CLsource)).Copy
 
    Sheets("Synthese_UOT").Cells(9, CLdestina).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
                    Application.CutCopyMode = False
                        With Selection
                            .WrapText = False
                        End With
 
        Call Incremente
 
End Sub
Les valeurs CLsource et CLdestina sont bien reconnues, mais la macro s'arrête à " Sheets("Compilation").Range(Cells(13, CLsource), Cells(76, CLsource)).Copy"
J'ai essayé .Select et Selection.Copy sans plus de succès.
pouvez vous m'aider
Merci d'avance
Thierry