Afficher un msgbox quand la valeur de la cellule est atteinte
wiillow2013
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
wiillow2013 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
wiillow2013 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
me revoilà avec une autre question.
je créer une application avec excel. je voudrai savoir comment faire pour que quand la valeur de ma cellule est atteinte une msgbox s'affiche.
exemple:
private sub Val()
if range("A3") =8 then
msgbox"la valeur de la cellule est atteinte"
end if
end sub
merci d'avance
me revoilà avec une autre question.
je créer une application avec excel. je voudrai savoir comment faire pour que quand la valeur de ma cellule est atteinte une msgbox s'affiche.
exemple:
private sub Val()
if range("A3") =8 then
msgbox"la valeur de la cellule est atteinte"
end if
end sub
merci d'avance
A voir également:
- Afficher un msgbox quand la valeur de la cellule est atteinte
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? - Forum Excel
- La valeur relative de 9 dans 295 700 est - Forum Excel
- Verrouiller cellule excel sans verrouiller la feuille - Guide
2 réponses
Bonjour,
En VBA, il y a la programmation des évènements.
Voila un lien pour l'explication :
https://silkyroad.developpez.com/VBA/EvenementsFeuille/
Ton code est ok, mais il doit être placé dans l'évènement change de la worksheet, et il faut y rajouter une condition pour valider que le "change" est pour la cellule A3
En VBA, il y a la programmation des évènements.
Voila un lien pour l'explication :
https://silkyroad.developpez.com/VBA/EvenementsFeuille/
Ton code est ok, mais il doit être placé dans l'évènement change de la worksheet, et il faut y rajouter une condition pour valider que le "change" est pour la cellule A3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 3 Then
If Target.Value = 8 Then
MsgBox "la valeur de la cellule est atteinte"
End If
End If
End Sub
Bonjour,
désoler pour le retard j'avait un soucis avec mes équipement informatique.
merci pour l'aide sa ma vraiment aider, mais je une autre question.
la question est la suivante:
je fait une application sous excel qui cumul les jours absence d'une personne
explication:
je voudrais faire une macro qui faire en sorte que le cumule commence au premier jour de son absences au dernier jours de son jour d'absence le plus élevé.
si le premier jour de l'absence est le 27 juillet 2014 et le dernier jour d'absence le plus élevé le 27 juillet 2015, le calcul du cumul ce fait sur 12 mois.
donc le calcul doit se faire de de la manière suivante:
cumul = absence du dernier jour + absences des autres mois
désoler pour le retard j'avait un soucis avec mes équipement informatique.
merci pour l'aide sa ma vraiment aider, mais je une autre question.
la question est la suivante:
je fait une application sous excel qui cumul les jours absence d'une personne
explication:
je voudrais faire une macro qui faire en sorte que le cumule commence au premier jour de son absences au dernier jours de son jour d'absence le plus élevé.
si le premier jour de l'absence est le 27 juillet 2014 et le dernier jour d'absence le plus élevé le 27 juillet 2015, le calcul du cumul ce fait sur 12 mois.
donc le calcul doit se faire de de la manière suivante:
cumul = absence du dernier jour + absences des autres mois
Dans cette éventualité, il faudrait mettre If Target.Value >= 8 Then