Bonjour,

Je vous écris car j'ai écrit une macro permettant de copier les cellules d'un tableau et de les coller dans un autre onglet. Sauf que j'aimerais les coller au format texte, sans les formules. Quelqu'un peut-il m'aider svp?
Voici à quoi ressemble la macro:

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
Sub Copie()
Dim numeroligne As Integer
Dim numeroligne_histo As Integer
 
 
numeroligne = 3
 
 
For numeroligne_histo = 3 To 10000
 
If Worksheets("Historique en-cours").Cells(numeroligne_histo, 3) = "" Then
 
While Worksheets("Arrêts en cours").Cells(numeroligne, 3) <> ""
Worksheets("Arrêts en cours").Range(Worksheets("Arrêts en cours").Cells(numeroligne, 1), Worksheets("Arrêts en cours").Cells(numeroligne, 13)).Copy
Worksheets("Historique en-cours").Rows(numeroligne_histo).PasteSpecial
numeroligne = numeroligne + 1
numeroligne_histo = numeroligne_histo + 1
Wend
Else:
numeroligne_histo = numeroligne_histo + 1
 
End If
 
Next
 
End Sub