Discussion :

[coxel1]

Bonjour, je suis entrain de faire une macro qui permettrai de copier un tableau, et le coller dans un autre fichier.
Je tiens à préciser, que j'ajoute tout les jours des lignes dans ce tableau, mais le problème est qu'avec mon code, les dernière lignes ne sont pas intégrés.
Je voudrais donc que mon code VBA prenne en compte la dernière ligne du tableau. Merci, le code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro2()
'
' Macro2 Macro
'
 
'
    ActiveWindow.SmallScroll Down:=3
    Range("A22:W68").Select
    ActiveWindow.ScrollColumn = 1
    Selection.Copy
    Windows("Classeur2").Activate
    Range("A2").Select
    ActiveSheet.Paste
    Windows("Voitures en cours - Chine.xlsx").Activate
    Range("C19").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("C23").Select
End Sub

[Soraphiroth]

Si l'on considère qu'il n'y a pas de cellule vide entre w22 et la dernière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro2()
'
    Range(range("A22")range("W22").end(xldown)).Copy    
    Windows("Classeur2").Activate
    Range("A2").Select
    ActiveSheet.Paste
 
'    Windows("Voitures en cours - Chine.xlsx").Activate
'    Range("C19").Select
'    Application.CutCopyMode = False
'    ActiveCell.FormulaR1C1 = ""
'    Range("C23").Select
 
End Sub

Je ne sais pas si la deuxième aprtie de la macro (Voitures en cours) est utile à la macro.

[QuestVba]

Bonjour,

Une autre possibilité:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A22:W" & Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row).Select

[coxel1]

on me met une erreure de syntaxe :

le 3ème "range" dans la formule à la 1ere ligne semble ne pas comporter les bonnes parenthéses.

merci de m'avoir répondu

@QuestVba
Ce code permet de selectionner le tableau, mais je n'arrive tjr pas à continuer le code afin qu'il le cole dans l'autre fichier.

Merci

QuestVBA merci, j'ai utilisé ta formule et elle semble marché, le probléme est qu'un message d'erreur m'apparait je le joint en piece jointe.

Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro2()
'
  Range("A22:W" & Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row).Select
  ActiveWindow.ScrollColumn = 1
  Selection.Copy
  Windows("Fichier Global.xlsx").Activate
  Range("A2").Select
  ActiveSheet.Paste
  Windows("Voitures en cours - Chine.xlsx").Activate
  Range("C19").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = ""
  Range("C23").Select
End Sub

[Soraphiroth]

petit erreur de recopie, il manquait la virgule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(range("A22"), range("W22").end(xldown)).Copy