Discussion :

[backx3]

Bonjour,

J'ai un petit problème au niveau de sélections dans Excel en VBA.
J'ai une feuille qui contient plein de données (9 200 lignes) sur une dizaine de colones.
Ma première ligne contient des filtres, et j'aimerais, via une macro filtrer des données, copier les données filtrées, et les coller dans une autre feuille.

Je sais selectionner la feuille entière, plusieurs colones, plusieurs lignes, mais je ne sais pas selectionner la feuille entière sauf la première ligne.

Quelqu'un aurait une solution s'il vous plaît ?

Merci d'avance !

Pour l'instant voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
'Sheets.Add.Select
 '   Sheets("RQT_TDB_DELAI_2013").Visible = True
  '  Sheets("RQT_TDB_DELAI_2013").Activate
  '
  '  Sheets("RQT_TDB_DELAI_2013").Select
 
    Rows("2:1").Select   <-- C'est ici que je bloque ! :(
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

[Philippe Tulliez]

Bonjour,

Je sais selectionner la feuille entière, plusieurs colones, plusieurs lignes, mais je ne sais pas selectionner la feuille entière sauf la première ligne.

En utilisant les propriétés Offset et Resize de l'objet Range
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
Sub t()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("Feuil3").Range("A1").CurrentRegion
 ' reconfiguration
 With rng
  Set rng = rng.Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select
End Sub

[backx3]

Merci pour la réponse rapide. J'ai regardé pour l'offset et le resize et je comprends mieux avec l'exemple.
Mais à la ligne Set rng = rng.Offset(1).Resize(.Rows.Count - 1), j'ai une erreur d'exécution '9'.

L'indice n'appartient pas à la sélection.

J'aurais oublié quelque chose ?

J'ai modifié le code en selectionnant la cellule A1 manuellement et le code devient:

Code :

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

1
2
3
4
5
Set rng = ActiveCell.CurrentRegion
  With rng
  Set rng = rng.Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select

Ce code fonctionne, c'est donc la ligne de code "Range("A1")" qui ne fonctionne pas ..

[backx3]

Problème résolu, merci.

Si quelqu'un a besoin du code le voici:

Code :

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

1
2
3
4
5
6
7
8
Sheets("RQT_TDB_DELAI_2013").Range("A2").Select
 
    Set rng = ActiveCell.CurrentRegion
 ' reconfiguration
 With rng
  Set rng = rng.Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select

[Philippe Tulliez]

Bonjour,

Ce code fonctionne, c'est donc la ligne de code "Range("A1")" qui ne fonctionne pas ..

Certainement pas.
Il s'agit peut-être du nom de la feuille (Feuil3) qui n'était pas identique

Ayant répondu rapidement, je viens de constater que la procédure proposée avait une légère erreur (pourtant testée) mais sans aucune incidence.
A condition bien entendu que la liste commence en cellule A1 de la feuille nommée [Feuil3].

Code :

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

1
2
3
4
5
6
7
8
9
Sub t()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("Feuil3").Range("A1").CurrentRegion 
 ' reconfiguration
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rng.Select ' Juste pour le test
End Sub