Coller des cellules au format texte

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:

---

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

---

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

Bonjour,

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

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

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

Merci de vos réponses.

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

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:

---

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

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:

---

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

Pourquoi tu laisses le Else ? :koi:

Oui c'est vrai, il sert à rien. Je pensais qu'il fallait tjs un else après un if.