[Catégorie ENCORE modifiée .Net -> VBA] VBA : Utiliser une boite de dialog pour [Résolu]

Messages postés
11
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
13 mai 2011
- - Dernière réponse : 4u4me4us
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
- 12 mai 2011 à 11:44
Bonjour,

Je souhaiterai via VBA une boîte de Dialog pour renseigner une celule sur un fichier excel.

Pouvez-vouqs m'aider ?

Cdt

Olisharq
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
3
Merci
Merci ! ça marche (ferme le cas)
ou
Merci ! je teste et te tien au courant ?

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 205 internautes nous ont dit merci ce mois-ci

Commenter la réponse de 4u4me4us
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
0
Merci
il faut que tu cherche un code du style ( Je tape de tête)

sheet.range("A1") = inputbox "saisie"

C cela l'idée. si tu veux de l'aide plus précis dis précisément ou tu veux de l'aide avec le code que tu as déjà
Commenter la réponse de 4u4me4us
Messages postés
11
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
13 mai 2011
0
Merci
Je te détaille mon souhait :

Je souhait après une macro, qu'il y est une boîte de dialog qui s'ouvre et qui :

1- Pose la question suivante : Veuillez saisir la date du J-2 ?
2- Sous le format : JJ MMMM AAAA
3- Et que le résultat soit enregistré dans la cellule "AA1".

Ci-dessous ma dernière macro avant cette étape :

Sub DelaiEtape5()
'
' DelaiEtape6 Macro
'
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
Columns("J:J").Select
Selection.Copy
Columns("I:I").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("J:J").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("J2:L655").Select
Selection.ClearContents

xxxxxxxxxxxxxxxxxxxxxx
End Sub
Commenter la réponse de olisharq
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
0
Merci
Dans ce cas il te faut que tu cherche un code du style ( Je tape de tête)

date = inputbox "Saisie date ...."
date = forma(date,"jj mm dddd")'comme tu veut
sheet.range("AA1") = date

Tu as tout les éléments plus que un chouïa de recherche.
Commenter la réponse de 4u4me4us
Messages postés
11
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
13 mai 2011
0
Merci
Bonjour,

J'ai personnalisé ta macro. Mais elle modifie la date sur mon PC et non sur la cellule AA1 ??

Cdt
Commenter la réponse de olisharq
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
0
Merci
Tu dis "Mais elle modifie la date sur mon PC et non sur la cellule AA1"

EXCUSE MOI MAIS C HILARANT!

Bref, effectivement j'ai mis date et c une fonction protégée. remplace date par v_date.
Commenter la réponse de 4u4me4us
Messages postés
11
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
13 mai 2011
0
Merci
J'ai vu et corrigé la macro.

Merci !
Commenter la réponse de olisharq