Lettre pour dernière colonne à droite

[David]

Bonjour à tous

J'ai une macro qui défini une zone d'impréssion et j'ai besoin de détreminé la dernière colonne pleine à droit, j'utilise donc Columns.Count mais ça me renvoit un chiffre mais j'ai besoin d'une lettre, j'ai trouvé quelques réponses sur la question mais je n'arrive pas à les faire marcher.

Je vous mets mon code, le but étant de transformer colo en lettre 😀

Sub impression1()
    Dim i As Integer
    Dim colo
    colo = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = Range("B65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 2).Value <> "" Then
    ActiveSheet.PageSetup.Zoom = 75
    ActiveSheet.PageSetup.PrintArea = "$A$1:$" & colo & "$" & i
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveSheet.PageSetup.PrintArea = ""
    Range("A1").Select
    End If
Next i

End Sub

Merci

 

[ROGER2327]

Re : Lettre pour dernière colonne à droite

Bonjour

Une autre solution est de remplacer

[COLOR="DarkSlateGray"][B]    ActiveSheet.PageSetup.PrintArea = "$A$1:$" & colo & "$" & i[/B][/COLOR]

par

[COLOR="DarkSlateGray"][B]    ActiveSheet.PageSetup.PrintArea = Range([A1], Cells(i, colo)).Address[/B][/COLOR]

ROGER2327
#2098

 

[Temjeh]

Re : Lettre pour dernière colonne à droite

Bonjour

Aussi ceci donne la lettre de la dernière colonne de ligne 1 pas vide

Split(Range([IV1].End(xlToLeft).Address(0, 0)).Address, "$")(1)


A++

Temjeh

 

[David]

Re : Lettre pour dernière colonne à droite

Merci à tous

beaucoup de solutions qui marchent toutes !!^^

Merci encore et bonnes journée.