Discussion :

[pythagore3_14]

Bonjour tout le monde !
J'aimerais selectionner un tableau de taille inconnue mais je ne peux pas utiliser "usedrange" parce que je ne veux pas de la 1ère ligne. Avec la macro d'enregistrement j'ai trouvé le code suivant :

Code :

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

1
2
3
Range("A2").Select
Range(selection, selection.End(xlDown)).Select
Range(selection, selection.End(xlToRight)).Select

(en utilisant les touches Ctrl+Shift+Flèche bas et droite). Mais bizaremment quand je veux faire fonctionner cette macro l'ordi n'accepte plus le code qu'il m'a dit lui-même fournit ! Motif : fonction ou variable attendue (en surlignant "selection")

Y a-t-il un moyen de sélectionner ce tableau ?

[DarkVader]

Bonjour tout le monde !
J'aimerais selectionner un tableau de taille inconnue mais je ne peux pas utiliser "usedrange" parce que je ne veux pas de la 1ère ligne. .../...
Y a-t-il un moyen de sélectionner ce tableau ?

Usedrange + offset + resize

[pythagore3_14]

Merci ! J'ai utilisé :

Code :

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

1
2
3
Range("A2").Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select

Ca marche très bien.
Par contre j'ai mis "currentregion" au lieu de "usedrange" qui ne fonctionne pas. Quelle est la différence ? L'aide en ligne n'est pas très explicite sur ce point.

C'est dans la FAQ.... J'ai rien dit.... Merci !

[deniooo]

il me semble (je dis bien il me semble), que usedrange renvoi un range contenant TOUTES les cellules utilisées de la feuille alors que current région renvoie un range contenant des valeurs non nulles autours de la cellule sélectionnée.

Pour ton affaire de tableau,

Code :

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

1
2
3
EndLine = ActiveWorkbook.Sheets(2).Range("A65536").End(xlUp).Row
 
EndCol = ActiveWorkbook.ActiveSheet.Range("IV2").End(xlToLeft).Column

ensuite sélectionne :

Code :

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

Range(cells(2,1), cells(Endline, EndCol)).select

Sachant que la derniére ligne sera la derniére ligne de la colonne A et la derniére colonne sera la derniére colonne de la ligne 2.

En espérant t'avoir aidé.

Denioo.