Afficher un message en fonction d'un valeur
Résolu
lilou86
-
lilou86 -
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
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
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
-
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
-
