Discussion :

[wabo67]

Bonjour,

J'essai de copier un texte sur la premiere ligne vide du tableau.
Cela fonctionne par contre il me met la feuille suivante sur H47 par exemple à la place de Axx.

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
20
21
22
23
24
  Sheets("S01").Select
    Range("A17:H24,A29:H33,A38:H42,A47:H51,A56:H60,A65:H69,A74:H78,A83:H87,A92:H96" _
        ).Select
    Selection.Copy
    Sheets("RECAP").Select
 
        Range("A1").Select
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select
 
 
 
    ActiveSheet.Paste
 
    Sheets("S02").Select
    Range("A17:H24,A29:H33,A38:H42,A47:H51,A56:H60,A65:H69,A74:H78,A83:H87,A92:H96" _
        ).Select
    Selection.Copy
    Sheets("RECAP").Select
 
        Range("A1").Select
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select
 
 
    ActiveSheet.Paste

D avance merci

[jfontaine]

Bonjour,

L'instruction suivant sélectionne la dernière cellule utilisée, donc il est normal que le curseur se place en H47 (dans ton cas)

Code :

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

ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select

Pour placer ton curseur en A47 tu dois adapter comme ceci

Code :

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

Cells(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row, 1).Select

Evidemment ce n'est qu'une solution par tant d'autres