Voila, un SELECT CASE bien simple:
For x = 0 To 6
Select Case JT
Case JT = "M", "S", "N"
ActiveCell.Offset(0, 1).Value = CDbl(8.25)
...
Voila, un SELECT CASE bien simple:
For x = 0 To 6
Select Case JT
Case JT = "M", "S", "N"
ActiveCell.Offset(0, 1).Value = CDbl(8.25)
...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.