Discussion :

[chito79000]

Bonjour,

Je voudrais sélectionner des données de A2 à ACxxxx
xxxx est bien entendu variable cela dépend des fichiers.

j'ai fait un code mais il pose problème lorsqu'il y a une seule ligne.

voici :

Code :

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

1
2
3
Range("A2:AC2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

[Invité]

Bonjour,

Une solution possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopierAire()
 
Dim DerniereLigne As Long
 
    With ActiveSheet
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         If DerniereLigne > 1 Then
            .Range(.Cells(2, 1), .Cells(DerniereLigne, 29)).Copy
           ' Sheets("Feuil2").Range("A10").PasteSpecial  ' A adapter
         End If
    End With
 
End Sub

Cordialement.

[chito79000]

Merci mais

seulement sélectionner de A2 à AC2

Code :

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

Range("A2:AC2").Select

Ensuite, Sélectionner jusqu'à la ligne x qui peut être 1 ligne comme 150 lignes....

Merci d'avance.

[Invité]

Quel est le problème ? Vous avez un autre tableau en dessous de A2:ACXXXX ?

[chito79000]

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub regrouper()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:="MonChemin\MonFichier.xlsx"
Range("A2").Select
Workbooks("MonFichier macro 1").Activate
Sheets("B").Activate
Range("AO2").Select
 
Do While ActiveCell.Value <> ""
      nom = ActiveCell.Value
    Workbooks.Open Filename:="MonChemin\" & nom & ".xlsx"
    Sheets(nom).Activate
    Dim DerniereLigne As Long
 
    With ActiveSheet
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         If DerniereLigne > 1 Then
            .Range(.Cells(2, 1), .Cells(DerniereLigne, 40)).Copy
         End If
    End With
 
 
    Workbooks("MonFichier").Activate
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Workbooks(nom).Activate
    Sheets("RC").Activate
 
    Dim DerniereLigne As Long
 
    With ActiveSheet
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         If DerniereLigne > 1 Then
            .Range(.Cells(2, 1), .Cells(DerniereLigne, 40)).Copy
 
         End If
    End With

Voici une partie de ma macro, le code d'erreur est le suivant :
Déclaration existante dans la portée en cours...

[joe.levrai]

Bonjour,

tu déclares deux fois DerniereLigne dans ta procédure

il est préférable de toujours déclarer ses variables tout en haut de la procédure, ça évite ces problèmes