Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Selection plage par vba

3 réponses
Avatar
Domi
Bonjour,
Je voudrais donner un nom à la plage qui va de la dernière cellule pleine de
la colonne B jusqu'à la cellule qui se trouve 30 lignes plus haut ou de la
ligne 2 à la dernière s'il il ya moins de 30 lignes...
Range(................ ) .name="Maplage"
par quoi faut-il remplacer les ........ ?

Merci
Domi

3 réponses

Avatar
JpPradier
Bonjour Domi

Avec quelquechose comme ca :

FinPlage=Range("b65536").end(xlup).row
If FinPlage <30 then
adrPlage=range("b2:b" & FinPlage).address
else
adrPlage=range("b" & (FinPlage-30) & ":b" & FinPlage).address
Range(adrPlage) .name="Maplage"

j-p
Avatar
Youky
ligne = [Feuil1!B65536].End(xlUp).Row
k = IIf(ligne > 30, 30, ligne - 2)
Feuil1.Range("B" & ligne - k & ":B" & ligne).Name="Maplage"

Youky

"Domi" a écrit dans le message de news:
%
Bonjour,
Je voudrais donner un nom à la plage qui va de la dernière cellule pleine
de
la colonne B jusqu'à la cellule qui se trouve 30 lignes plus haut ou de la
ligne 2 à la dernière s'il il ya moins de 30 lignes...
Range(................ ) .name="Maplage"
par quoi faut-il remplacer les ........ ?

Merci
Domi




Avatar
Domi
Merci beaucoup à tous deux ;o)
Domi

"Youky" a écrit dans le message de
news:
ligne = [Feuil1!B65536].End(xlUp).Row
k = IIf(ligne > 30, 30, ligne - 2)
Feuil1.Range("B" & ligne - k & ":B" & ligne).Name="Maplage"

Youky

"Domi" a écrit dans le message de news:
%
Bonjour,
Je voudrais donner un nom à la plage qui va de la dernière cellule
pleine


de
la colonne B jusqu'à la cellule qui se trouve 30 lignes plus haut ou de
la


ligne 2 à la dernière s'il il ya moins de 30 lignes...
Range(................ ) .name="Maplage"
par quoi faut-il remplacer les ........ ?

Merci
Domi