J'ai d=E9j=E0 obtenu l'info que si je fais :
ActiveCell.Value =3D CDate(InputBox("Ech=E9ance", "Alors ?"))
lorsque je saisis 15/09 j'obtiens 15/09/04
1) Comment am=E9liorer cette instruction pour que la saisie=20
soit centr=E9e?
2) J'ai besoin ensuite de saisir un libell=E9 centr=E9=20
commen=E7ant par M qu'elle est l'intruction pour que ce=20
libell=E9 qui commence par M que je ne veux pas saisir soit=20
centr=E9?
3)J'ai besoin ensuite de saisir une valeur que je veux =E0=20
droite et avec s=E9parateur de milier et 2 chiffres apr=E8s=20
la virgule.
Merci encore pour votre aide
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
Philippe.R
Bonjour, L'enregistreur de macros est d'un grand secours pour élaborer le code souhaité : 1) Tu ajoutes cette ligne à la suite de celle reproduite : ActiveCell.HorizontalAlignment = xlCenter 2) masaisie = InputBox("Libellé S.V.P. :", "On continue") ActiveCell.Value = "M" & masaisie ActiveCell.HorizontalAlignment = xlCenter 3) activecell.value = InputBox("Et une valeur maintenant :", "Vous allez pas vous en tirer comme ça !")*1 Selection.NumberFormat = "#,##0.00" -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Jean-Paul V" a écrit dans le message de news: 31b601c4addb$57feb590$ Bojour
J'ai déjà obtenu l'info que si je fais : ActiveCell.Value = CDate(InputBox("Echéance", "Alors ?")) lorsque je saisis 15/09 j'obtiens 15/09/04 1) Comment améliorer cette instruction pour que la saisie soit centrée? 2) J'ai besoin ensuite de saisir un libellé centré commençant par M qu'elle est l'intruction pour que ce libellé qui commence par M que je ne veux pas saisir soit centré? 3)J'ai besoin ensuite de saisir une valeur que je veux à droite et avec séparateur de milier et 2 chiffres après la virgule. Merci encore pour votre aide
Bonjour,
L'enregistreur de macros est d'un grand secours pour élaborer le code souhaité :
1) Tu ajoutes cette ligne à la suite de celle reproduite :
ActiveCell.HorizontalAlignment = xlCenter
2)
masaisie = InputBox("Libellé S.V.P. :", "On continue")
ActiveCell.Value = "M" & masaisie
ActiveCell.HorizontalAlignment = xlCenter
3)
activecell.value = InputBox("Et une valeur maintenant :", "Vous allez pas vous en tirer comme ça !")*1
Selection.NumberFormat = "#,##0.00"
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Jean-Paul V" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
31b601c4addb$57feb590$a601280a@phx.gbl...
Bojour
J'ai déjà obtenu l'info que si je fais :
ActiveCell.Value = CDate(InputBox("Echéance", "Alors ?"))
lorsque je saisis 15/09 j'obtiens 15/09/04
1) Comment améliorer cette instruction pour que la saisie
soit centrée?
2) J'ai besoin ensuite de saisir un libellé centré
commençant par M qu'elle est l'intruction pour que ce
libellé qui commence par M que je ne veux pas saisir soit
centré?
3)J'ai besoin ensuite de saisir une valeur que je veux à
droite et avec séparateur de milier et 2 chiffres après
la virgule.
Merci encore pour votre aide
Bonjour, L'enregistreur de macros est d'un grand secours pour élaborer le code souhaité : 1) Tu ajoutes cette ligne à la suite de celle reproduite : ActiveCell.HorizontalAlignment = xlCenter 2) masaisie = InputBox("Libellé S.V.P. :", "On continue") ActiveCell.Value = "M" & masaisie ActiveCell.HorizontalAlignment = xlCenter 3) activecell.value = InputBox("Et une valeur maintenant :", "Vous allez pas vous en tirer comme ça !")*1 Selection.NumberFormat = "#,##0.00" -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Jean-Paul V" a écrit dans le message de news: 31b601c4addb$57feb590$ Bojour
J'ai déjà obtenu l'info que si je fais : ActiveCell.Value = CDate(InputBox("Echéance", "Alors ?")) lorsque je saisis 15/09 j'obtiens 15/09/04 1) Comment améliorer cette instruction pour que la saisie soit centrée? 2) J'ai besoin ensuite de saisir un libellé centré commençant par M qu'elle est l'intruction pour que ce libellé qui commence par M que je ne veux pas saisir soit centré? 3)J'ai besoin ensuite de saisir une valeur que je veux à droite et avec séparateur de milier et 2 chiffres après la virgule. Merci encore pour votre aide
