Copier coller ne fonctionne pas
Résolu
Tuline
Messages postés
60
Statut
Membre
-
Tuline Messages postés 60 Statut Membre -
Tuline Messages postés 60 Statut Membre -
Bonjour,
je ne comprends pas. Cela fonctionne dans d'autres macro que j'ai ecrit mais pas dans celle la....
Worksheets("Resume").Range(Cells(1, "A"), Cells(1, "F")).Select
Selection.Copy
Sheets.Add.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Other"
Worksheets("Other").Range(Cells(1, "A"), Cells(1, "F")).Select
ActiveSheet.Paste
Quelqu'un voit un probleme a cela ?
Merci pour votre aide
Tuline
je ne comprends pas. Cela fonctionne dans d'autres macro que j'ai ecrit mais pas dans celle la....
Worksheets("Resume").Range(Cells(1, "A"), Cells(1, "F")).Select
Selection.Copy
Sheets.Add.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Other"
Worksheets("Other").Range(Cells(1, "A"), Cells(1, "F")).Select
ActiveSheet.Paste
Quelqu'un voit un probleme a cela ?
Merci pour votre aide
Tuline
2 réponses
-
Bonjour,
Worksheets("Resume").Range(Cells(1, "A"), Cells(1, "F")).Select
ce genre de code ne fonctionne pas toujours, sait pas pourquoi
Mais ca, ca marche:Sub test1()
Sheets.Add.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Other"
Worksheets("Resume").Range("A1:F1").Copy Worksheets("Other").Range("A1:F1")
End Sub-
Du coup, j'ai un autre probleme du meme genre.
Sauf que je ne peux pas utiliser la methode que vous m'avez donne car ce copier-coller la se situe dans une boucle
Voici le code
For i = 1 To nbl
If Worksheets("Resume").Cells(i, "A").Value = dte Then
Range(Cells(i, "A"), Cells(i, "F")).Select
Selection.Copy
a = a + 1
Worksheets(x).Select
Rows(a).Select
ActiveSheet.Paste
End If
Next
Voyez vous un probleme ?
La macro ne me copie que la premiere ligne. Comme si les suivantes ne contenaient pas la valeur de dte
Pourtant il y a un paquet de lignes a copier !
Merci encore !
-
-
