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 petit prob

petit prob

8 réponses
Avatar
pierre
bonjour à tous(tes)
j'ai pour la 1° fois écrit une sub seul
la sub B fonctionne mais pas la A:?
et de plus je voudrai que T ne soit pas compris entre 5 et
-50
pour moi cela est juste un exercice pour apprendre et faire travailler ma
vieille petite tête
merci de vos réponses


Sub A()
Dim T As Integer
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub

Sub B()
Dim V As Integer
Range("b1").Select
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub


begin 666 pierre.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..CMP:65R<F4-"D9..G!I97)R
M90T*14U!24P[4%)%1CM)3E1%4DY%5#HB>'!I97)R934R>") =&ES8V%L:2YF
D<@T*4D56.C(P,#0P,3(U5# Y,34S.%H-"D5.1#I60T%21 T*
`
end
Signaler un problème avec ce contenu

8 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
Pierre CFI [mvp]
bonjour
oui... T et V sont toujours = à 0, puisque tu ne leur donne aucune valeur
ce srait pas plutot du style
T = worksheets("feuil1").Range("a1")
etc.....
mais attention, là il faut que la valeur de a1 soit un nombre

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:
bonjour à tous(tes)
j'ai pour la 1° fois écrit une sub seul
la sub B fonctionne mais pas la A:?
et de plus je voudrai que T ne soit pas compris entre 5 et
-50
pour moi cela est juste un exercice pour apprendre et faire travailler ma
vieille petite tête
merci de vos réponses


Sub A()
Dim T As Integer
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub

Sub B()
Dim V As Integer
Range("b1").Select
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub





Avatar
Jean-François Aubert
oui... T et V sont toujours = à 0, puisque tu ne leur donne aucune valeur


je dirais aussi: la TV est souvent 0 et sans valeur ;-)))))

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
oui... T et V sont toujours = à 0, puisque tu ne leur donne aucune valeur
ce srait pas plutot du style
T = worksheets("feuil1").Range("a1")
etc.....
mais attention, là il faut que la valeur de a1 soit un nombre

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:


bonjour à tous(tes)
j'ai pour la 1° fois écrit une sub seul
la sub B fonctionne mais pas la A:?
et de plus je voudrai que T ne soit pas compris entre 5 et
-50
pour moi cela est juste un exercice pour apprendre et faire travailler ma
vieille petite tête
merci de vos réponses


Sub A()
Dim T As Integer
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub

Sub B()
Dim V As Integer
Range("b1").Select
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub









Avatar
Pierre CFI [mvp]
euh 0, 0 oui mais on paie la taxe, de là à dire qu'on paie pour rien.... :o))

--
Pierre CFI
"Jean-François Aubert" <à a écrit dans le message de news: #
oui... T et V sont toujours = à 0, puisque tu ne leur donne aucune valeur


je dirais aussi: la TV est souvent 0 et sans valeur ;-)))))

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
oui... T et V sont toujours = à 0, puisque tu ne leur donne aucune valeur
ce srait pas plutot du style
T = worksheets("feuil1").Range("a1")
etc.....
mais attention, là il faut que la valeur de a1 soit un nombre

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:


bonjour à tous(tes)
j'ai pour la 1° fois écrit une sub seul
la sub B fonctionne mais pas la A:?
et de plus je voudrai que T ne soit pas compris entre 5 et
-50
pour moi cela est juste un exercice pour apprendre et faire travailler ma
vieille petite tête
merci de vos réponses


Sub A()
Dim T As Integer
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub

Sub B()
Dim V As Integer
Range("b1").Select
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub













Avatar
Jacquouille
Bonjour Pierre
Tout ce que les petits copains ont dit, et ben, c'est vrai.
Tu dois attribuer une valeur à T.
Ou, alors tu t'en passes, puisque tu sélectionnes A1.
Essaie ceci,
Sub Machin_Tester_T
If [A1] > 5 then
MsgBox "la valeur doit être plus petite que 5"
End if
end sub
Ceci dit, bravo pour l'exercice. C'est bien de se jetter à l'eau. Mais tu
ne risques pas grand chose car il y a beaucoup de maîtres nageurs ici.
Jacques, nageur de combat, mais en eaux troubles.
--
Jacquouille conseille : http://www.excelabo.net


"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message news:

bonjour à tous(tes)
j'ai pour la 1° fois écrit une sub seul
la sub B fonctionne mais pas la A:?
et de plus je voudrai que T ne soit pas compris entre 5 et
-50
pour moi cela est juste un exercice pour apprendre et faire travailler ma
vieille petite tête
merci de vos réponses


Sub A()
Dim T As Integer
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub

Sub B()
Dim V As Integer
Range("b1").Select
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub





Avatar
pierre
ok et merci à vous mais comment écrire:
si la valeur en a1 n'est pas comprise entre -50 et + 5 alors
msgbox ....
et je ne comprends toujours pas pourquoi la sub b fonctionne et pas la a
merci pour les bouées

"Jacquouille" a écrit dans le message news:
#
Bonjour Pierre
Tout ce que les petits copains ont dit, et ben, c'est vrai.
Tu dois attribuer une valeur à T.
Ou, alors tu t'en passes, puisque tu sélectionnes A1.
Essaie ceci,
Sub Machin_Tester_T
If [A1] > 5 then
MsgBox "la valeur doit être plus petite que 5"
End if
end sub
Ceci dit, bravo pour l'exercice. C'est bien de se jetter à l'eau. Mais
tu

ne risques pas grand chose car il y a beaucoup de maîtres nageurs ici.
Jacques, nageur de combat, mais en eaux troubles.
--
Jacquouille conseille : http://www.excelabo.net


"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message news:

bonjour à tous(tes)
j'ai pour la 1° fois écrit une sub seul
la sub B fonctionne mais pas la A:?
et de plus je voudrai que T ne soit pas compris entre 5 et
-50
pour moi cela est juste un exercice pour apprendre et faire travailler
ma


vieille petite tête
merci de vos réponses


Sub A()
Dim T As Integer
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub

Sub B()
Dim V As Integer
Range("b1").Select
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub









Avatar
Clément Marcotte
Bonjour,

ok et merci à vous mais comment écrire:
si la valeur en a1 n'est pas comprise entre -50 et + 5 alors
msgbox ....


If range("a1").value < -50 or range("a1").value > 5 then
msgbox "Mauvaise valeur"
end if


"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:
et je ne comprends toujours pas pourquoi la sub b fonctionne et pas
la a

merci pour les bouées

"Jacquouille" a écrit dans le
message news:

#
Bonjour Pierre
Tout ce que les petits copains ont dit, et ben, c'est vrai.
Tu dois attribuer une valeur à T.
Ou, alors tu t'en passes, puisque tu sélectionnes A1.
Essaie ceci,
Sub Machin_Tester_T
If [A1] > 5 then
MsgBox "la valeur doit être plus petite que 5"
End if
end sub
Ceci dit, bravo pour l'exercice. C'est bien de se jetter à l'eau.
Mais


tu
ne risques pas grand chose car il y a beaucoup de maîtres nageurs
ici.


Jacques, nageur de combat, mais en eaux troubles.
--
Jacquouille conseille : http://www.excelabo.net


"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message news:

bonjour à tous(tes)
j'ai pour la 1° fois écrit une sub seul
la sub B fonctionne mais pas la A:?
et de plus je voudrai que T ne soit pas compris entre 5 et
-50
pour moi cela est juste un exercice pour apprendre et faire
travailler



ma
vieille petite tête
merci de vos réponses


Sub A()
Dim T As Integer
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub

Sub B()
Dim V As Integer
Range("b1").Select
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub













Avatar
Jean-François Aubert
Salut Pierre,

.....mais comment écrire:
si la valeur en a1 n'est pas comprise entre -50 et + 5 alors msgbox ....


Sub yy()
If Range("A1") < -50 Or Range("A1") > 5 Then
MsgBox "la valeur doit être comprise entre -50 et 5"
Else
MsgBox "la valeur est dans la fourchette"
End If
End Sub

et je ne comprends toujours pas pourquoi la sub b fonctionne et pas la a


La sub B ne fonctionne pas vraiment.
Essaie tes 2 proc, j'ai juste rajouter un msgbox pour voir la valeur de la variable:
Les variables T et V ne sont pas renseignées.
Elles sont déclarées comme Integer, et une variable Integer non renseignée = 0
Avec la proc A, T = 0 donc T n'est pas > 5
Avec la proc B, V=0 donc V est < 5



Sub A()
Dim T As Integer
MsgBox T
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub


Sub B()
Dim V As Integer
Range("b1").Select
MsgBox V
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:
ok et merci à vous mais comment écrire:
si la valeur en a1 n'est pas comprise entre -50 et + 5 alors
msgbox ....
et je ne comprends toujours pas pourquoi la sub b fonctionne et pas la a
merci pour les bouées

"Jacquouille" a écrit dans le message news:
#
Bonjour Pierre
Tout ce que les petits copains ont dit, et ben, c'est vrai.
Tu dois attribuer une valeur à T.
Ou, alors tu t'en passes, puisque tu sélectionnes A1.
Essaie ceci,
Sub Machin_Tester_T
If [A1] > 5 then
MsgBox "la valeur doit être plus petite que 5"
End if
end sub
Ceci dit, bravo pour l'exercice. C'est bien de se jetter à l'eau. Mais
tu

ne risques pas grand chose car il y a beaucoup de maîtres nageurs ici.
Jacques, nageur de combat, mais en eaux troubles.
--
Jacquouille conseille : http://www.excelabo.net


"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message news:

bonjour à tous(tes)
j'ai pour la 1° fois écrit une sub seul
la sub B fonctionne mais pas la A:?
et de plus je voudrai que T ne soit pas compris entre 5 et
-50
pour moi cela est juste un exercice pour apprendre et faire travailler
ma


vieille petite tête
merci de vos réponses


Sub A()
Dim T As Integer
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub

Sub B()
Dim V As Integer
Range("b1").Select
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub













Avatar
pierre
merci à tous vous êtes formidable

"Jean-François Aubert" <à a écrit dans le message
news: #
Salut Pierre,

.....mais comment écrire:
si la valeur en a1 n'est pas comprise entre -50 et + 5 alors msgbox ....


Sub yy()
If Range("A1") < -50 Or Range("A1") > 5 Then
MsgBox "la valeur doit être comprise entre -50 et 5"
Else
MsgBox "la valeur est dans la fourchette"
End If
End Sub

et je ne comprends toujours pas pourquoi la sub b fonctionne et pas la a


La sub B ne fonctionne pas vraiment.
Essaie tes 2 proc, j'ai juste rajouter un msgbox pour voir la valeur de la
variable:

Les variables T et V ne sont pas renseignées.
Elles sont déclarées comme Integer, et une variable Integer non renseignée
= 0

Avec la proc A, T = 0 donc T n'est pas > 5
Avec la proc B, V=0 donc V est < 5



Sub A()
Dim T As Integer
MsgBox T
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub


Sub B()
Dim V As Integer
Range("b1").Select
MsgBox V
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:
ok et merci à vous mais comment écrire:
si la valeur en a1 n'est pas comprise entre -50 et + 5 alors
msgbox ....
et je ne comprends toujours pas pourquoi la sub b fonctionne et pas la a
merci pour les bouées

"Jacquouille" a écrit dans le message
news:


#
Bonjour Pierre
Tout ce que les petits copains ont dit, et ben, c'est vrai.
Tu dois attribuer une valeur à T.
Ou, alors tu t'en passes, puisque tu sélectionnes A1.
Essaie ceci,
Sub Machin_Tester_T
If [A1] > 5 then
MsgBox "la valeur doit être plus petite que 5"
End if
end sub
Ceci dit, bravo pour l'exercice. C'est bien de se jetter à l'eau.
Mais



tu
ne risques pas grand chose car il y a beaucoup de maîtres nageurs ici.
Jacques, nageur de combat, mais en eaux troubles.
--
Jacquouille conseille : http://www.excelabo.net


"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message news:

bonjour à tous(tes)
j'ai pour la 1° fois écrit une sub seul
la sub B fonctionne mais pas la A:?
et de plus je voudrai que T ne soit pas compris entre 5 et
-50
pour moi cela est juste un exercice pour apprendre et faire
travailler




ma
vieille petite tête
merci de vos réponses


Sub A()
Dim T As Integer
Range("a1").Select
If T > 5 Then
MsgBox "la valeur doit <...."
End If
End Sub

Sub B()
Dim V As Integer
Range("b1").Select
If V < 5 Then
MsgBox "La valeur doit >...."
End If
End Sub