Range("A1:D" & Range("D65536").End(xlUp).Row).Select
Bonjour Al
essaye ainsi, s'applique aux cellules de la feuille active :
Code:Range("A1:D" & Range("D65536").End(xlUp).Row).Select
bon après midi
@+
Bonjour Al09, Pierrot,
Pour connaitre la derniere ligne:
Range("D65536").End(xlUp).Row).Select
Sous reserve que "D" soit la colonne ou tu as tes valeurs.
A+
Sinon tu peux dans un TCD, concatener de valeurs avec les champs calculés.
(En utilisant le "&")
Vois Ici: Les tableaux croisés dynamiques
A+
Bonjour Al, Cellulevide
le mieux serait de dire précisément ce que tu veux, données de départ et résultat attendu, avec un petit exemple en pièce jointe sans données confidentielles.
bon après midi
@+