Je travaille sur un planning où je dois choisir une date (txtdateA) mais
pour 3 raisons différentes :
1)date aller
2)date retour
3)date expédition définitive
la date aller est rangée en colonne F,la date retour en colonne G et la date
définitive en colonne J. Actuellement avec le code ci dessous, la date est
renseignée dans F,G,J : mon souhait c'est de pouvoir renseigner la date soit
dans F, soit dans G, soit dans J (selon mon choix) : que dois je rajouter
dans mon code ?
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
Pierre Fauconnier
Bonjour
Excel ne saurait pas "sucer de son pouce" quel est le type de date renseigné...
Dès lors, il faut que tu ajoute des cases d'option ou une liste déroulante pour que la personne puisse renseigner quel type de date elle encode.
Alors, tu pourras effectuer le test sur cette deuxième donnée et attribuer la date à la bonne cellule.
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Run64" a écrit dans le message de news:
Bonjour,
Je travaille sur un planning où je dois choisir une date (txtdateA) mais pour 3 raisons différentes : 1)date aller 2)date retour 3)date expédition définitive
la date aller est rangée en colonne F,la date retour en colonne G et la date définitive en colonne J. Actuellement avec le code ci dessous, la date est renseignée dans F,G,J : mon souhait c'est de pouvoir renseigner la date soit dans F, soit dans G, soit dans J (selon mon choix) : que dois je rajouter dans mon code ?
Excel ne saurait pas "sucer de son pouce" quel est le type de date
renseigné...
Dès lors, il faut que tu ajoute des cases d'option ou une liste déroulante
pour que la personne puisse renseigner quel type de date elle encode.
Alors, tu pourras effectuer le test sur cette deuxième donnée et attribuer
la date à la bonne cellule.
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Run64" <dd@discussions.microsoft.com> a écrit dans le message de news:
1C523BDB-0246-4D09-843A-07A217520C48@microsoft.com...
Bonjour,
Je travaille sur un planning où je dois choisir une date (txtdateA) mais
pour 3 raisons différentes :
1)date aller
2)date retour
3)date expédition définitive
la date aller est rangée en colonne F,la date retour en colonne G et la
date
définitive en colonne J. Actuellement avec le code ci dessous, la date est
renseignée dans F,G,J : mon souhait c'est de pouvoir renseigner la date
soit
dans F, soit dans G, soit dans J (selon mon choix) : que dois je rajouter
dans mon code ?
Excel ne saurait pas "sucer de son pouce" quel est le type de date renseigné...
Dès lors, il faut que tu ajoute des cases d'option ou une liste déroulante pour que la personne puisse renseigner quel type de date elle encode.
Alors, tu pourras effectuer le test sur cette deuxième donnée et attribuer la date à la bonne cellule.
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Run64" a écrit dans le message de news:
Bonjour,
Je travaille sur un planning où je dois choisir une date (txtdateA) mais pour 3 raisons différentes : 1)date aller 2)date retour 3)date expédition définitive
la date aller est rangée en colonne F,la date retour en colonne G et la date définitive en colonne J. Actuellement avec le code ci dessous, la date est renseignée dans F,G,J : mon souhait c'est de pouvoir renseigner la date soit dans F, soit dans G, soit dans J (selon mon choix) : que dois je rajouter dans mon code ?
Private Sub Calendar1_Click() Me.TxtDateA = Me.Calendar1.Value Me.TxtDateA = Format(Me.Calendar1, "dd/MM/yy") Ladate = TxtDateA.Value Calendar1.Visible = False choix = InputBox("Faite un choix entre 1 2 ou 3" & Chr(10) & _ "Incriver le chiffre dans la case " & Chr(10) & Chr(10) & _ "1 - Date rangée" & Chr(10) & _ "2 - Date retour" & Chr(10) & _ "3 - Date définitive") If Not IsNumeric(choix) Then MsgBox "vous n'avez pas spécifier un bon choix" Exit Sub End If no = CLng(choix) If Not no >= 1 And no <= 3 Then MsgBox "vous n'avez pas spécifier un bon choix" Exit Sub End If Select Case no Case 1 Range("F" & num).Value = Ladate Case 2 Range("G" & num).Value = Ladate Case 3 Range("J" & num).Value = Ladate End Select End Sub
isabelle
Bonjour,
Je travaille sur un planning où je dois choisir une date (txtdateA) mais pour 3 raisons différentes : 1)date aller 2)date retour 3)date expédition définitive
la date aller est rangée en colonne F,la date retour en colonne G et la date définitive en colonne J. Actuellement avec le code ci dessous, la date est renseignée dans F,G,J : mon souhait c'est de pouvoir renseigner la date soit dans F, soit dans G, soit dans J (selon mon choix) : que dois je rajouter dans mon code ?
Private Sub Calendar1_Click()
Me.TxtDateA = Me.Calendar1.Value
Me.TxtDateA = Format(Me.Calendar1, "dd/MM/yy")
Ladate = TxtDateA.Value
Calendar1.Visible = False
choix = InputBox("Faite un choix entre 1 2 ou 3" & Chr(10) & _
"Incriver le chiffre dans la case " & Chr(10) & Chr(10) & _
"1 - Date rangée" & Chr(10) & _
"2 - Date retour" & Chr(10) & _
"3 - Date définitive")
If Not IsNumeric(choix) Then
MsgBox "vous n'avez pas spécifier un bon choix"
Exit Sub
End If
no = CLng(choix)
If Not no >= 1 And no <= 3 Then
MsgBox "vous n'avez pas spécifier un bon choix"
Exit Sub
End If
Select Case no
Case 1
Range("F" & num).Value = Ladate
Case 2
Range("G" & num).Value = Ladate
Case 3
Range("J" & num).Value = Ladate
End Select
End Sub
isabelle
Bonjour,
Je travaille sur un planning où je dois choisir une date (txtdateA) mais
pour 3 raisons différentes :
1)date aller
2)date retour
3)date expédition définitive
la date aller est rangée en colonne F,la date retour en colonne G et la date
définitive en colonne J. Actuellement avec le code ci dessous, la date est
renseignée dans F,G,J : mon souhait c'est de pouvoir renseigner la date soit
dans F, soit dans G, soit dans J (selon mon choix) : que dois je rajouter
dans mon code ?
Private Sub Calendar1_Click() Me.TxtDateA = Me.Calendar1.Value Me.TxtDateA = Format(Me.Calendar1, "dd/MM/yy") Ladate = TxtDateA.Value Calendar1.Visible = False choix = InputBox("Faite un choix entre 1 2 ou 3" & Chr(10) & _ "Incriver le chiffre dans la case " & Chr(10) & Chr(10) & _ "1 - Date rangée" & Chr(10) & _ "2 - Date retour" & Chr(10) & _ "3 - Date définitive") If Not IsNumeric(choix) Then MsgBox "vous n'avez pas spécifier un bon choix" Exit Sub End If no = CLng(choix) If Not no >= 1 And no <= 3 Then MsgBox "vous n'avez pas spécifier un bon choix" Exit Sub End If Select Case no Case 1 Range("F" & num).Value = Ladate Case 2 Range("G" & num).Value = Ladate Case 3 Range("J" & num).Value = Ladate End Select End Sub
isabelle
Bonjour,
Je travaille sur un planning où je dois choisir une date (txtdateA) mais pour 3 raisons différentes : 1)date aller 2)date retour 3)date expédition définitive
la date aller est rangée en colonne F,la date retour en colonne G et la date définitive en colonne J. Actuellement avec le code ci dessous, la date est renseignée dans F,G,J : mon souhait c'est de pouvoir renseigner la date soit dans F, soit dans G, soit dans J (selon mon choix) : que dois je rajouter dans mon code ?
