Voici une macro en VB que j'ai besoin de calcul=E9 dans une colonne et ce =
=E0 chaque ligne. Avec cette m=E9thode je vois =E0 l'=E9cran le r=E9sultat =
et je suis oblig=E9e de l'inscrire moi-m=EAme dans la bonne cellule.
Question : Comment puis-je faire pour ins=E9rer automatiquement le =
r=E9sultat du calcul soit positif ou n=E9gatif selon la date de vente dans =
la cellule o=F9 mon curseur est positionn=E9 ? Comme d=E9butante, j'ai =
besoin de conseils. Je trouve que les gens r=E9pondent tr=E8s bien =E0 mes =
questions. Je perds moins de temps =E0 rechercher. Je profite de l'exp=E9ri=
ence qui m'est offerte.
Sub taux_rajust=E9()
Dim TheDate As Date 'D=E9clare les variables.
Dim Msg
TheDate =3D InputBox("Entrez la date de vente")
Msg =3D "Mois =E0 compter de la date d'analyse:" & DateDiff("M", =
"2002-07-01", TheDate)
MsgBox Msg
End Sub
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Diso-8859-1"=
>
<META content=3D"MSHTML 6.00.2800.1141" name=3DGENERATOR></HEAD>
<BODY style=3D"MARGIN: 4px 4px 1px; FONT: 10pt Tahoma">
<DIV> </DIV>
<DIV>Bonjour,</DIV>
<DIV> </DIV>
<DIV>Voici une macro en VB que j'ai besoin de calcul=E9 dans une =
colonne et=20
ce =E0 chaque ligne. Avec cette m=E9thode je vois =E0 l'=E9cran le =
r=E9sultat et je suis=20
oblig=E9e de l'inscrire moi-m=EAme dans la bonne cellule.</DIV>
<DIV> </DIV>
<DIV>Question : Comment puis-je faire pour ins=E9rer automatiquement =
le=20
r=E9sultat du calcul soit positif ou n=E9gatif selon la date de vente dans =
la=20
cellule o=F9 mon curseur est positionn=E9 ? Comme d=E9butante, j'ai besoin =
de=20
conseils. Je trouve que les gens r=E9pondent tr=E8s bien =E0 mes questions.=
Je perds=20
moins de temps =E0 rechercher. Je profite de l'exp=E9rience qui m'est =
offerte.</DIV>
<DIV> </DIV>
<DIV>Sub taux_rajust=E9()<BR> Dim TheDate As Date =
'D=E9clare les=20
variables.<BR> Dim Msg<BR> TheDate =
=3D=20
InputBox("Entrez la date de vente")<BR> Msg =3D "Mois =
=E0 compter=20
de la date d'analyse:" & DateDiff("M", "2002-07-01",=20
TheDate)<BR> MsgBox Msg<BR> End =
Sub</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Un gros merci =E0 l'avance.</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Lise Ouellet</DIV>
<DIV>Technicienne en administration<BR> </DIV></BODY></HT=
ML>
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
MiB
Bonjour,
Il y a beaucoup d'inconnu dans votre question !
1.) Sélectionné le feuille en question Sheets("MaFeuille").select
2.) Sélectionner la cellule visé : Range("A1").select
3.) Insérer la valeur Activecell.offset(0,0)= MSG
Ceci est un mode pas à pas, il est possible d'incorprorer toute l'action dans une commande :
Sheets("MaFeuille").Range("A1").value = MSG
Je n'ai pas testé, mais cela devrait vous suffir.
Tjrs ds l'espoir d'aider.
Michel
Michel
-----Message d'origine-----
Bonjour,
Voici une macro en VB que j'ai besoin de calculé dans une colonne et ce à chaque ligne. Avec cette méthode je vois à
l'écran le résultat et je suis obligée de l'inscrire moi- même dans la bonne cellule.
Question : Comment puis-je faire pour insérer automatiquement le résultat du calcul soit positif ou
négatif selon la date de vente dans la cellule où mon curseur est positionné ? Comme débutante, j'ai besoin de conseils. Je trouve que les gens répondent très bien à mes questions. Je perds moins de temps à rechercher. Je profite de l'expérience qui m'est offerte.
Sub taux_rajusté() Dim TheDate As Date 'Déclare les variables. Dim Msg TheDate = InputBox("Entrez la date de vente") Msg = "Mois à compter de la date d'analyse:" & DateDiff("M", "2002-07-01", TheDate)
MsgBox Msg End Sub
Un gros merci à l'avance.
Lise Ouellet Technicienne en administration
Bonjour,
Il y a beaucoup d'inconnu dans votre question !
1.) Sélectionné le feuille en question
Sheets("MaFeuille").select
2.) Sélectionner la cellule visé :
Range("A1").select
3.) Insérer la valeur
Activecell.offset(0,0)= MSG
Ceci est un mode pas à pas, il est possible
d'incorprorer toute l'action dans une commande :
Sheets("MaFeuille").Range("A1").value = MSG
Je n'ai pas testé, mais cela devrait vous suffir.
Tjrs ds l'espoir d'aider.
Michel
Michel
-----Message d'origine-----
Bonjour,
Voici une macro en VB que j'ai besoin de calculé dans une
colonne et ce à chaque ligne. Avec cette méthode je vois à
l'écran le résultat et je suis obligée de l'inscrire moi-
même dans la bonne cellule.
Question : Comment puis-je faire pour insérer
automatiquement le résultat du calcul soit positif ou
négatif selon la date de vente dans la cellule où mon
curseur est positionné ? Comme débutante, j'ai besoin de
conseils. Je trouve que les gens répondent très bien à mes
questions. Je perds moins de temps à rechercher. Je
profite de l'expérience qui m'est offerte.
Sub taux_rajusté()
Dim TheDate As Date 'Déclare les variables.
Dim Msg
TheDate = InputBox("Entrez la date de vente")
Msg = "Mois à compter de la date d'analyse:" &
DateDiff("M", "2002-07-01", TheDate)
1.) Sélectionné le feuille en question Sheets("MaFeuille").select
2.) Sélectionner la cellule visé : Range("A1").select
3.) Insérer la valeur Activecell.offset(0,0)= MSG
Ceci est un mode pas à pas, il est possible d'incorprorer toute l'action dans une commande :
Sheets("MaFeuille").Range("A1").value = MSG
Je n'ai pas testé, mais cela devrait vous suffir.
Tjrs ds l'espoir d'aider.
Michel
Michel
-----Message d'origine-----
Bonjour,
Voici une macro en VB que j'ai besoin de calculé dans une colonne et ce à chaque ligne. Avec cette méthode je vois à
l'écran le résultat et je suis obligée de l'inscrire moi- même dans la bonne cellule.
Question : Comment puis-je faire pour insérer automatiquement le résultat du calcul soit positif ou
négatif selon la date de vente dans la cellule où mon curseur est positionné ? Comme débutante, j'ai besoin de conseils. Je trouve que les gens répondent très bien à mes questions. Je perds moins de temps à rechercher. Je profite de l'expérience qui m'est offerte.
Sub taux_rajusté() Dim TheDate As Date 'Déclare les variables. Dim Msg TheDate = InputBox("Entrez la date de vente") Msg = "Mois à compter de la date d'analyse:" & DateDiff("M", "2002-07-01", TheDate)
MsgBox Msg End Sub
Un gros merci à l'avance.
Lise Ouellet Technicienne en administration
Hervé
Salut Lise, Si j'ai bien compris, tu veux avoir le résultat dans la cellule que tu as au préalable sélectionnée ? si c'est ça alors : ActiveCell = DateDiff("M", "2002-07-01", TheDate) Sinon revient avec de plus amples explications.
Hervé. "Lise Ouellet" a écrit dans le message news:
Bonjour,
Voici une macro en VB que j'ai besoin de calculé dans une colonne et ce à chaque ligne. Avec cette méthode je vois à l'écran le résultat et je suis obligée de l'inscrire moi-même dans la bonne cellule.
Question : Comment puis-je faire pour insérer automatiquement le résultat du calcul soit positif ou négatif selon la date de vente dans la cellule où mon curseur est positionné ? Comme débutante, j'ai besoin de conseils. Je trouve que les gens répondent très bien à mes questions. Je perds moins de temps à rechercher. Je profite de l'expérience qui m'est offerte.
Sub taux_rajusté() Dim TheDate As Date 'Déclare les variables. Dim Msg TheDate = InputBox("Entrez la date de vente") Msg = "Mois à compter de la date d'analyse:" & DateDiff("M", "2002-07-01", TheDate) MsgBox Msg End Sub
Un gros merci à l'avance.
Lise Ouellet Technicienne en administration
Salut Lise,
Si j'ai bien compris, tu veux avoir le résultat dans la cellule que tu as au
préalable sélectionnée ? si c'est ça alors :
ActiveCell = DateDiff("M", "2002-07-01", TheDate)
Sinon revient avec de plus amples explications.
Hervé.
"Lise Ouellet" <ouellise@cscotesud.qc.ca> a écrit dans le message news:
OEUmT9YQDHA.2768@tk2msftngp13.phx.gbl...
Bonjour,
Voici une macro en VB que j'ai besoin de calculé dans une colonne et ce à
chaque ligne. Avec cette méthode je vois à l'écran le résultat et je suis
obligée de l'inscrire moi-même dans la bonne cellule.
Question : Comment puis-je faire pour insérer automatiquement le résultat
du calcul soit positif ou négatif selon la date de vente dans la cellule où
mon curseur est positionné ? Comme débutante, j'ai besoin de conseils. Je
trouve que les gens répondent très bien à mes questions. Je perds moins de
temps à rechercher. Je profite de l'expérience qui m'est offerte.
Sub taux_rajusté()
Dim TheDate As Date 'Déclare les variables.
Dim Msg
TheDate = InputBox("Entrez la date de vente")
Msg = "Mois à compter de la date d'analyse:" & DateDiff("M",
"2002-07-01", TheDate)
MsgBox Msg
End Sub
Salut Lise, Si j'ai bien compris, tu veux avoir le résultat dans la cellule que tu as au préalable sélectionnée ? si c'est ça alors : ActiveCell = DateDiff("M", "2002-07-01", TheDate) Sinon revient avec de plus amples explications.
Hervé. "Lise Ouellet" a écrit dans le message news:
Bonjour,
Voici une macro en VB que j'ai besoin de calculé dans une colonne et ce à chaque ligne. Avec cette méthode je vois à l'écran le résultat et je suis obligée de l'inscrire moi-même dans la bonne cellule.
Question : Comment puis-je faire pour insérer automatiquement le résultat du calcul soit positif ou négatif selon la date de vente dans la cellule où mon curseur est positionné ? Comme débutante, j'ai besoin de conseils. Je trouve que les gens répondent très bien à mes questions. Je perds moins de temps à rechercher. Je profite de l'expérience qui m'est offerte.
Sub taux_rajusté() Dim TheDate As Date 'Déclare les variables. Dim Msg TheDate = InputBox("Entrez la date de vente") Msg = "Mois à compter de la date d'analyse:" & DateDiff("M", "2002-07-01", TheDate) MsgBox Msg End Sub
Un gros merci à l'avance.
Lise Ouellet Technicienne en administration
AV
".......dans la cellule où mon curseur est positionné ...."
Il me semble que ça pourrait se résumer à ça :
Sub taux_rajusté2() ActiveCell = DateDiff("M", "2002-07-01", CDate(InputBox("Entrez la date de vente"))) End Sub
AV
".......dans la cellule où mon curseur est positionné ...."
Il me semble que ça pourrait se résumer à ça :
Sub taux_rajusté2()
ActiveCell = DateDiff("M", "2002-07-01", CDate(InputBox("Entrez la date de
vente")))
End Sub
