Dernière colonne d'une plage nommée [Résolu/Fermé]

Signaler
-
 quentiiin68 -
Bonjour,

Je sollicite votre aide car je bloque dans l'écriture de ma macro. Voila mon problème:

J'ai une plage nommée, qui contient plusieurs colonnes:

Range("BJ1:BP10").Name="AUM"


J'aimerai pouvoir récupérer le numéro de la dernière colonne de ma plage "AUM", sachant que la colonne BQ est également remplie mais ne fait pas partie de la plage.

J'ai besoin de cette manip au cas où des colonnes seraient ajoutées avant la colonne BJ.

Merci d'avance.

4 réponses

Messages postés
9857
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
12 juin 2021
2 131
Bonjour

Public Sub OK()
Dim adr As String, t, derco As String
Range("BJ1:BP10").Name = "AUM"
adr = Range("AUM").Address
t = Split(adr, ":")
derco = Split(t(1), "$")(1)
MsgBox derco
End Sub


Cdlmnt
Merci, ca solutionne en partie mon problème mais pas totalement. Je m'explique:

J'aimerai récupérer le numéro de la dernière colonne non vide de ma plage "AUM". En effet, pour le moment, la colonne "BP" est vide. J'aimerai récupéerer le numéro de la dernière colonne, les colonnes se remplissant les unes après les autres au cours de l'année.

Merci d'avance.
Je veux dire par la que la macro précédente récupère la dernière colonne de la plage "AUM", que celle-ci soit vide ou pas.
Messages postés
9857
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
12 juin 2021
2 131
Public Sub OK()
Dim adr As String, derco As Long
Range("BJ1:BP10").Name = "AUM"
adr = Range("AUM").Address
derco = Range(adr).Find("*", , , , xlByColumns, xlPrevious).Column
MsgBox derco
End Sub

Cdlmnt
Super, c'est que je recherchais. Merci de votre aide