Probleme de programation en langage VBA
Résolu/Fermé
juju06340
-
3 mars 2010 à 19:41
juju06340 Messages postés 1 Date d'inscription mercredi 3 mars 2010 Statut Membre Dernière intervention 4 mars 2010 - 4 mars 2010 à 19:31
juju06340 Messages postés 1 Date d'inscription mercredi 3 mars 2010 Statut Membre Dernière intervention 4 mars 2010 - 4 mars 2010 à 19:31
A voir également:
- Probleme de programation en langage VBA
- Langage ascii - Guide
- Langage binaire - Guide
- Pascal langage - Télécharger - Édition & Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
4 réponses
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
4 mars 2010 à 19:06
4 mars 2010 à 19:06
re
regarde du cote de sizemode
regarde du cote de sizemode
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
3 mars 2010 à 19:50
3 mars 2010 à 19:50
bonjour
peux tu mettre ton code et la 2 eme condition au format texte a part et je regarde ca
peux tu mettre ton code et la 2 eme condition au format texte a part et je regarde ca
merci te ton aide mais entre temps j'ai régler mon problème mais j'ai un nouveau problème car une fois le programme lancé l'image ne s'adapte pas au cadre image dans mon userform
voici code
Private Sub CommandButton1_Click()
Label2 = Time
Label3 = Range("C9").Value & " °C"
Label4 = Range("B9").Value & "HPa"
Label5 = Range("E9").Value & " % "
If Range("C9").Value < 15 Then
Image1.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\thermometre froid.jpg")
Else
Image1.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\thermometre chaud.jpg")
End If
If Range("B9").Value < 1001 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\thunderstorm.bmp")
End If
If Range("B9").Value > 1000 And Range("B9").Value < 1015 And Range("E9").Value < 70 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\cloudy.bmp")
End If
If Range("B9").Value > 1000 And Range("B9").Value < 1015 And Range("E9").Value > 70 And Range("C9") > 2 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\rain.bmp")
End If
If Range("B9").Value > 1000 And Range("B9").Value < 1015 And Range("E9").Value > 70 And Range("C9") < 2 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\snow.bmp")
End If
If Range("B9").Value > 1014 And Range("E9").Value > 70 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\partly_cloudy.bmp")
End If
If Range("B9").Value > 1014 And Range("E9").Value < 70 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\sunny.bmp")
End If
End Sub
voici code
Private Sub CommandButton1_Click()
Label2 = Time
Label3 = Range("C9").Value & " °C"
Label4 = Range("B9").Value & "HPa"
Label5 = Range("E9").Value & " % "
If Range("C9").Value < 15 Then
Image1.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\thermometre froid.jpg")
Else
Image1.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\thermometre chaud.jpg")
End If
If Range("B9").Value < 1001 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\thunderstorm.bmp")
End If
If Range("B9").Value > 1000 And Range("B9").Value < 1015 And Range("E9").Value < 70 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\cloudy.bmp")
End If
If Range("B9").Value > 1000 And Range("B9").Value < 1015 And Range("E9").Value > 70 And Range("C9") > 2 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\rain.bmp")
End If
If Range("B9").Value > 1000 And Range("B9").Value < 1015 And Range("E9").Value > 70 And Range("C9") < 2 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\snow.bmp")
End If
If Range("B9").Value > 1014 And Range("E9").Value > 70 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\partly_cloudy.bmp")
End If
If Range("B9").Value > 1014 And Range("E9").Value < 70 Then
Image2.Picture = LoadPicture("C:\Users\utilisateur\Pictures\station meteo\station météo\sunny.bmp")
End If
End Sub
juju06340
Messages postés
1
Date d'inscription
mercredi 3 mars 2010
Statut
Membre
Dernière intervention
4 mars 2010
4 mars 2010 à 19:31
4 mars 2010 à 19:31
merci
