Discussion :

[khaz1]

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

[Menhir]

Il suffit d'ajouter xlPasteValues en première option de ton PasteSpecial.
L'enregistreur automatique de macro aurait pu te donner cette information.

[Mr Poulpe]

Bonjour,

Essaie peut être ça (pas testé):

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
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 Paste:=xlPasteValues
Worksheets("Historique en-cours").Rows(numeroligne_histo).NumberFormat = "@"
numeroligne = numeroligne + 1
numeroligne_histo = numeroligne_histo + 1
Wend
Else:
numeroligne_histo = numeroligne_histo + 1
 
End If
 
Next
 
End Sub

Mr Poulpe

[khaz1]

Merci de vos réponses.

Mr Poulpe, maintenant Excel me laisse une ligne blanche entre 2 copier/coller.... Pourquoi?

[Mr Poulpe]

Bonjour,

J'ai remarqué que tu incrémentais ta variable numeroligne_histo en cours d'exécution. Or une boucle for incrémente déjà le compteur automatiquement de 1 à chaque passage (contrairement à une boucle while). Si tu incrémentes ton compteur en cours d'exécution, alors elle se trouve incrémentée deux fois (une fois par la boucle for et une fois par ton incrémentation).

Essaie avec le code suivant:

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
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 Paste:=xlPasteValues
Worksheets("Historique en-cours").Rows(numeroligne_histo).NumberFormat = "@"
numeroligne = numeroligne + 1
'numeroligne_histo = numeroligne_histo + 1
Wend
Else:
'numeroligne_histo = numeroligne_histo + 1
 
End If
 
Next
 
End Sub

Poulpe

[khaz1]

Merci Mr Poulpe.

Maintenant ça fonctionne mais que si j'enlève numeroligne_histo = numeroligne_histo + 1 après le else, ce qui donne:

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
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, 11)).Copy
Worksheets("Historique en-cours").Rows(numeroligne_histo).PasteSpecial Paste:=xlPasteValues
 
numeroligne = numeroligne + 1
numeroligne_histo = numeroligne_histo + 1
Wend
Else
 
 
End If
 
Next
 
End Sub

Merci beaucoup