Copier coller ne fonctionne pas
Résolu
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 !
-
-
Je ne connaissais pas cette formulation
Merci beaucoup !
