OVH Cloud OVH Cloud

bah regardezn je sais pas comment expliquer le titre

1 réponse
Avatar
GARAULT
voici un code qui dit si 1ere value = x alors affiche image y
sinon
2 eme value = y alors affiche image z

3 eme value = w alors affiche image t

je voudrais que en faites que si ce n'ai pas la premiere ni la deuxieme que
la troisieme s'affiche.
le soucis c qu'avec cette formule :
si 1ere value sa fonctionne
si 2eme value sa fonctionne
mais 3eme value sa plante... je pensses savoir pourquoi mais je n'ai aucune
idée pour résoudre c pb....
Quelqu'un peu t'il venir a mon aide ?

Private Sub userform_Initialize()

If etapedevis2.ComboBox2.Value = "Entrée d'air ext blanc 1KEA119" Then
Image2.Picture = LoadPicture("F:\Image\3306055.bmp")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Else
etapedevis2.ComboBox2.Value = "Grille d'entrée d'air ext. ordinaire 15m3
275mm BLANC 9010"
Image2.Picture = LoadPicture("F:\Image\GRILLE-EXT-ORD.bmp")
Image2.PictureSizeMode = fmPictureSizeModeZoom

etapedevis2.ComboBox2.Value = "Grille d 'entrée d'air ext. Auto.régl. 15m3
275mm NOIR 9005"
Image2.Picture = LoadPicture("F:\Image\GRILLE-EXT-AUTO-R.bmp")
Image2.PictureSizeMode = fmPictureSizeModeZoom

End If

End Sub

1 réponse

Avatar
JLuc
*Bonjour GARAULT*,
Et comme ça ? :

Private Sub userform_Initialize()

If etapedevis2.ComboBox2.Value = "Entrée d'air ext blanc 1KEA119" Then
Image2.Picture = LoadPicture("F:Image3306055.bmp")
ElseIf etapedevis2.ComboBox2.Value = "Grille d'entrée d'air ext.
ordinaire 15m3 275mm BLANC 9010" Then
Image2.Picture = LoadPicture("F:ImageGRILLE-EXT-ORD.bmp")
Else
Image2.Picture = LoadPicture("F:ImageGRILLE-EXT-AUTO-R.bmp")
End If
Image2.PictureSizeMode = fmPictureSizeModeZoom

End Sub


voici un code qui dit si 1ere value = x alors affiche image y
sinon
2 eme value = y alors affiche image z

3 eme value = w alors affiche image t

je voudrais que en faites que si ce n'ai pas la premiere ni la deuxieme que
la troisieme s'affiche.
le soucis c qu'avec cette formule :
si 1ere value sa fonctionne
si 2eme value sa fonctionne
mais 3eme value sa plante... je pensses savoir pourquoi mais je n'ai aucune
idée pour résoudre c pb....
Quelqu'un peu t'il venir a mon aide ?

Private Sub userform_Initialize()

If etapedevis2.ComboBox2.Value = "Entrée d'air ext blanc 1KEA119" Then
Image2.Picture = LoadPicture("F:Image3306055.bmp")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Else
etapedevis2.ComboBox2.Value = "Grille d'entrée d'air ext. ordinaire 15m3
275mm BLANC 9010"
Image2.Picture = LoadPicture("F:ImageGRILLE-EXT-ORD.bmp")
Image2.PictureSizeMode = fmPictureSizeModeZoom

etapedevis2.ComboBox2.Value = "Grille d 'entrée d'air ext. Auto.régl. 15m3
275mm NOIR 9005"
Image2.Picture = LoadPicture("F:ImageGRILLE-EXT-AUTO-R.bmp")
Image2.PictureSizeMode = fmPictureSizeModeZoom

End If

End Sub


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

O-O