[Excel]VBA copie différente feuille
Fermé
Leahkim
Messages postés
3081
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
2 mars 2014
-
9 sept. 2008 à 12:08
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 - 11 sept. 2008 à 20:43
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 - 11 sept. 2008 à 20:43
A voir également:
- [Excel]VBA copie différente feuille
- Feuille de pointage excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Copie cachée - Guide
- Si et excel - Guide
- Copie écran samsung - Guide
5 réponses
Leahkim
Messages postés
3081
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
2 mars 2014
281
9 sept. 2008 à 13:27
9 sept. 2008 à 13:27
désolé de t'avoir embeté, j'ai trouvé tout seul, en testant:
Private Sub Validation_Click()
A = 19
B = 2
While (Cells(A, B).Value <> "")
A = A + 1
Wend
Range(Cells(19, 2), Cells((A - 1), 6)).Select
Selection.Copy
C = 11
D = 3
While (Sheets("Archives").Cells(C, D).Value <> "")
C = C + 1
Wend
Sheets("Archives").Select
Sheets("Archives").Cells(C, 3).Select
ActiveSheet.Paste
End Sub
Il fallait utiliser cells, et non range, qui ne prend pas de variables ^^ !
Bonne journée
Private Sub Validation_Click()
A = 19
B = 2
While (Cells(A, B).Value <> "")
A = A + 1
Wend
Range(Cells(19, 2), Cells((A - 1), 6)).Select
Selection.Copy
C = 11
D = 3
While (Sheets("Archives").Cells(C, D).Value <> "")
C = C + 1
Wend
Sheets("Archives").Select
Sheets("Archives").Cells(C, 3).Select
ActiveSheet.Paste
End Sub
Il fallait utiliser cells, et non range, qui ne prend pas de variables ^^ !
Bonne journée
wilfried_42
Messages postés
907
Date d'inscription
mardi 19 août 2008
Statut
Contributeur
Dernière intervention
8 décembre 2009
244
9 sept. 2008 à 12:41
9 sept. 2008 à 12:41
Bonjour
essaye cela :
essaye cela :
Range("A19:F" & Range("B65536").end(xlup).row).copy destination:=Sheets("Archives").range("C" & sheets("Archives").range("C65536").end(xlup).row + 1)
wilfried_42
Messages postés
907
Date d'inscription
mardi 19 août 2008
Statut
Contributeur
Dernière intervention
8 décembre 2009
244
11 sept. 2008 à 20:43
11 sept. 2008 à 20:43
re:
le probleme est que j'ai horreur de faire des select, ca freine le code d'un force et un copier colle ne necessiite qu'une seule ligne de code sans select
le probleme est que j'ai horreur de faire des select, ca freine le code d'un force et un copier colle ne necessiite qu'une seule ligne de code sans select
wilfried_42
Messages postés
907
Date d'inscription
mardi 19 août 2008
Statut
Contributeur
Dernière intervention
8 décembre 2009
244
9 sept. 2008 à 13:06
9 sept. 2008 à 13:06
re:
je vois que l'affichage est sur trois ligne or il doit etre sur une seule ligne, je viens de faire un copier coller sur une feuille, je ne vois pas de probleme, je te detaille le code :
Range("B65536").end(xlup).row) ' te donne la derniere ligne de la colonne B
Range("A19:F" & Range("B65536").end(xlup).row) ' te donne le Bloc A19:F derniere ligne de la colonne B
Range("A19:F" & Range("B65536").end(xlup).row).copy ' Effectue la copie
Range("A19:F" & Range("B65536").end(xlup).row).copy destination:= ' Pour l'envoyer à tel endroit
l'endroit :
Sheets("Archives").range("C" & sheets("Archives").range("C65536").end(xlup).row + 1)
Sheets("Archives") ' Feuille "Archives" selon l'exemple que tu as donné
Sheets("Archives").range("C" ' à partir de la colonne C
sheets("Archives").range("C65536").end(xlup).row ' te donne la derniere ligne remplie de la colonne C
sheets("Archives").range("C65536").end(xlup).row + 1 ' avec le +1, renvoie la 1ere ligne vierge apres la fin
Sheets("Archives").range("C" & sheets("Archives").range("C65536").end(xlup).row + 1) te donne la premier cellule vide apres la fin de la base
je ne vois aucune erreur dans le code
si tu as saisi les 3 ligne il y a probleme, un copier coller fonction tres bien, (il remplace toute ta macro)
je vois que l'affichage est sur trois ligne or il doit etre sur une seule ligne, je viens de faire un copier coller sur une feuille, je ne vois pas de probleme, je te detaille le code :
Range("B65536").end(xlup).row) ' te donne la derniere ligne de la colonne B
Range("A19:F" & Range("B65536").end(xlup).row) ' te donne le Bloc A19:F derniere ligne de la colonne B
Range("A19:F" & Range("B65536").end(xlup).row).copy ' Effectue la copie
Range("A19:F" & Range("B65536").end(xlup).row).copy destination:= ' Pour l'envoyer à tel endroit
l'endroit :
Sheets("Archives").range("C" & sheets("Archives").range("C65536").end(xlup).row + 1)
Sheets("Archives") ' Feuille "Archives" selon l'exemple que tu as donné
Sheets("Archives").range("C" ' à partir de la colonne C
sheets("Archives").range("C65536").end(xlup).row ' te donne la derniere ligne remplie de la colonne C
sheets("Archives").range("C65536").end(xlup).row + 1 ' avec le +1, renvoie la 1ere ligne vierge apres la fin
Sheets("Archives").range("C" & sheets("Archives").range("C65536").end(xlup).row + 1) te donne la premier cellule vide apres la fin de la base
je ne vois aucune erreur dans le code
si tu as saisi les 3 ligne il y a probleme, un copier coller fonction tres bien, (il remplace toute ta macro)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Leahkim
Messages postés
3081
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
2 mars 2014
281
9 sept. 2008 à 12:50
9 sept. 2008 à 12:50
il me sort au moins 4 erreurs pour ton code lol, je n'y comprends rien d'ailleurs