Copier coller ne fonctionne pas
Résolu
Tuline
Messages postés
55
Date d'inscription
Statut
Membre
Dernière intervention
-
Tuline Messages postés 55 Date d'inscription Statut Membre Dernière intervention -
Tuline Messages postés 55 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Activesheet.paste ne fonctionne pas
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Arobase copier coller - Forum Windows 10
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:
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
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 !