Bonjour ,

J'ai essayé d'utilisé mais çà n'as pas marché et j'en suis sure que j'ai fais une erreur quelque part .. :/ .. il me manque quelque chose :/
Merci de me voir ce ptit bout de code .. il bug au niveau de ligne de transfert !


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
 
 
 
Private Sub exp()
 
 
 
    Const expo As String = "Exporter vers word"
    Const synt As String = "synthése"
    Dim Cr, Cl, Cu, Cd As Integer
 
 
 
 
    Cr = Sheets(synt).Cells(12, 2).End(xlToRight).Column
    With Sheets(expo)
 
    .Range(Cells(6, 2), Cells(7, Cr)).Value = Sheets(synt).Range(Cells(12, 2), Cells(13, Cr)).Value
    End With
    End

.. merci d'avance !