Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Cdate InputBox

Cdate InputBox

3 réponses
Avatar
Jean-Paul V
Bonjour à tous

J’ai cette macro qui marche si je saisis 01 08 j’obtiens août
ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
ActiveCell.Value = CDate(InputBox("Date Pièce Comptable à saisir par
exemple 01Blanc08 donne août", "Alors ?"))
ActiveCell.Value = "01 " & masaisie

J’aimerais en saisissant 08 obtenir août, j’avais pensé à :

ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
masaisie = CDate(InputBox("Date Pièce Comptable à saisir par exemple 08_
donne août", "Alors ?"))
ActiveCell.Value = "01 " & masaisie

Ça marche pas, y-a-t-il une solution ?

à+ j'espère
Signaler un problème avec ce contenu

3 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
Philippe.R
Bonjour Jean-Paul V,

ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
masaisie = InputBox("Date Pièce Comptable à saisir" & _
"par exemple 08 donne août", "Alors ?")
ActiveCell.Value = CDate("01/" & masaisie)

convient il mieux ?
--
Avec plaisir
Philippe.R
"Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous

J’ai cette macro qui marche si je saisis 01 08 j’obtiens août
ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
ActiveCell.Value = CDate(InputBox("Date Pièce Comptable à saisir par
exemple 01Blanc08 donne août", "Alors ?"))
ActiveCell.Value = "01 " & masaisie

J’aimerais en saisissant 08 obtenir août, j’avais pensé à :

ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
masaisie = CDate(InputBox("Date Pièce Comptable à saisir par exemple 08_
donne août", "Alors ?"))
ActiveCell.Value = "01 " & masaisie

Ça marche pas, y-a-t-il une solution ?

à+ j'espère


Avatar
JB
Bonjour,

ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
masaisie = InputBox("xxxx?")
ActiveCell.Value = CDate("01/ " & masaisie)

JB
http://boisgontierjacques.free.fr

On 9 sep, 08:34, Jean-Paul V
wrote:
Bonjour à tous

J'ai cette macro qui marche si je saisis 01 08 j'obtiens août
ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
ActiveCell.Value = CDate(InputBox("Date Pièce Comptable à saisir p ar
exemple 01Blanc08 donne août", "Alors ?"))
ActiveCell.Value = "01 " & masaisie

J'aimerais en saisissant 08 obtenir août, j'avais pensé à :

ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
masaisie = CDate(InputBox("Date Pièce Comptable à saisir par exemp le 08_
donne août", "Alors ?"))
ActiveCell.Value = "01 " & masaisie

Ça marche pas, y-a-t-il une solution ?

à+ j'espère


Avatar
Jean-Paul V
Merci ça marche ! ! !


Bonjour Jean-Paul V,

ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
masaisie = InputBox("Date Pièce Comptable à saisir" & _
"par exemple 08 donne août", "Alors ?")
ActiveCell.Value = CDate("01/" & masaisie)

convient il mieux ?
--
Avec plaisir
Philippe.R
"Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous

J’ai cette macro qui marche si je saisis 01 08 j’obtiens août
ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
ActiveCell.Value = CDate(InputBox("Date Pièce Comptable à saisir par
exemple 01Blanc08 donne août", "Alors ?"))
ActiveCell.Value = "01 " & masaisie

J’aimerais en saisissant 08 obtenir août, j’avais pensé à :

ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "mmmm"
masaisie = CDate(InputBox("Date Pièce Comptable à saisir par exemple 08_
donne août", "Alors ?"))
ActiveCell.Value = "01 " & masaisie

Ça marche pas, y-a-t-il une solution ?

à+ j'espère