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
A voir également:
- Afficher un message en fonction d'un valeur
- Fonction si et - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
- Comment lire un message supprimé sur whatsapp - Guide
- Message absence thunderbird - Guide
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
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")
@+
bonne journee