Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel intervalles

intervalles

5 réponses
Avatar
thiery
Pour un collègue mais je n'y connait rien
Bonjour à tous et toutes je souhaiterai mettre une donnée ( kilométrage )
dans la cellule A1 puis dans la cellule A2 je rentre un autre kilométrage
et si le chiffre est égal ou supérieur à 10 000 une message box apparait

merci d'avance

--
Amicalement
thiery
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Hervé
Bonsoir Thiery,
Peut être ceci ?
A mettre dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" And Target.Value > 10000 Then
MsgBox "Supérieur à 10000 kms !"
End If
End Sub

Hervé.
"thiery" a écrit dans le message de news:
43a2fc27$0$20178$
Pour un collègue mais je n'y connait rien
Bonjour à tous et toutes je souhaiterai mettre une donnée ( kilométrage )
dans la cellule A1 puis dans la cellule A2 je rentre un autre kilométrage
et si le chiffre est égal ou supérieur à 10 000 une message box apparait

merci d'avance

--
Amicalement
thiery



Avatar
Daniel
Bonsoir.
Le code suivant se déclenche lorsque tu entrres quelque chose dans les
cellules A1 et A2. Si le total A1+A2 est > 10 000, alors msgbox
A mettre dans la feuille (clic droit sur l'onglet "visualiser le code") :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
If [A1] + [A2] > 10000 Then MsgBox "Plus de 10 000 km"
End Sub
Cordialement.
Daniel
"thiery" a écrit dans le message de news:
43a2fc27$0$20178$
Pour un collègue mais je n'y connait rien
Bonjour à tous et toutes je souhaiterai mettre une donnée ( kilométrage )
dans la cellule A1 puis dans la cellule A2 je rentre un autre kilométrage
et si le chiffre est égal ou supérieur à 10 000 une message box apparait

merci d'avance

--
Amicalement
thiery



Avatar
thiery
"Daniel" a écrit dans le message de news:

Bonsoir.
Le code suivant se déclenche lorsque tu entrres quelque chose dans les
cellules A1 et A2. Si le total A1+A2 est > 10 000, alors msgbox
A mettre dans la feuille (clic droit sur l'onglet "visualiser le code") :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
If [A1] + [A2] > 10000 Then MsgBox "Plus de 10 000 km"
End Sub
Cordialement.
Daniel
"thiery" a écrit dans le message de news:
43a2fc27$0$20178$
Pour un collègue mais je n'y connait rien
Bonjour à tous et toutes je souhaiterai mettre une donnée (
kilométrage ) dans la cellule A1 puis dans la cellule A2 je rentre un
autre kilométrage et si le chiffre est égal ou supérieur à 10 000 une
message box apparait

merci d'avance

--
Amicalement
thiery

je vais tester merci à vous deux et bon week end


--
Amicalement
thiery


Avatar
thiery
"Daniel" a écrit dans le message de news:

Bonsoir.
Le code suivant se déclenche lorsque tu entrres quelque chose dans les
cellules A1 et A2. Si le total A1+A2 est > 10 000, alors msgbox
A mettre dans la feuille (clic droit sur l'onglet "visualiser le code") :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
If [A1] + [A2] > 10000 Then MsgBox "Plus de 10 000 km"
End Sub
Cordialement.
Daniel


Je vais tester merci à vous deux et bon week end
--
Amicalement
thiery

Avatar
thiery
thiery wrote:
"Daniel" a écrit dans le message de news:

Bonsoir.
Le code suivant se déclenche lorsque tu entrres quelque chose dans
les cellules A1 et A2. Si le total A1+A2 est > 10 000, alors msgbox
A mettre dans la feuille (clic droit sur l'onglet "visualiser le
code") : Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
If [A1] + [A2] > 10000 Then MsgBox "Plus de 10 000 km"
End Sub
Cordialement.
Daniel


Bien évidemment ça fonctionne pour les deux méthodes , vous êtes géniaux par

contre maintenant si je veux que le calcul se fasse entre A2 et A3 , puis A3
et A4 etc........

--
Bon week end à tous
Amicalement
thiery