affichage/masquer des images

Bonsoir,Titi,



Dim Feuille as Worksheet

Sub Imprimer_3()
'..............
end sub
Function AfficheImage()
'..............
end function

'Cordialement

'LSteph


"titi" <nomail@mail.com> a écrit dans le message de news:
%23Vpn1ktyGHA.4368@TK2MSFTNGP02.phx.gbl...

bonjour
Dans la SUB suivante je n arrive pas à definir "feuille"
Pour que "feuille" change dans chaque Function AfficheImage1()

Sub Imprimer_3()
Sheets("A Imprimer 3").Select
feuille = "A Imprimer 3"
AfficheImage
feuille = "A Imprimer 4"
AfficheImage
AfficheImage
Range("A1:P106").Select
Selection.PrintOut Copies:=1
End Sub

Function AfficheImage()
If Sheets("Calculs").Range("F31") = 1 Then
Sheets(feuille).Shapes("Image1").Visible = True
Sheets(feuille).Shapes("Image2").Visible = False
Sheets(feuille).Shapes("Image3").Visible = False
End If
End Function


merci pour tout
A+
Th

*Bonjour titi*,
AMHA, une fonction doit renvoyer quelque chose, dans ton cas, utilise
sub au lieu de function. ensuite, tu peux lui passer le nom de la
feuille en parametre :

Sub Imprimer_3()
Sheets("A Imprimer 3").Select
feuille = "A Imprimer 3"
AfficheImage
feuille = "A Imprimer 4"
AfficheImage(feuille)
Range("A1:P106").Select
Selection.PrintOut Copies:=1
End Sub

Sub AfficheImage(feuille As String)
If Sheets("Calculs").Range("F31") = 1 Then
Sheets(feuille).Shapes("Image1").Visible = True
Sheets(feuille).Shapes("Image2").Visible = False
Sheets(feuille).Shapes("Image3").Visible = False
End If
End Sub

bonjour
Dans la SUB suivante je n arrive pas à definir "feuille"
Pour que "feuille" change dans chaque Function AfficheImage1()

Sub Imprimer_3()
Sheets("A Imprimer 3").Select
feuille = "A Imprimer 3"
AfficheImage
feuille = "A Imprimer 4"
AfficheImage
AfficheImage
Range("A1:P106").Select
Selection.PrintOut Copies:=1
End Sub

Function AfficheImage()
If Sheets("Calculs").Range("F31") = 1 Then
Sheets(feuille).Shapes("Image1").Visible = True
Sheets(feuille).Shapes("Image2").Visible = False
Sheets(feuille).Shapes("Image3").Visible = False
End If
End Function


merci pour tout
A+
Th

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

bonjour
et merci à tous les deux.
A+
Th


"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.e5617d682a03ad3b.40692@free.fr.ns...

*Bonjour titi*,
AMHA, une fonction doit renvoyer quelque chose, dans ton cas, utilise sub
au lieu de function. ensuite, tu peux lui passer le nom de la feuille en
parametre :

Sub Imprimer_3()
Sheets("A Imprimer 3").Select
feuille = "A Imprimer 3"
AfficheImage
feuille = "A Imprimer 4"
AfficheImage(feuille)
Range("A1:P106").Select
Selection.PrintOut Copies:=1
End Sub

Sub AfficheImage(feuille As String)
If Sheets("Calculs").Range("F31") = 1 Then
Sheets(feuille).Shapes("Image1").Visible = True
Sheets(feuille).Shapes("Image2").Visible = False
Sheets(feuille).Shapes("Image3").Visible = False
End If
End Sub

bonjour
Dans la SUB suivante je n arrive pas à definir "feuille"
Pour que "feuille" change dans chaque Function AfficheImage1()

Sub Imprimer_3()
Sheets("A Imprimer 3").Select
feuille = "A Imprimer 3"
AfficheImage
feuille = "A Imprimer 4"
AfficheImage
AfficheImage
Range("A1:P106").Select
Selection.PrintOut Copies:=1
End Sub

Function AfficheImage()
If Sheets("Calculs").Range("F31") = 1 Then
Sheets(feuille).Shapes("Image1").Visible = True
Sheets(feuille).Shapes("Image2").Visible = False
Sheets(feuille).Shapes("Image3").Visible = False
End If
End Function


merci pour tout
A+
Th

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O