P
pierro59
Guest
Bonjour,
J'aimerais avoir votre aide sur mon problème de VBA. Quand j'utilise ce code, Excel me lance une erreur sur cette ligne ci-dessous:
.PageSetup.PrintArea = Sh.Range("A1" & ":" & Adresse)
Je récupére dans cette variable, ceci $E$93 mais le fais de faire A1:£E$93 ne fonctionne pas, est il possible de transformer $E$93 en E93?.
Voici mon code
Sub Imprimer()
Dim iColumn As Integer
Dim iMaxCol As Integer
Dim Adresse As Variant
Dim Sh As Worksheet
Set Sh = Worksheets("Les Modules")
iColumn = 4
iMaxCol = Range("IV10").Column
Do Until iColumn > iMaxCol
If Cells(10, iColumn).Value <> "" Then
Adresse = Cells(93, iColumn).Address
End If
iColumn = iColumn + 1
Loop
Adresse = Adresse
With Sh
.PageSetup.PrintArea = Sh.Range("A1" & ":" & Adresse)
.PageSetup.Orientation = xlLandscape
.PageSetup.PrintTitleRows = 8
.PageSetup.Zoom = 80
'.PrintOut Copies:=1, Collate:=True
End With
End Sub
Pierro
J'aimerais avoir votre aide sur mon problème de VBA. Quand j'utilise ce code, Excel me lance une erreur sur cette ligne ci-dessous:
.PageSetup.PrintArea = Sh.Range("A1" & ":" & Adresse)
Je récupére dans cette variable, ceci $E$93 mais le fais de faire A1:£E$93 ne fonctionne pas, est il possible de transformer $E$93 en E93?.
Voici mon code
Sub Imprimer()
Dim iColumn As Integer
Dim iMaxCol As Integer
Dim Adresse As Variant
Dim Sh As Worksheet
Set Sh = Worksheets("Les Modules")
iColumn = 4
iMaxCol = Range("IV10").Column
Do Until iColumn > iMaxCol
If Cells(10, iColumn).Value <> "" Then
Adresse = Cells(93, iColumn).Address
End If
iColumn = iColumn + 1
Loop
Adresse = Adresse
With Sh
.PageSetup.PrintArea = Sh.Range("A1" & ":" & Adresse)
.PageSetup.Orientation = xlLandscape
.PageSetup.PrintTitleRows = 8
.PageSetup.Zoom = 80
'.PrintOut Copies:=1, Collate:=True
End With
End Sub
Pierro