Afficher un message en fonction d'un valeur

Résolu/Fermé
Signaler
-
 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 indiférents à la valeur résultat

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

merci d'avance

1 réponse

Messages postés
334
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
15 novembre 2012
93
Bonjour,
tu peux poster ton macro ici?

@+
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

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
Messages postés
334
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
15 novembre 2012
93 > lilou86
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")
@+
>
Messages postés
334
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
15 novembre 2012

merci beaucoup

bonne journee