Conditions If Imnriquée

Bonjour à Tous.

Voila j'ai un programme en VBA avec 3 « If --- Then ....Else « imbriqués.

J'ai besoin de faire le même programme avec 12 Imbrications.

Je sais que c’est presque impossible.

Alors je vous demande comment fonctionne l'instruction "Case"

Case1.......case2 ou cas janvier case février 12 fois pour les douze mois de l’année.

Merci de bien vouloir m'aider.

Bonjour,

Ce code est une simple explication de "Select Case". Il faut l'adapter à ton cas.

Sub SelectCase()
  mois = Month(Date)
  Select Case (mois)
    Case 1: MsgBox "janvier"
    Case 2: MsgBox "février"
    Case 3: MsgBox "mars"
    Case 4: MsgBox "avril"
    Case 5: MsgBox "mai"
    Case 6: MsgBox "juin"
    Case 7: MsgBox "janvier"
    Case 8: MsgBox "février"
    Case 9: MsgBox "mars"
    Case 10: MsgBox "avril"
    Case 11: MsgBox "mai"
    Case 12: MsgBox "juin"
  End Select
End Sub

Je te remercie pour cet exemple de "Case" pour les 12 mois de l'année.

J'aimerai aller un peu plus loin.

Pour chaque mois j'ai un tas de calculs à faire à l'intérieur, par exemple pour le mois d’Avril :

Style = vbYesNo + vbDefaultButton2

msg = " MOIS D' AVRIL 2009"

Réponse = MsgBox(msg, Style, Title)

If Réponse = vbYes Then

Range("c13").Value = 2008

Range("H14").Value = 3

Range("I14").Value = 0

Range("D13") = 2009

Range("D14").Select

ActiveCell.FormulaR1C1 = "=RC[-1]"

Range("D15").Select

ActiveCell.FormulaR1C1 = "=RC[-1]"

Range("D16").Select

pour le Mois de Mars autant mes differents.

peux-tu m'aider à les inclure dans les cas 1 ou case 2..............Etc

Merci d'avance

Albert

Dit novicevba45

Re,

remplace alors ce code suivant dans mon exemple :

Case 4: MsgBox "avril" 

par tout ce qui est à faire pour le mois d'avril.

Case 4:
Style = vbYesNo + vbDefaultButton2 
msg = " MOIS D' AVRIL 2009" 
Réponse = MsgBox(msg, Style, Title) 
If Réponse = vbYes Then 
Range("c13").Value = 2008 
Range("H14").Value = 3 
Range("I14").Value = 0 
Range("D13") = 2009 
Range("D14").Select 
ActiveCell.FormulaR1C1 = "=RC[-1]" 
Range("D15").Select 
ActiveCell.FormulaR1C1 = "=RC[-1]" 
Range("D16").Select 

C'est toujours le même principe pour les autres mois.

Bonsoir et encore merci pour ce que tu m’as déjà envoyé.

Je m’excuse d’insister, mais je ne connais pas la syntaxe de l’instruction »Case »

J’ai le message d’erreur « Case sans Select Case ».

Autant je suis à l’aise dans les if……………..then……else……end if

For ………next……..

Etc.…….

Autant je ne sais pas comment délimiter l’instruction « case »

Peux-tu me donner un exemple tout simple de case de 1 à 12 avec les mois de l’année et mettre quelque chose à l’intérieur de manière que je comprenne comment ça fonctionne.

Je te remercie par avance

Albert

Dit novicevba45

Re,

Il faut que tu regardes ma première réponse dans ce cas là. Le bloc commence par Select Case (variable) et termine par End Select.

Bonsoir

OK ! ! ! merci pour ta réponse

je vais essayer

je te tiens au courant

Albert

dit novicevba45