OVH Cloud OVH Cloud

Dernière colonne

3 réponses
Avatar
Steph_D
Bonjour,

J'ai oublié s'il existait une formule magique pour récupérer la(ou les)
lettre(s) de la dernière colonne (et non l'index de la colonne) où des
données ont été saisies.
Dois-je utiliser, par exemple, une ligne comme
Range("IV1").End(xlToLeft).Address et déterminer la récupérant la partie
entre les $ ?

Merci pour votre aide
Steph D.

3 réponses

Avatar
anonymousA
bonjour,

temp = Range("IV1").End(xlToLeft).Address(False, False)

If IsNumeric(Right(Left(temp, 2), 1)) Then
MsgBox Left(temp, 1)
Else
MsgBox Left(temp, 2)
End If

A+



Bonjour,

J'ai oublié s'il existait une formule magique pour récupérer la(ou les)
lettre(s) de la dernière colonne (et non l'index de la colonne) où des
données ont été saisies.
Dois-je utiliser, par exemple, une ligne comme
Range("IV1").End(xlToLeft).Address et déterminer la récupérant la partie
entre les $ ?

Merci pour votre aide
Steph D.





Avatar
Steph_D
Merci AnonymousA pour l'info.
Bonne journée et week-end

"anonymousA" a écrit dans le message
de news:
bonjour,

temp = Range("IV1").End(xlToLeft).Address(False, False)

If IsNumeric(Right(Left(temp, 2), 1)) Then
MsgBox Left(temp, 1)
Else
MsgBox Left(temp, 2)
End If

A+



Bonjour,

J'ai oublié s'il existait une formule magique pour récupérer la(ou les)
lettre(s) de la dernière colonne (et non l'index de la colonne) où des
données ont été saisies.
Dois-je utiliser, par exemple, une ligne comme
Range("IV1").End(xlToLeft).Address et déterminer la récupérant la partie
entre les $ ?

Merci pour votre aide
Steph D.







Avatar
Daniel
Bonsoir.
J'ai peur que cela ne soit pire que ça. Ta formule n'est valable que pour la
ligne 1.
Var = Split(Range("A1",
Range("A1").SpecialCells(xlCellTypeFormulas)).Address, "$")(3)
Cordialement.
Daniel
"Steph_D" a écrit dans le message de news:
d8bpdk$q2$
Bonjour,

J'ai oublié s'il existait une formule magique pour récupérer la(ou les)
lettre(s) de la dernière colonne (et non l'index de la colonne) où des
données ont été saisies.
Dois-je utiliser, par exemple, une ligne comme
Range("IV1").End(xlToLeft).Address et déterminer la récupérant la partie
entre les $ ?

Merci pour votre aide
Steph D.