Range,cells

Bonjour le forum

Après avoir recherché ma dernière ligne non vide à l'aide de la formule

j = Range("B65536").End(xlUp).Row

je cherche à sélectionner l'ensemble des cellules entre B4 et Ej

Ex : si j était fixé à 20 j'écrirais Range("B4:E20").Select

l'écriture Range("B4:Ej").Select n'est pas correcte

celle Cells(4,2):Cells(j:5).Select non plus

quelle est la solution?

merci pour votre aide

je voulais écrise :

"celle Cells(4,2):Cells(j,5).Select non plus "

Bonjour,

essaye --> Range("B4", Range("E" & j)).Select

Amicalement

Dan

Ca marche parfaitement

Une nouvelle fois,....merci !

5transfo-promo.zip (11.75 Ko)

C'est trop bon !

Je me mets un peu à Excel pour cause d'arrêt de travail pour une jambe cassée.

Et grâce aux forums j'arrive à comprendre plein de trucs !

Là je cherchais à "étendre" une formule sur une plage, jusqu'à la dernière ligne d'une base de données à côté, et la dernière colonne de la ligne de titre du tableau.

J'arrivais à détecter les cellules "extrêmes", mais pas à me servir de leur adresse pour ma macro.

Maintenant grâce à Nad-Dan ça donne ça :

Dim l As Integer

Dim c As String

l = Range("F2").End(xlDown).Row

c = Chr(Range("H1").End(xlToRight).Column + 64) (astuce trouvée sur un autre site pour récupérer la lettre de la colonne, avec son code ASCII)

Range("H2").Select

ActiveCell.FormulaLocal = "=SI(H$1<$E2;0;SI(H$1>$F2;0;1))" (je veux que des 0 ou des 1 dans mon tableau)

Selection.AutoFill Destination:=Range("H2", Range("H" & l)), Type:=xlFillValues

Range("H2", Range("H" & l)).Select

Selection.AutoFill Destination:=Range("H2", Range(c & l)), Type:=xlFillValues

Voilà y'avait peut-être plus simple, et je le découvrirais peut-être un jour, mais en tout cas ça marche !

Merci à tous ceux qui aident les "blaireaux" comme moi à résoudre leurs problèmes.

Rechercher des sujets similaires à "range"