bonjour à tous,
j'ai un problème assez bête en fait,
je compare deux valeurs(deux dates), une qui existe dans ma feuille, et une
autre que je crée dans mon programme. Le problème c'est que mon programme ne
reconnait pas quand elles sont identiques car l'une est entre guillements
(celle que je crée) et l'autre non. Comment puis-je ajouter des guillement
autour de la valeur qui n'en a pas?
extrait de mon programme:
date0 = Workbooks("reporting_V4").Worksheets("baseStatut").Range("C" &
ligne)
If DatePart("m", date0) < 10 Then
date1 = "01/" & "0" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0)
Else
date1 = "01/" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0)
End If
date2 = Workbooks("reporting_V4").Worksheets("portefeuille").Range("A" &
lig)
If date1 = date2 Then
etc....ca coince
merci de prendre de votre temps pour mon souci!
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
Daniel
Bonjour. Pour mettre la date que tu crées au format "date" : date1 = DateSerial(Year(date0), Month(date0), 1) Cordialement. Daniel "Maud" a écrit dans le message de news:
bonjour à tous, j'ai un problème assez bête en fait, je compare deux valeurs(deux dates), une qui existe dans ma feuille, et une autre que je crée dans mon programme. Le problème c'est que mon programme ne reconnait pas quand elles sont identiques car l'une est entre guillements (celle que je crée) et l'autre non. Comment puis-je ajouter des guillement autour de la valeur qui n'en a pas?
extrait de mon programme: date0 = Workbooks("reporting_V4").Worksheets("baseStatut").Range("C" & ligne) If DatePart("m", date0) < 10 Then date1 = "01/" & "0" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0) Else date1 = "01/" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0) End If date2 = Workbooks("reporting_V4").Worksheets("portefeuille").Range("A" & lig) If date1 = date2 Then etc....ca coince merci de prendre de votre temps pour mon souci!
Bonjour.
Pour mettre la date que tu crées au format "date" :
date1 = DateSerial(Year(date0), Month(date0), 1)
Cordialement.
Daniel
"Maud" <Maud@discussions.microsoft.com> a écrit dans le message de news:
730F5F79-A720-4604-A544-60774383FCEB@microsoft.com...
bonjour à tous,
j'ai un problème assez bête en fait,
je compare deux valeurs(deux dates), une qui existe dans ma feuille, et
une
autre que je crée dans mon programme. Le problème c'est que mon programme
ne
reconnait pas quand elles sont identiques car l'une est entre guillements
(celle que je crée) et l'autre non. Comment puis-je ajouter des guillement
autour de la valeur qui n'en a pas?
extrait de mon programme:
date0 = Workbooks("reporting_V4").Worksheets("baseStatut").Range("C" &
ligne)
If DatePart("m", date0) < 10 Then
date1 = "01/" & "0" & DatePart("m", date0) & "/" & DatePart("Yyyy",
date0)
Else
date1 = "01/" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0)
End If
date2 = Workbooks("reporting_V4").Worksheets("portefeuille").Range("A"
&
lig)
If date1 = date2 Then
etc....ca coince
merci de prendre de votre temps pour mon souci!
Bonjour. Pour mettre la date que tu crées au format "date" : date1 = DateSerial(Year(date0), Month(date0), 1) Cordialement. Daniel "Maud" a écrit dans le message de news:
bonjour à tous, j'ai un problème assez bête en fait, je compare deux valeurs(deux dates), une qui existe dans ma feuille, et une autre que je crée dans mon programme. Le problème c'est que mon programme ne reconnait pas quand elles sont identiques car l'une est entre guillements (celle que je crée) et l'autre non. Comment puis-je ajouter des guillement autour de la valeur qui n'en a pas?
extrait de mon programme: date0 = Workbooks("reporting_V4").Worksheets("baseStatut").Range("C" & ligne) If DatePart("m", date0) < 10 Then date1 = "01/" & "0" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0) Else date1 = "01/" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0) End If date2 = Workbooks("reporting_V4").Worksheets("portefeuille").Range("A" & lig) If date1 = date2 Then etc....ca coince merci de prendre de votre temps pour mon souci!
Maud
merci beaucoup, ca marche très bien!
Bonjour. Pour mettre la date que tu crées au format "date" : date1 = DateSerial(Year(date0), Month(date0), 1) Cordialement. Daniel "Maud" a écrit dans le message de news:
bonjour à tous, j'ai un problème assez bête en fait, je compare deux valeurs(deux dates), une qui existe dans ma feuille, et une autre que je crée dans mon programme. Le problème c'est que mon programme ne reconnait pas quand elles sont identiques car l'une est entre guillements (celle que je crée) et l'autre non. Comment puis-je ajouter des guillement autour de la valeur qui n'en a pas?
extrait de mon programme: date0 = Workbooks("reporting_V4").Worksheets("baseStatut").Range("C" & ligne) If DatePart("m", date0) < 10 Then date1 = "01/" & "0" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0) Else date1 = "01/" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0) End If date2 = Workbooks("reporting_V4").Worksheets("portefeuille").Range("A" & lig) If date1 = date2 Then etc....ca coince merci de prendre de votre temps pour mon souci!
merci beaucoup, ca marche très bien!
Bonjour.
Pour mettre la date que tu crées au format "date" :
date1 = DateSerial(Year(date0), Month(date0), 1)
Cordialement.
Daniel
"Maud" <Maud@discussions.microsoft.com> a écrit dans le message de news:
730F5F79-A720-4604-A544-60774383FCEB@microsoft.com...
bonjour à tous,
j'ai un problème assez bête en fait,
je compare deux valeurs(deux dates), une qui existe dans ma feuille, et
une
autre que je crée dans mon programme. Le problème c'est que mon programme
ne
reconnait pas quand elles sont identiques car l'une est entre guillements
(celle que je crée) et l'autre non. Comment puis-je ajouter des guillement
autour de la valeur qui n'en a pas?
extrait de mon programme:
date0 = Workbooks("reporting_V4").Worksheets("baseStatut").Range("C" &
ligne)
If DatePart("m", date0) < 10 Then
date1 = "01/" & "0" & DatePart("m", date0) & "/" & DatePart("Yyyy",
date0)
Else
date1 = "01/" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0)
End If
date2 = Workbooks("reporting_V4").Worksheets("portefeuille").Range("A"
&
lig)
If date1 = date2 Then
etc....ca coince
merci de prendre de votre temps pour mon souci!
Bonjour. Pour mettre la date que tu crées au format "date" : date1 = DateSerial(Year(date0), Month(date0), 1) Cordialement. Daniel "Maud" a écrit dans le message de news:
bonjour à tous, j'ai un problème assez bête en fait, je compare deux valeurs(deux dates), une qui existe dans ma feuille, et une autre que je crée dans mon programme. Le problème c'est que mon programme ne reconnait pas quand elles sont identiques car l'une est entre guillements (celle que je crée) et l'autre non. Comment puis-je ajouter des guillement autour de la valeur qui n'en a pas?
extrait de mon programme: date0 = Workbooks("reporting_V4").Worksheets("baseStatut").Range("C" & ligne) If DatePart("m", date0) < 10 Then date1 = "01/" & "0" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0) Else date1 = "01/" & DatePart("m", date0) & "/" & DatePart("Yyyy", date0) End If date2 = Workbooks("reporting_V4").Worksheets("portefeuille").Range("A" & lig) If date1 = date2 Then etc....ca coince merci de prendre de votre temps pour mon souci!
