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

Signaler
Messages postés
11
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
13 mai 2011
-
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
-
Bonjour,

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

Pouvez-vouqs m'aider ?

Cdt

Olisharq

7 réponses

Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
Merci ! ça marche (ferme le cas)
ou
Merci ! je teste et te tien au courant ?
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
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à
Messages postés
11
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
13 mai 2011

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
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
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.
Messages postés
11
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
13 mai 2011

Bonjour,

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

Cdt
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
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.
Messages postés
11
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
13 mai 2011

J'ai vu et corrigé la macro.

Merci !