Dernière colonne d'une plage nommée

Résolu/Fermé
quentiiin68 - Modifié par quentiiin68 le 2/08/2016 à 17:24
 quentiiin68 - 3 août 2016 à 14:20
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.
A voir également:

4 réponses

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
3 août 2016 à 10:57
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
0
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.
0
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.
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
3 août 2016 à 12:14
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
0
Super, c'est que je recherchais. Merci de votre aide
0