saisie une date en jjmmaa et mettre en alpha jj/mm/aaaa
3 réponses
ptck
bonjour
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il
faut mais pour la variable
ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide
ptck
Dim mois As String
Dim ladate As String
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :",
"Saisie", , , , , , 2)
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il faut mais pour la variable ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide ptck
Dim mois As String Dim ladate As String mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2)
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il
faut mais pour la variable
ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide
ptck
Dim mois As String
Dim ladate As String
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :",
"Saisie", , , , , , 2)
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il faut mais pour la variable ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide ptck
Dim mois As String Dim ladate As String mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2)
Ensuite fais un test pour savoir si "ladate" est une date reconnue par Excel tu pourrais même mettre des balises pour délimiter la date la plus ancienne et la plus loin dans le future pour savoir si la date saisie est à l'intérieur de bornes acceptables !
if isdate(Ladate) then
"ptck" a écrit dans le message de groupe de discussion :
bonjour
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il faut mais pour la variable ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide ptck
Dim mois As String Dim ladate As String mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2)
Ensuite fais un test pour savoir si "ladate" est une date reconnue par Excel
tu pourrais même mettre des balises pour délimiter la date la plus
ancienne et la plus loin dans le future pour savoir si la date saisie
est à l'intérieur de bornes acceptables !
if isdate(Ladate) then
"ptck" <nospamptck@Monsitefai.fr> a écrit dans le message de groupe de discussion :
us58NI0eKHA.2596@TK2MSFTNGP04.phx.gbl...
bonjour
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il
faut mais pour la variable
ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide
ptck
Dim mois As String
Dim ladate As String
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :",
"Saisie", , , , , , 2)
Ensuite fais un test pour savoir si "ladate" est une date reconnue par Excel tu pourrais même mettre des balises pour délimiter la date la plus ancienne et la plus loin dans le future pour savoir si la date saisie est à l'intérieur de bornes acceptables !
if isdate(Ladate) then
"ptck" a écrit dans le message de groupe de discussion :
bonjour
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il faut mais pour la variable ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide ptck
Dim mois As String Dim ladate As String mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2)
Ensuite fais un test pour savoir si "ladate" est une date reconnue par Excel tu pourrais même mettre des balises pour délimiter la date la plus ancienne et la plus loin dans le future pour savoir si la date saisie est à l'intérieur de bornes acceptables !
if isdate(Ladate) then
"ptck" a écrit dans le message de groupe de discussion :
bonjour
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il faut mais pour la variable ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide ptck
Dim mois As String Dim ladate As String mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2)
Ensuite fais un test pour savoir si "ladate" est une date reconnue par
Excel
tu pourrais même mettre des balises pour délimiter la date la plus
ancienne et la plus loin dans le future pour savoir si la date saisie
est à l'intérieur de bornes acceptables !
if isdate(Ladate) then
"ptck" <nospamptck@Monsitefai.fr> a écrit dans le message de groupe de
discussion :
us58NI0eKHA.2596@TK2MSFTNGP04.phx.gbl...
bonjour
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il
faut mais pour la variable
ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide
ptck
Dim mois As String
Dim ladate As String
mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :",
"Saisie", , , , , , 2)
Ensuite fais un test pour savoir si "ladate" est une date reconnue par Excel tu pourrais même mettre des balises pour délimiter la date la plus ancienne et la plus loin dans le future pour savoir si la date saisie est à l'intérieur de bornes acceptables !
if isdate(Ladate) then
"ptck" a écrit dans le message de groupe de discussion :
bonjour
J'ai ce bout de code, quand je le fais dans une cellule j'ai bien ce qu'il faut mais pour la variable ladate, j'ai un message : erreur 13 incompatibilité de type
merci de votre aide ptck
Dim mois As String Dim ladate As String mois = Application.InputBox("Tapez la date du stock sous forme jjmmaa :", "Saisie", , , , , , 2)