sélection de cellule

[KN4]

Bonjour,
Je souhaite sélectionner les cellules d'un tableau ou d'une colonne jusqu'à la dernière valeur et ne pas prendre des cellules vides.
Je ne sais pas comment faire.
merci pour votre aide;
NICO

 

[CBernardT]

Bonsoir KN4 et le forum,

Essayes d'utiliser la méthode SpecialCells.

Rappel de l'aide :

Cette méthode renvoie un objet Range qui représente toutes les cellules correspondant au type et à la valeur spécifiés. Objet Range.

expression.SpecialCells(Type, Value)
expression Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.

Type Argument XlCellType obligatoire. Cellules à inclure.

XlCellType peut être l'une de ces constantes XlCellType.
xlCellTypeAllFormatConditions. Cellules de n'importe quel format
xlCellTypeAllValidation. Cellules présentant des critères de validation
xlCellTypeBlanks. Cellules vides
xlCellTypeComments. Cellules contenant des commentaires
xlCellTypeConstants. Cellules contenant des constantes
xlCellTypeFormulas. Cellules contenant des formules
xlCellTypeLastCell. Dernière cellule dans la plage utilisée
xlCellTypeSameFormatConditions. Cellules de même format
xlCellTypeSameValidation. Cellules présentant les mêmes critères de validation
xlCellTypeVisible. Toutes les cellules visibles

Value Argument de type Variant facultatif. Si Type a la valeur xlCellTypeConstants ou xlCellTypeFormulas, cet argument est utilisé pour déterminer quels types de cellules inclure dans le résultat. Ces valeurs peuvent être ajoutées ensemble pour renvoyer plusieurs types. Par défaut, toutes les constantes ou formules sont sélectionnées, quel que soit leur type. Il peut s'agir de l'une des constantes XlSpecialCellsValue suivantes :

XlSpecialCellsValue peut être l'une de ces constantes XlSpecialCellsValue.
xlErrors
xlLogical
xlNumbers
xlTextValues


Dans ton cas, tu peux essayer un code du genre :

Selection.SpecialCells(xlCellTypeConstants, xlNumbers).Select

Cordialement

CBernardT

 

[Hervé]

Bonsoir tout le monde

Sinon il existe ce type de synthaxe :

Range(Cells(1, 1), Cells(Range('A65536').End(xlUp).Row, 1)).Select

en imaginant tes données dans la colonne A

Pas élégant comme synthaxe, n'est-il pas ?

Salut