J'ai pos=E9 cette question le 8 octobre et merci =E0 Starwing,=20
ru-th, Bourby et =E0 gee-dee- pour vos r=E9ponses.=20
Vos solutions marche mais j'ai encore un petit probl=E8me.=20
Quand je fais ce text Adresse =3D Adresse je r=E9cup=E9re bien=20
une adresse E93 sans les dollars. Mais mon code refuse de=20
continuer =E0 cette ligne:
.PageSetup.PrintArea =3D Sh.Range("A1" & ":" & Adresse)
Il retransforme la variable Adresse de E93 en $E$93 et je=20
ne comprend pas pourquoi.=20
J'ai essay=E9 de remplacer le A1 par =A3A$1 et ce la ne marche=20
pas.....pourriez vous m'aider.
Ma question du 8 Octobre:
J'aimerais avoir votre aide sur mon probl=E8me de VBA.=20
Quand j'utilise ce code, Excel me lance une erreur sur=20
cette ligne ci-dessous:
Je r=E9cup=E9re dans cette variable, ceci $E$93 mais le fais=20
de faire A1:=A3E$93 ne fonctionne pas, est il possible de=20
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 =3D Worksheets("Les Modules")
iColumn =3D 4
iMaxCol =3D Range("IV10").Column
Do Until iColumn > iMaxCol
If Cells(10, iColumn).Value <> "" Then
Adresse =3D Cells(93, iColumn).Address
End If
=20
iColumn =3D iColumn + 1
=20
Loop
Adresse =3D Adresse
With Sh
.PageSetup.PrintArea =3D Sh.Range("A1" & ":" & Adresse)
.PageSetup.Orientation =3D xlLandscape
.PageSetup.PrintTitleRows =3D 8
.PageSetup.Zoom =3D 80
'.PrintOut Copies:=3D1, Collate:=3DTrue
End With
Jean-François Aubert {Vaudois de la Côte Lémanique}
"pierro" a écrit dans le message de news:27fb001c3909d$2f8cfce0$ Bonjour,
J'ai posé cette question le 8 octobre et merci à Starwing, ru-th, Bourby et à gee-dee- pour vos réponses.
Vos solutions marche mais j'ai encore un petit problème. Quand je fais ce text Adresse = Adresse je récupére bien une adresse E93 sans les dollars. Mais mon code refuse de continuer à cette ligne: .PageSetup.PrintArea = Sh.Range("A1" & ":" & Adresse)
Il retransforme la variable Adresse de E93 en $E$93 et je ne comprend pas pourquoi.
J'ai essayé de remplacer le A1 par £A$1 et ce la ne marche pas.....pourriez vous m'aider.
Ma question du 8 Octobre: 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:
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
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"pierro" <pierro59@hotmail.com> a écrit dans le message de
news:27fb001c3909d$2f8cfce0$a601280a@phx.gbl...
Bonjour,
J'ai posé cette question le 8 octobre et merci à Starwing,
ru-th, Bourby et à gee-dee- pour vos réponses.
Vos solutions marche mais j'ai encore un petit problème.
Quand je fais ce text Adresse = Adresse je récupére bien
une adresse E93 sans les dollars. Mais mon code refuse de
continuer à cette ligne:
.PageSetup.PrintArea = Sh.Range("A1" & ":" & Adresse)
Il retransforme la variable Adresse de E93 en $E$93 et je
ne comprend pas pourquoi.
J'ai essayé de remplacer le A1 par £A$1 et ce la ne marche
pas.....pourriez vous m'aider.
Ma question du 8 Octobre:
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:
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
Jean-François Aubert {Vaudois de la Côte Lémanique}
"pierro" a écrit dans le message de news:27fb001c3909d$2f8cfce0$ Bonjour,
J'ai posé cette question le 8 octobre et merci à Starwing, ru-th, Bourby et à gee-dee- pour vos réponses.
Vos solutions marche mais j'ai encore un petit problème. Quand je fais ce text Adresse = Adresse je récupére bien une adresse E93 sans les dollars. Mais mon code refuse de continuer à cette ligne: .PageSetup.PrintArea = Sh.Range("A1" & ":" & Adresse)
Il retransforme la variable Adresse de E93 en $E$93 et je ne comprend pas pourquoi.
J'ai essayé de remplacer le A1 par £A$1 et ce la ne marche pas.....pourriez vous m'aider.
Ma question du 8 Octobre: 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:
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
AV
Tu as toutes les réponses dans le fil du 08/10 ! ....dans lequel, d'ailleurs, il aurait souhaitable que tu restasses
Lis bien les diverses réponses, notamment celle de gee-dee...
AV
Tu as toutes les réponses dans le fil du 08/10 !
....dans lequel, d'ailleurs, il aurait souhaitable que tu restasses
Lis bien les diverses réponses, notamment celle de gee-dee...