Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Première et dernière colonne d'un objet range

Première et dernière colonne d'un objet range

12 réponses
Avatar
Misange
Bonjour

Je récupère dans une macro un range. Disons A2:D20
comment récupérer :
preml= N° de la première ligne (2)
dernl= n° de la dernière ligne(20)
premc= N° de la première colonne (1) ou mieux, directement sa lettre, A
dernc= N° de la dernière colonne (4 ou D)

merci merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jean-François Aubert
Salut Misange,

Sub yy()
Set rng = Range("A2:G20")
preml = rng(1, 1).Row
dernl = rng(1, 1).Row + rng.Rows.Count - 1
premc = rng(1, 1).Column
Lettre_premc = Left$(rng(1, 1).Address(0, 0), (ActiveCell.Column < 27) + 2)
dernc = rng(1, 1).Column + rng.Columns.Count - 1
Lettre_derc = Left$(rng(1, rng(1, 1).Column + rng.Columns.Count - 1).Address(0, 0),
(ActiveCell.Column < 27) + 2)
Set rng = Nothing
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Misange" a écrit dans le message de
news:
Bonjour

Je récupère dans une macro un range. Disons A2:D20
comment récupérer :
preml= N° de la première ligne (2)
dernl= n° de la dernière ligne(20)
premc= N° de la première colonne (1) ou mieux, directement sa lettre, A
dernc= N° de la dernière colonne (4 ou D)

merci merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta



Avatar
Jean-François Aubert
Re salut,

Correction à apporter à ma proc:

Lettre_derc = Left$(Cells(1, rng(1, 1).Column + rng.Columns.Count - 1).Address(0, 0), _
(Cells(1, rng(1, 1).Column + rng.Columns.Count - 1).Column < 27) + 2)

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Jean-François Aubert" <à a écrit dans le message de
news:3faca37f$
Salut Misange,

Sub yy()
Set rng = Range("A2:G20")
preml = rng(1, 1).Row
dernl = rng(1, 1).Row + rng.Rows.Count - 1
premc = rng(1, 1).Column
Lettre_premc = Left$(rng(1, 1).Address(0, 0), (ActiveCell.Column < 27) + 2)
dernc = rng(1, 1).Column + rng.Columns.Count - 1
Lettre_derc = Left$(rng(1, rng(1, 1).Column + rng.Columns.Count - 1).Address(0, 0),
(ActiveCell.Column < 27) + 2)
Set rng = Nothing
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Misange" a écrit dans le message de
news:
Bonjour

Je récupère dans une macro un range. Disons A2:D20
comment récupérer :
preml= N° de la première ligne (2)
dernl= n° de la dernière ligne(20)
premc= N° de la première colonne (1) ou mieux, directement sa lettre, A
dernc= N° de la dernière colonne (4 ou D)

merci merci
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta







1 2