FORUM MP | Visual basic : if et elseif

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

if et elseif
	Forum : VISUAL BASIC Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ VISUAL BASIC
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM VISUAL BASIC
	Page précedente	Page suivante

ocean
Nouveau membre

Inscrit : 21/05/2008
Messages : 20

#153309 Posté le 21/05/08 à 11:34

Bonjour à tous,
je n'ai jamais fait de programmation avantaujourd'hui et je ne connais rien à l'informatique. j'essaye de faire un programme dans excel avec visual basic pour excel. Désolé je ne sais pas si c'est vraiment du visual basic ou du script visual basic. Je ne sais pas non plus comment on connais la version.
Bref,
j'ai essayé d'écrire un petit programme pour commencer mais l'ordi ne veut pas l'exécuter. Il bloc sur ma condition elseif. je ne comprend pas ce qui cloche.

Dim temperature As Long
Sub fonction()
temperature = Sheets("cigné").Cells(1, 2).Value
If temperature > 0 And temperature <= 5 Then temperature = 1
ElseIf temperature > 5 And temperature <= 10 Then temperature = 2
ElseIf temperature > 10 And temperature <= 15 Then temperature = 3
ElseIf temperature > 15 And temperature <= 20 Then temperature = 4
Else: temperature = 5
End Sub
quelqu'un pourrait il m'aider?

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

Visiteur MP
Membre du club

Inscrit :
Messages : 1250

#153319 Posté le 21/05/08 à 18:16

Bonjour

La programmation pour excel se fait avec Visual Basic for Applications
VBA
la programmation est editable par le VBE
le morceau de code ne fonctionne pas car il y a quelques erreurs

voir la rectif ICI

cette procédure peut être également écrite comme ceci

Sub fonctionrgi() Select Case Sheets("cigné").Cells(1, 2).Value Case 0 To 5 tmp = 1 Case 6 To 10 tmp = 2 Case 11 To 15 tmp = 3 Case 16 To 20 tmp = 4 Case Is > 20 tmp = 5 End Select MsgBox " la vérification de la température est : " & tmp End Sub

RGI

HAUT DE PAGE

Visiteur MP
Membre du club

Inscrit :
Messages : 1250

#153407 Posté le 23/05/08 à 18:55

Salut Ocean,

Pour : ::::::En apparté:

j'ai l'impression que je n'avais pas déconnecter mon compte. Alors si c'est l'absence de merci qui t'inquiétait sâches que je remercie toujours.

ne t'inquiéte pas pour ça c'est dans ma signature, il y en a tellement qui ne disent rien

Pour : le programme

Dim temperature As Long
Sub fonction()
temperature = Sheets("cigné").Cells(1, 2).Value
If temperature > 0 And temperature <= 5 Then temperature = 1
If temperature > 5 And temperature <= 10 Then temperature = 2
If temperature > 10 And temperature <= 15 Then temperature = 3
If temperature > 15 And temperature <= 20 Then temperature = 4
If temperature > 20 Then temperature = 5
MsgBox " la vérification de la température est : " & temperature
End Sub

voilà la modif
Cdlt
RGI

HAUT DE PAGE

ocean
Nouveau membre

Inscrit : 21/05/2008
Messages : 20

#153436 Posté le 24/05/08 à 12:47

salut RGI
merci demel'avoir renvoyé à plus

HAUT DE PAGE


	Page précédente	Page suivante
FORUM VISUAL BASIC

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.