Discussion :

[lilou86]

Bonjour,

Je viens de me lancer dans la programmation VBA sur Excel 2007,

Mon programme est composé de plusieurs USERFORM qui me donnent des valeurs numériques en F,H,I (des lignes 11 à 100).
Mes valeurs arrivent 4 par 4 dans mes différentes colonnes (1 choix me donne 4 valeurs pour les colonnes F,H,I)

j'ai reussi à enregistrer une macro me permettant de faire le produit de ces 3 colonnes en J (nommée résultat) mais
j'aimerais pouvoir attribuer des messages dans la colonne d'à côté (K) pour chaque valeur calculée:
-si résultat < 30 message :"message1"
-si résultat >= 30 et résultat <50 message:"message2"
-si résultat >=50 message:"message3"
pour chacune des 4 lignes

je n'arrive pas à programmer ca. Les problèmes rencontrés :
-un seul message dans la première ligne
-4 messages indifférents à la valeur résultat

pouvez-vous me proposer une solution s'il vous plait ?

merci d'avance

[fring]

Bonjour,

Une solution possible serait d'utiliser Select Case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select Case Cells(1, 10)
Case Is < 30
Cells(1, 11) = "message 1"
Case 30 To 49
Cells(1, 11) = "message 2"
Case Else
Cells(1, 11) = "message 3"
End Select

A intégrer dans ton code ou éventuellement dans une boucle pour parcourir toutes les cellules

[lilou86]

Merci beaucoup d'avoir fait aussi vite,

je crois avoir compris ta solution et l'avoir adapté correctement à ma macro

merci encore à toi

@+

ps : juste ca veut dire quoi "Is" dans la ligne "Case Is < 30"

[lilou86]

desolée,

j'ai modifié mon message! lol

merci beaucoup pour ton aide rapide

[fring]

Case Is < 30 --> est inférieur à 30

[lilou86]

merci

bonne journee