Problème select case Résolu/Fermé

Question

Bonjour, J'ai un souci j'ai cette ligne de code en vba sous excel mais je n'arrive pas à faire afficher la valeur de S qui reste a 0 pourtant R est initialisé en fonction du case, mais je pense qu'il ne trouve pas R pour faire donner la valeur finale de S qui reste a 0 mais je ne trouve pas le problème pouvez vous m'aidez s'il vous plait ? : Private Sub CommandButton1_Click() Dim R As Single Dim H As Integer Dim S As Integer H = Heure.Value Cat = Categorie.Value If H < 39 Then MsgBox "Erreur L'heure est basé au minimum à 39 heures" End If Select Case Cat Case SQ: R = 1000 Case OQ: R = 1300 Case TS: R = 1600 Case AM: R = 2000 Case I: R = 2400 End Select If H > 43 Then S = (39 * R) + (3 * R * 1.25) + ((H - 42) * R * 1.5) Else If H > 39 And H < 43 Then S = (39 * R) + (3 * R * 1.25) Else S = H * 39 End If End If msg = "Votre Salaire est de " & S & " Vous avez fait " & H & " heures de travail au poste de " & Cat Salaire.Caption = msg End Sub Configuration: Windows 7 / Chrome 37.0.2062.120

ccm81 · Answer

Bonjour

1. Qui est Categorie dans Cat = Categorie.Value 
si c'est le nom d'une cellule c'est Range("Categorie").Value
2. Qui est OQ dans Case OQ: 
si c'est une des valeurs de Cat , c'est Case "OQ": 

Si ça ne fonctionne pas, peux tu envoyer la partie concernée de ton fichier au format excel 2003 sur cjoint.com et joindre le lien obtenu à ton prochain message

Cdlmn

Ariitea1 · Answer

Bonjour,

1. Categorie est une liste déroulante (je l'ai initialisé moi même avec addItten. " ")

2. OQ est une des valeur de cette liste déroulante.

3. Je peux t'envoyer le fichier par mail ? car je ne connais pas Cjoin.com et les manipulation à faire.

PS : c'est mon tout premier poste :/

Ariitea1 · Answer

Non enfaîte mon problème n'est pas dans le Select case mais dans mes IF mais je ne trouve pas pourquoi.

Ariitea1 · Answer

Il m'indique un dépassement de capacités dans le S = (39 * R) + (3 * R * 1.25) + ((H - 42) * R * 1.5)

Ariitea1 · Answer

Solution : 

1. Les "" :

Select Case Cat 
Case "SQ": 
R = 1000

Case "OQ": 
R = 1300

Case "TS": 
R = 1600

Case "AM": 
R = 2000

Case "I": 
R = 2400 
End Select 

2: Changer R et S en Long pour évité le dépassement de capacités et le programme marche.

Merci pour l'aide ;)

Problème select case

5 réponses

Discussions similaires