Discussion :

[ThSPB]

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

[joe.levrai]

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 :

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
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

[ThSPB]

Ç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