Variable dans VBA pose problème pour imprimer

Salut

non testé
regardes avec
Adresse = Cells(93, iColumn)..AddressLocal(0, 0)

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"pierro" <pierro59@hotmail.com> a écrit dans le message de news:
052401c38dd3$7fe44cb0$a101280a@phx.gbl...
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

Essaie ça:

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$93"

Starwing

-----Message d'origine-----
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
.

Bonsoir,

tu remplaces .Adress par
.Address(rowabsolute:úlse, columnabsolute:úlse)
Est-ce que ça répond à ta question?

Bourby


"pierro" <pierro59@hotmail.com> a écrit dans le message news:
052401c38dd3$7fe44cb0$a101280a@phx.gbl...
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

Bonsoir,
A-
le mot adresse est un mot réservé de feuille de calcul
Syntaxe
ADRESSE(no_lig;no_col;no_abs;a1;feuille_texte)
'--------------------------------
B -
le mot Address est un mot réservé de fonction VBA
Cette propriété renvoie la référence de la plage dans le langage de la
macro. Propriété de type String en lecture
seule.expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle,
External, RelativeTo)
'--------------------------------


une solution selon le modéle proposé :
'quelque part dans la procédure concernée
UneAdresse = "$E$93"
../..
.PageSetup.PrintArea = Sh..Range("A1:" & UneAdresse).Address


@+





.



2
3 Ligne relative, colonne absolue
4 Relative