Ou est l'erreur dans mon code ?

Version imprimable

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:

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

Bonjour,

les valeurs CL sont bien des nombres (puisque tu les utilises pour définir des numéros de ligne)

quand tu dis qu'il s'arrête après le Copy, c'est à dire ? Message d'erreur ?

en mode pas à pas, Est-ce que la procédure traite bien la ligne suivant (le PasteSpecial)

ça raconte quoi comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub UOT_Actuel()
Dim ClSource As Long
Dim ClDestina As Long
Dim Sh As Worksheet
 
Set Sh = Sheets("Compilation")
 
With Sheets("Synthese_UOT")
 
    If .Cells(2, 101).Value > 25 Then Exit Sub
 
    ClSource = .Cells(4, 101).Value
    ClDestina = .Cells(5, 101).Value
 
    Sh.Range(Sh.Cells(13, ClSource), Sh.Cells(76, ClSource)).Copy
 
    With .Cells(9, ClDestina)
        .PasteSpecial Paste:=xlPasteValues, _
                      Operation:=xlNone, _
                      SkipBlanks:=False, _
                      Transpose:=False
 
        Application.CutCopyMode = False
        .WrapText = False
    End With
End With
 
Call Incremente
 
End Sub

18/01/2016, 19h24
ThSPB

Merci Beaucoup

Ça fonctionne parfaitement.
Je le met en service directement, mais je vais l’étudier plus sérieusement, ultérieurement, pour pouvoir l'assimiler et l'adapter certainement à d'autres besoins.
Encore une foi Merci