Bte de dialogue
Le
Jo-Julie
Bonjour à tous
Merci encore une fois de prendre le temps de me lire et de m'aider.
J'ai dans un projet une boite de dialogue pour insérer des informations là
ou requis tout fonctionne à merveille Sauf que j'aimerais que lorsque
j'ouvre la boite de dialogue Que les champs de réponse m'affiche les
informations déjà dans la cellule en question
Ex: No de projet : _______________
Je dois inscrire le no de projet dans le champs qui se transporte dans
une cellule XY Le champs est toujours vide à l'ouverture de la boite de
dialogue Par contre si quelque chose est déjà inscrit dans la cellule
YX est-Il possible que a boite de dialogue l'affiche
Je joins tous le bla bla afin de vous aider à comprendre ce que j'ai en
ce moment comme code..
Si quelqu'un peut me dire ce que je dois changer ou ajouter ce serait super!!!
merci beaucoup à tous!!!
Julie
__________________________________________________________________
Option Explicit
' Remplir exel
Public Sub exel(nu_projet As String, description As String, client As
String, date_debut As String)
'insère # client
Sheets("Coûts").Cells(2, 4) = nu_projet
'insère la description
Sheets("Coûts").Cells(4, 4) = description
'insère le client
Sheets("Coûts").Cells(5, 4).Value = client
'insère la date début
Sheets("Coûts").Cells(5, 11).Value = date_debut
End Sub
__________________________________________________________________
Option Explicit
' AJOUTER_TACHE
Sub ajouter_tache()
Dim nu_projet As String
Dim description As String
Dim client As String
Dim date_debut As String
Dim recommencer As Boolean
Do
' On affiche la boite de dialogue
Call Dialogue_Edition_Tache.Show
If Dialogue_Edition_Tache.Tag = "" Then
Call MsgBox("Ajout annulé ! ", vbInformation, "Annulation")
Exit Sub
ElseIf Dialogue_Edition_Tache.Tag = Module_Constante.ACTION_BOUTON_OK Then
nu_projet = Dialogue_Edition_Tache.nu_projet
description = Dialogue_Edition_Tache.desciption_projet
client = Dialogue_Edition_Tache.client
date_debut = Dialogue_Edition_Tache.date_debut
Call Module_EXCEL.exel(nu_projet, description, client, date_debut)
Exit Sub
End If
'si on pèse sur annuler on ferme la boite de dialogue
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
Loop Until recommencer = True
End Sub
Merci encore une fois de prendre le temps de me lire et de m'aider.
J'ai dans un projet une boite de dialogue pour insérer des informations là
ou requis tout fonctionne à merveille Sauf que j'aimerais que lorsque
j'ouvre la boite de dialogue Que les champs de réponse m'affiche les
informations déjà dans la cellule en question
Ex: No de projet : _______________
Je dois inscrire le no de projet dans le champs qui se transporte dans
une cellule XY Le champs est toujours vide à l'ouverture de la boite de
dialogue Par contre si quelque chose est déjà inscrit dans la cellule
YX est-Il possible que a boite de dialogue l'affiche
Je joins tous le bla bla afin de vous aider à comprendre ce que j'ai en
ce moment comme code..
Si quelqu'un peut me dire ce que je dois changer ou ajouter ce serait super!!!
merci beaucoup à tous!!!
Julie
__________________________________________________________________
Option Explicit
' Remplir exel
Public Sub exel(nu_projet As String, description As String, client As
String, date_debut As String)
'insère # client
Sheets("Coûts").Cells(2, 4) = nu_projet
'insère la description
Sheets("Coûts").Cells(4, 4) = description
'insère le client
Sheets("Coûts").Cells(5, 4).Value = client
'insère la date début
Sheets("Coûts").Cells(5, 11).Value = date_debut
End Sub
__________________________________________________________________
Option Explicit
' AJOUTER_TACHE
Sub ajouter_tache()
Dim nu_projet As String
Dim description As String
Dim client As String
Dim date_debut As String
Dim recommencer As Boolean
Do
' On affiche la boite de dialogue
Call Dialogue_Edition_Tache.Show
If Dialogue_Edition_Tache.Tag = "" Then
Call MsgBox("Ajout annulé ! ", vbInformation, "Annulation")
Exit Sub
ElseIf Dialogue_Edition_Tache.Tag = Module_Constante.ACTION_BOUTON_OK Then
nu_projet = Dialogue_Edition_Tache.nu_projet
description = Dialogue_Edition_Tache.desciption_projet
client = Dialogue_Edition_Tache.client
date_debut = Dialogue_Edition_Tache.date_debut
Call Module_EXCEL.exel(nu_projet, description, client, date_debut)
Exit Sub
End If
'si on pèse sur annuler on ferme la boite de dialogue
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
Loop Until recommencer = True
End Sub
Poser une question
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" news:
Corriges moi si je me trompe... (je suis plutôt débutante en VBA)
Si je comprends bien ton code... Dans la cellule A1... la valeur par défaut
de ma bte dialogue serait Toto... Est-ce exact?...
ce que j'aimerais... c'est que la valeur de la cellule soit la réponse par
défaut... Note: La valeur de la cellule peut changer... voilà pourquoi je ne
peux mettre une texte par défaut....
J'aimerais pouvoir me servir de cette boite de dialogue pour vérifier les
pararamètres déjà entrés et pouvoir les changer au besoin....
En ce moment ma bte afiche les champs de réponse au question vide... et si
je fais ok... elle transpose des réponses vide... donc efface ce qui peut
déjà être dans la cellule... Si plus tard je dois changer le no de projets
par exemple... j'aimerais pouvoir le faire sans tout remettre les réponses au
question
Merci beaucoup à toi
Julie
"Toto" est l'intitulé de la boîte de dialogue. La boîte affiche le contenu
de la cellule A1 et le remplace par ce qui a été saisi.
Daniel
"Jo-Julie" news:
Dans ce cas il est bon de tester si l'utilisateur click sur Annuler qui
renvoie vide
rep= InputBox("toto", , [A1])
If rep<>"" Then [A1]=rep
"Daniel"
cellule ?
Daniel
"Youky"