Bonsoir,
depuis un USF dans lequel j'inscrit un chiffre dans un textbox, par ex 3
dans la cellule AP208 DE XL, je demande à XL dans la cellule AP209 de me
recalculer le résultat, et si ce résultat est > à la valeur de 51 je voudrai
qu'il m'ouvre un autre USF dans lequel j'aurai marqué "erreur" .
le pb est que je ne sais pas faire ce genre de renvoi, pouvez vous me donner
un petit coup de main ?
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ange Ounis
Pourquoi un UserForm ?
Si tu inscris la valeur du textbox en AP208 en cliquant sur un bouton, le code peut vérifier si AP209 (où je suppose qu'il y a une formule) est devenu plus grand que 51 et envoyer cette info dans une simple MsgBox :
Private Sub CommandButton1_Click() Me.Hide Range("A28").Value = TextBox1.Value If Range("A29").Value > 51 Then MsgBox "Erreur" Unload Me End Sub
---------- Ange Ounis ----------
Bonsoir, depuis un USF dans lequel j'inscrit un chiffre dans un textbox, par ex 3 dans la cellule AP208 DE XL, je demande à XL dans la cellule AP209 de me recalculer le résultat, et si ce résultat est > à la valeur de 51 je voudrai qu'il m'ouvre un autre USF dans lequel j'aurai marqué "erreur" . le pb est que je ne sais pas faire ce genre de renvoi, pouvez vous me donner un petit coup de main ? Merci
Pourquoi un UserForm ?
Si tu inscris la valeur du textbox en AP208 en cliquant sur un bouton, le code
peut vérifier si AP209 (où je suppose qu'il y a une formule) est devenu plus
grand que 51 et envoyer cette info dans une simple MsgBox :
Private Sub CommandButton1_Click()
Me.Hide
Range("A28").Value = TextBox1.Value
If Range("A29").Value > 51 Then MsgBox "Erreur"
Unload Me
End Sub
----------
Ange Ounis
----------
Bonsoir,
depuis un USF dans lequel j'inscrit un chiffre dans un textbox, par ex 3
dans la cellule AP208 DE XL, je demande à XL dans la cellule AP209 de me
recalculer le résultat, et si ce résultat est > à la valeur de 51 je voudrai
qu'il m'ouvre un autre USF dans lequel j'aurai marqué "erreur" .
le pb est que je ne sais pas faire ce genre de renvoi, pouvez vous me donner
un petit coup de main ?
Merci
Si tu inscris la valeur du textbox en AP208 en cliquant sur un bouton, le code peut vérifier si AP209 (où je suppose qu'il y a une formule) est devenu plus grand que 51 et envoyer cette info dans une simple MsgBox :
Private Sub CommandButton1_Click() Me.Hide Range("A28").Value = TextBox1.Value If Range("A29").Value > 51 Then MsgBox "Erreur" Unload Me End Sub
---------- Ange Ounis ----------
Bonsoir, depuis un USF dans lequel j'inscrit un chiffre dans un textbox, par ex 3 dans la cellule AP208 DE XL, je demande à XL dans la cellule AP209 de me recalculer le résultat, et si ce résultat est > à la valeur de 51 je voudrai qu'il m'ouvre un autre USF dans lequel j'aurai marqué "erreur" . le pb est que je ne sais pas faire ce genre de renvoi, pouvez vous me donner un petit coup de main ? Merci
Chokes
Merci Ange j'ai appliqué une partie de ta solution qui fonctionne tres bien. En attendant j'étais passé par : Sheets("Générique").Select If [AP209].Value > 51 Then MenuAvert3Tireurs.Show
qui m'ouvrait un autre USF et qui fonctionne aussi mais je préfère ta solution
Bonsoir
Merci Ange
j'ai appliqué une partie de ta solution qui fonctionne tres bien.
En attendant j'étais passé par :
Sheets("Générique").Select
If [AP209].Value > 51 Then
MenuAvert3Tireurs.Show
qui m'ouvrait un autre USF et qui fonctionne aussi mais je préfère ta solution
Merci Ange j'ai appliqué une partie de ta solution qui fonctionne tres bien. En attendant j'étais passé par : Sheets("Générique").Select If [AP209].Value > 51 Then MenuAvert3Tireurs.Show
qui m'ouvrait un autre USF et qui fonctionne aussi mais je préfère ta solution
