Afficher un message en fonction d'un valeur

Résolu/Fermé
lilou86 - 22 avril 2008 à 11:27
 lilou86 - 22 avril 2008 à 13:01
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 indiférents à la valeur résultat

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

merci d'avance

1 réponse

kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 92
22 avril 2008 à 11:35
Bonjour,
tu peux poster ton macro ici?

@+
1
tu veux que je poste mon excel ?

sinon la partie avec mon problème ca donne ca :

Private Sub Workbook_Open()
UserForm4.Show
UserForm1.Show
UserForm2.Show
UserForm3.Show

'calcul résultat
Range("J11").Select
ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-2]*RC[-1]"
Range("J11").Select
Selection.AutoFill Destination:=Range("J11:J100"), Type:=xlFillDefault
Range("J11:J100").Select

'affichage message
en attente

end sub
0
kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 92 > lilou86
22 avril 2008 à 12:26
rebonjour,
tu n'as pas besoin de macro
selectionne la cellule K11 et insère cette formule:

=SI(J11>=50;"message3";SI(J11<30;"message1";"message2"))
colle la formule sa la plage(" k11:K100")
@+
0
lilou86 > kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012
22 avril 2008 à 13:01
merci beaucoup

bonne journee
0