Souci de copier coller entre feuille sur excel 2003
gladiarotor
sacha1435
- Messages postés
- 6
- Date d'inscription
- mercredi 8 septembre 2004
- Statut
- Membre
- Dernière intervention
- 16 août 2005
sacha1435
- Messages postés
- 94
- Date d'inscription
- jeudi 13 février 2003
- Statut
- Membre
- Dernière intervention
- 12 octobre 2005
A voir également:
- Souci de copier coller entre feuille sur excel 2003
- Copier-coller une feuille complète dans nouveau classeur calc ✓ - Forum - Visual Basic 6
- Macro excel copier coller cellule dans une autre feuille ✓ - Forum - Visual Basic
- Copier cellule dans autre feuille (vba) - Forum - Visual Basic
- Copier coller d'une feuillea de fichiera vers feuilleb de fichierb excel - Codes sources - Visual Basic / VB.NET (VBA)
- [déplacé .Net -> VBA] Excel 2010 - copier-coller d'une feuille d'un dossier sur ✓ - Forum - Visual Basic 6
4 réponses
PCPT
9 août 2005 à 23:27
- Messages postés
- 13280
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Membre
- Dernière intervention
- 3 février 2018
9 août 2005 à 23:27
salut,
je ne connais pas VBA, mais
Trim(Chr(colonne) + CStr(rangee)) c'est bizarre....
colonne va retourner 3 (par exemle) ???
rangee 2 ?
trim pas servir a rien....
chr(3) = caractère incorrect
et ton "+" en est vraiment, pas un "&"
donc forcément......
donne plus de détails éventuellement
PCPT
je ne connais pas VBA, mais
Trim(Chr(colonne) + CStr(rangee)) c'est bizarre....
colonne va retourner 3 (par exemle) ???
rangee 2 ?
trim pas servir a rien....
chr(3) = caractère incorrect
et ton "+" en est vraiment, pas un "&"
donc forcément......
donne plus de détails éventuellement
PCPT
Charles Racaud
9 août 2005 à 23:31
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
9 août 2005 à 23:31
Bonjour,
Pourquoi pas ceci:
Sheets("TOTO").Select
Range(Cells(0, 0), Cells(colonne, rangee)).Select
Selection.Copy
niuSheet.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ChRB
<hr size="2" width="100%">Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Pourquoi pas ceci:
Sheets("TOTO").Select
Range(Cells(0, 0), Cells(colonne, rangee)).Select
Selection.Copy
niuSheet.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ChRB
<hr size="2" width="100%">Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
mrdep1978
10 août 2005 à 09:26
- Messages postés
- 402
- Date d'inscription
- jeudi 25 novembre 2004
- Statut
- Membre
- Dernière intervention
- 7 juin 2009
10 août 2005 à 09:26
Salut,
Dans excel, les indices de ligne/colonne démarrent à 1
=> Cells(1, 1) au lieu de Cells(0,0)
Dans excel, les indices de ligne/colonne démarrent à 1
=> Cells(1, 1) au lieu de Cells(0,0)
sacha1435
10 août 2005 à 13:28
- Messages postés
- 94
- Date d'inscription
- jeudi 13 février 2003
- Statut
- Membre
- Dernière intervention
- 12 octobre 2005
10 août 2005 à 13:28
Bonjour,
Pour trouvé la dernière cellule et en faire un plage de cellule dynamique selon la feuille utilisé ceci
Sub Last_cell()
Dim Fes As Workbook
Dim Fe As Worksheet
Dim Lcel As String
Set Fes = ActiveWorkbook
For Each Fe In Fes.Sheets
Fe.Activate
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select 'ici la fonction de recherche de la dernière cellule
Lcel = Selection.Address
ActiveSheet.PageSetup.PrintArea = "A1:" & Lcel 'exemple pour une zone d'impression peut être copié
Next
End Sub
Sacha
\!/
00
!
Pour trouvé la dernière cellule et en faire un plage de cellule dynamique selon la feuille utilisé ceci
Sub Last_cell()
Dim Fes As Workbook
Dim Fe As Worksheet
Dim Lcel As String
Set Fes = ActiveWorkbook
For Each Fe In Fes.Sheets
Fe.Activate
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select 'ici la fonction de recherche de la dernière cellule
Lcel = Selection.Address
ActiveSheet.PageSetup.PrintArea = "A1:" & Lcel 'exemple pour une zone d'impression peut être copié
Next
End Sub
Sacha
\!/
00
!