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
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
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
Bonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message de
news: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
Bonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de
news: 616D8B16-0FFF-4E83-A5F6-E575F3093B4A@microsoft.com...
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
Bonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message de
news: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
Bonjour Daniel...
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
JulieBonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message de
news: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
Bonjour Daniel...
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
Bonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de
news: 616D8B16-0FFF-4E83-A5F6-E575F3093B4A@microsoft.com...
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
Bonjour Daniel...
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
JulieBonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message de
news: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
Non.
"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" a écrit dans le message de
news:Bonjour Daniel...
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
JulieBonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message
de
news: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
Non.
"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" <JoJulie@discussions.microsoft.com> a écrit dans le message de
news: 71B096C1-561C-4BEA-B8D1-47C46B0991A7@microsoft.com...
Bonjour Daniel...
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
Bonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message
de
news: 616D8B16-0FFF-4E83-A5F6-E575F3093B4A@microsoft.com...
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
Non.
"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" a écrit dans le message de
news:Bonjour Daniel...
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
JulieBonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message
de
news: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
En complement
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" a écrit dans le message de news:Non.
"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" a écrit dans le message de
news:Bonjour Daniel...
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
pardéfaut... Note: La valeur de la cellule peut changer... voilà pourquoi
jene
peux mettre une texte par défaut....
J'aimerais pouvoir me servir de cette boite de dialogue pour vérifier
lespararamè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
sije fais ok... elle transpose des réponses vide... donc efface ce qui
peutdéjà être dans la cellule... Si plus tard je dois changer le no de
projetspar exemple... j'aimerais pouvoir le faire sans tout remettre les
réponsesau
question
Merci beaucoup à toi
JulieBonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message
denews: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
informationslà
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
lesinformations 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
boitede
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'aien
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
En complement
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uT2NBbDnFHA.3656@TK2MSFTNGP09.phx.gbl...
Non.
"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" <JoJulie@discussions.microsoft.com> a écrit dans le message de
news: 71B096C1-561C-4BEA-B8D1-47C46B0991A7@microsoft.com...
Bonjour Daniel...
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
Bonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message
de
news: 616D8B16-0FFF-4E83-A5F6-E575F3093B4A@microsoft.com...
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
En complement
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" a écrit dans le message de news:Non.
"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" a écrit dans le message de
news:Bonjour Daniel...
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
pardéfaut... Note: La valeur de la cellule peut changer... voilà pourquoi
jene
peux mettre une texte par défaut....
J'aimerais pouvoir me servir de cette boite de dialogue pour vérifier
lespararamè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
sije fais ok... elle transpose des réponses vide... donc efface ce qui
peutdéjà être dans la cellule... Si plus tard je dois changer le no de
projetspar exemple... j'aimerais pouvoir le faire sans tout remettre les
réponsesau
question
Merci beaucoup à toi
JulieBonjour.
Par exemple :
[A1]= InputBox("toto", , [A1])
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message
denews: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
informationslà
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
lesinformations 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
boitede
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'aien
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
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
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
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
Bonjour...
merci beaucoup pour les bon conseil... mais je dois avouer que je suis
très
embêté de la faocn àincorporer cela dans mes codes... (selon ceux que
j'utilise)
Serait-ce trop vous demander de m'aiguiller en ce sens
Voici mes codes
__________________________________________________________________
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
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
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
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
___________________________________________________________________
Excusez mon manque de connaissance...
Merci infiniment
Julie
Bonjour...
merci beaucoup pour les bon conseil... mais je dois avouer que je suis
très
embêté de la faocn àincorporer cela dans mes codes... (selon ceux que
j'utilise)
Serait-ce trop vous demander de m'aiguiller en ce sens
Voici mes codes
__________________________________________________________________
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
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
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
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
___________________________________________________________________
Excusez mon manque de connaissance...
Merci infiniment
Julie
Bonjour...
merci beaucoup pour les bon conseil... mais je dois avouer que je suis
très
embêté de la faocn àincorporer cela dans mes codes... (selon ceux que
j'utilise)
Serait-ce trop vous demander de m'aiguiller en ce sens
Voici mes codes
__________________________________________________________________
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
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
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
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
___________________________________________________________________
Excusez mon manque de connaissance...
Merci infiniment
Julie
Bonjour.
En supposant que :
Dialogue_Edition_Tache soit un userform et que :
Dialogue_Edition_Tache.nu_projet soit une zone de texte, mets :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("feuil1").Cells(2, 4)
avant :
Call Dialogue_Edition_Tache.Show
et fais de même pour les autres zones de texte.
J'espère avoir répondu à ta question mais n'hésite pas à répondre si tu ne
comprends pas.
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message de
news:Bonjour...
merci beaucoup pour les bon conseil... mais je dois avouer que je suis
très
embêté de la faocn àincorporer cela dans mes codes... (selon ceux que
j'utilise)
Serait-ce trop vous demander de m'aiguiller en ce sens
Voici mes codes
__________________________________________________________________
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
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
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
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
___________________________________________________________________
Excusez mon manque de connaissance...
Merci infiniment
Julie
Bonjour.
En supposant que :
Dialogue_Edition_Tache soit un userform et que :
Dialogue_Edition_Tache.nu_projet soit une zone de texte, mets :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("feuil1").Cells(2, 4)
avant :
Call Dialogue_Edition_Tache.Show
et fais de même pour les autres zones de texte.
J'espère avoir répondu à ta question mais n'hésite pas à répondre si tu ne
comprends pas.
Cordialement.
Daniel
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de
news: DC3377EB-9A76-4E85-B882-F04F062558B1@microsoft.com...
Bonjour...
merci beaucoup pour les bon conseil... mais je dois avouer que je suis
très
embêté de la faocn àincorporer cela dans mes codes... (selon ceux que
j'utilise)
Serait-ce trop vous demander de m'aiguiller en ce sens
Voici mes codes
__________________________________________________________________
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
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
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
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
___________________________________________________________________
Excusez mon manque de connaissance...
Merci infiniment
Julie
Bonjour.
En supposant que :
Dialogue_Edition_Tache soit un userform et que :
Dialogue_Edition_Tache.nu_projet soit une zone de texte, mets :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("feuil1").Cells(2, 4)
avant :
Call Dialogue_Edition_Tache.Show
et fais de même pour les autres zones de texte.
J'espère avoir répondu à ta question mais n'hésite pas à répondre si tu ne
comprends pas.
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message de
news:Bonjour...
merci beaucoup pour les bon conseil... mais je dois avouer que je suis
très
embêté de la faocn àincorporer cela dans mes codes... (selon ceux que
j'utilise)
Serait-ce trop vous demander de m'aiguiller en ce sens
Voici mes codes
__________________________________________________________________
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
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
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
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
___________________________________________________________________
Excusez mon manque de connaissance...
Merci infiniment
Julie
Erratum :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("Coûts").Cells(2, 4)
au lieu de :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("feuil1").Cells(2, 4)
Daniel
"Daniel" a écrit dans le message de news:Bonjour.
En supposant que :
Dialogue_Edition_Tache soit un userform et que :
Dialogue_Edition_Tache.nu_projet soit une zone de texte, mets :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("feuil1").Cells(2, 4)
avant :
Call Dialogue_Edition_Tache.Show
et fais de même pour les autres zones de texte.
J'espère avoir répondu à ta question mais n'hésite pas à répondre si tu ne
comprends pas.
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message de
news:Bonjour...
merci beaucoup pour les bon conseil... mais je dois avouer que je suis
très
embêté de la faocn àincorporer cela dans mes codes... (selon ceux que
j'utilise)
Serait-ce trop vous demander de m'aiguiller en ce sens
Voici mes codes
__________________________________________________________________
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
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
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
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
___________________________________________________________________
Excusez mon manque de connaissance...
Merci infiniment
Julie
Erratum :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("Coûts").Cells(2, 4)
au lieu de :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("feuil1").Cells(2, 4)
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eNlD56PnFHA.2472@TK2MSFTNGP15.phx.gbl...
Bonjour.
En supposant que :
Dialogue_Edition_Tache soit un userform et que :
Dialogue_Edition_Tache.nu_projet soit une zone de texte, mets :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("feuil1").Cells(2, 4)
avant :
Call Dialogue_Edition_Tache.Show
et fais de même pour les autres zones de texte.
J'espère avoir répondu à ta question mais n'hésite pas à répondre si tu ne
comprends pas.
Cordialement.
Daniel
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de
news: DC3377EB-9A76-4E85-B882-F04F062558B1@microsoft.com...
Bonjour...
merci beaucoup pour les bon conseil... mais je dois avouer que je suis
très
embêté de la faocn àincorporer cela dans mes codes... (selon ceux que
j'utilise)
Serait-ce trop vous demander de m'aiguiller en ce sens
Voici mes codes
__________________________________________________________________
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
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
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
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
___________________________________________________________________
Excusez mon manque de connaissance...
Merci infiniment
Julie
Erratum :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("Coûts").Cells(2, 4)
au lieu de :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("feuil1").Cells(2, 4)
Daniel
"Daniel" a écrit dans le message de news:Bonjour.
En supposant que :
Dialogue_Edition_Tache soit un userform et que :
Dialogue_Edition_Tache.nu_projet soit une zone de texte, mets :
Dialogue_Edition_Tache.nu_projet.Value = Sheets("feuil1").Cells(2, 4)
avant :
Call Dialogue_Edition_Tache.Show
et fais de même pour les autres zones de texte.
J'espère avoir répondu à ta question mais n'hésite pas à répondre si tu ne
comprends pas.
Cordialement.
Daniel
"Jo-Julie" a écrit dans le message de
news:Bonjour...
merci beaucoup pour les bon conseil... mais je dois avouer que je suis
très
embêté de la faocn àincorporer cela dans mes codes... (selon ceux que
j'utilise)
Serait-ce trop vous demander de m'aiguiller en ce sens
Voici mes codes
__________________________________________________________________
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
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
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
If Dialogue_Edition_Tache.Tag = ACTION_BOUTON_ANNULER Then
Call MsgBox("Ajout annulé ! ", vbInformation, _
"Anulation")
Exit Sub
End If
___________________________________________________________________
Excusez mon manque de connaissance...
Merci infiniment
Julie
