Variable dans VBA pose problème

[pierro59]

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

 

[michel]

Bonsoir pierro59

Peux tu tester la procedure modifiée (la modification est surlignée en gras )
j'espere que cela pourra t'aider


Sub Imprimer()
Dim iColumn As Integer
Dim iMaxCol As Integer
Dim Adresse As String
Dim Sh As Worksheet

Set Sh = Worksheets("Les Modules")

iColumn = 1
iMaxCol = Range("IV10").Column
Do Until iColumn > iMaxCol
If Sh.Cells(10, iColumn).Value <> "" Then
Adresse = Sh.Cells(93, iColumn).Address
End If

iColumn = iColumn + 1
Loop

With WorkSheets("Les Modules")
.PageSetup.PrintArea = Range("A1" & ":" & Adresse)
.PageSetup.Orientation = xlLandscape
'.PageSetup.PrintTitleRows = 8 ' bypassé pour essais
.PageSetup.Zoom = 80
'.PrintOut Copies:=1, Collate:=True
End With
Range("a1") = Adresse
End Sub


bonne soirée
Michel