De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à la
place du numéro la lettre correspondante (1 =A).
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
Misange
Bonjour,
De la même manière que "DerniereColonne = ActiveSheet.UsedRange.Columns.Count" renvoie le numéro de la dernière colonne est il possible d'avoir à la place du numéro la lettre correspondante (1 =A). bonjour
De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à la
place du numéro la lettre correspondante (1 =A).
bonjour
De la même manière que "DerniereColonne = ActiveSheet.UsedRange.Columns.Count" renvoie le numéro de la dernière colonne est il possible d'avoir à la place du numéro la lettre correspondante (1 =A). bonjour
Sub Lettre_Col() laVar = ActiveSheet.UsedRange.Columns.Count MsgBox Evaluate("left(address(1," & laVar & ",2),find(""$"",address(1," & laVar & ",2))-1)") End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Michel (pen ar bed)" a écrit dans le message de news:
Bonjour,
De la même manière que "DerniereColonne = ActiveSheet.UsedRange.Columns.Count" renvoie le numéro de la dernière colonne est il possible d'avoir à la place du numéro la lettre correspondante (1 =A).
Je ne trouve pas dans l'aide
Merci M.
Salut Michel,
adapté de av-Evaluate-v2.xls
Sub Lettre_Col()
laVar = ActiveSheet.UsedRange.Columns.Count
MsgBox Evaluate("left(address(1," & laVar & ",2),find(""$"",address(1," &
laVar & ",2))-1)")
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Michel (pen ar bed)" <Michel@mail.net> a écrit dans le message de news:
mn.c2be7d83fe89c860.62698@mail.net...
Bonjour,
De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à la
place du numéro la lettre correspondante (1 =A).
Sub Lettre_Col() laVar = ActiveSheet.UsedRange.Columns.Count MsgBox Evaluate("left(address(1," & laVar & ",2),find(""$"",address(1," & laVar & ",2))-1)") End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Michel (pen ar bed)" a écrit dans le message de news:
Bonjour,
De la même manière que "DerniereColonne = ActiveSheet.UsedRange.Columns.Count" renvoie le numéro de la dernière colonne est il possible d'avoir à la place du numéro la lettre correspondante (1 =A).
Je ne trouve pas dans l'aide
Merci M.
MichDenis
Si tu veux avoir la dernière colonne occupée, tu devrais utiliser ceci au lieu de la composante UsedRange
La fonction "Split" requiert la version excel 2000 ou plus récent.
'--------------------------------- Sub test() Dim x As String With Worksheets("Feuil1") x = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious).Address(1, 1) End With MsgBox Split(x, "$")(1) End Sub '---------------------------------
"Michel (pen ar bed)" a écrit dans le message de news:
Bonjour,
De la même manière que "DerniereColonne = ActiveSheet.UsedRange.Columns.Count" renvoie le numéro de la dernière colonne est il possible d'avoir à la place du numéro la lettre correspondante (1 =A).
Je ne trouve pas dans l'aide
Merci M.
Si tu veux avoir la dernière colonne occupée, tu devrais utiliser ceci au lieu
de la composante UsedRange
La fonction "Split" requiert la version excel 2000 ou plus récent.
'---------------------------------
Sub test()
Dim x As String
With Worksheets("Feuil1")
x = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Address(1, 1)
End With
MsgBox Split(x, "$")(1)
End Sub
'---------------------------------
"Michel (pen ar bed)" <Michel@mail.net> a écrit dans le message de news:
mn.c2be7d83fe89c860.62698@mail.net...
Bonjour,
De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à la
place du numéro la lettre correspondante (1 =A).
Si tu veux avoir la dernière colonne occupée, tu devrais utiliser ceci au lieu de la composante UsedRange
La fonction "Split" requiert la version excel 2000 ou plus récent.
'--------------------------------- Sub test() Dim x As String With Worksheets("Feuil1") x = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious).Address(1, 1) End With MsgBox Split(x, "$")(1) End Sub '---------------------------------
"Michel (pen ar bed)" a écrit dans le message de news:
Bonjour,
De la même manière que "DerniereColonne = ActiveSheet.UsedRange.Columns.Count" renvoie le numéro de la dernière colonne est il possible d'avoir à la place du numéro la lettre correspondante (1 =A).
Je ne trouve pas dans l'aide
Merci M.
Michel (pen ar bed)
Jean-François Aubert a utilisé son clavier pour écrire :
Merci à vous deux c'est parfait
Jean-François Aubert a utilisé son clavier pour écrire :
Chercher la lettre de la colonne est souvent un faux pb:
Il suffit d'utiliser Cells(ligne,colonne) pour référencer les cellules.
JB
On 24 mar, 11:42, Michel (pen ar bed) wrote:
Bonjour,
De la même manière que "DerniereColonne = ActiveSheet.UsedRange.Columns.Count" renvoie le numéro de la dernière colonne est il possible d'avoir à l a place du numéro la lettre correspondante (1 =A).
Chercher la lettre de la colonne est souvent un faux pb:
Il suffit d'utiliser Cells(ligne,colonne) pour référencer les
cellules.
JB
On 24 mar, 11:42, Michel (pen ar bed) <Mic...@mail.net> wrote:
Bonjour,
De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à l a
place du numéro la lettre correspondante (1 =A).
Chercher la lettre de la colonne est souvent un faux pb:
Il suffit d'utiliser Cells(ligne,colonne) pour référencer les cellules.
JB
On 24 mar, 11:42, Michel (pen ar bed) wrote:
Bonjour,
De la même manière que "DerniereColonne = ActiveSheet.UsedRange.Columns.Count" renvoie le numéro de la dernière colonne est il possible d'avoir à l a place du numéro la lettre correspondante (1 =A).