Obligation de remplir certaines cellules

tototiti2008

XLDnaute Barbatruc

• 16 Juillet 2008

• #2

Re : Obligation de remplir certaines cellules

Bonjour gradiva,

un petit bout de fichier pour voir comment tu as organisé ton questionnaire ?
merci 🙂

 

Vote positif 0 Vote négatif

G

gradiva

Guest

• 16 Juillet 2008

• #3

Re : Obligation de remplir certaines cellules

Je suis vraiment désolé mais ce document est à usage interne donc il est absolument interdit de le poster sur des forums, d´autant plus désolé que je comprend bien que ca vous aiderez à bien comprendre le pb.

Je reste disponible pour tte autre information évidemment!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juillet 2008

• #4

Re : Obligation de remplir certaines cellules

Re


Alors que fais-tu sur ce forum ? 😀

Tu braves l'interdit ?


Plus sérieursement, pourquoi ne pas poster un exemplaire fictif ?

(avec des données fantaisistes)

 

Vote positif 0 Vote négatif

G

gradiva

Guest

• 16 Juillet 2008

• #5

Re : Obligation de remplir certaines cellules

Voilà j'ai ajouté une version du document en question (j'ai osé braver l'interdit en effet 😀)...en espérant que ça vous aide à comprendre 🙂

Merci beaucoup!

 

Pièces jointes

• excel essai 2.zip

  11.8 KB · Affichages: 67

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juillet 2008

• #6

Re : Obligation de remplir certaines cellules

Re



C'est un fichier Word ton fichier ????


pourquoi l'appeler excel essai 2.zip ????

 

Vote positif 0 Vote négatif

G

gradiva

Guest

• 16 Juillet 2008

• #7

Re : Obligation de remplir certaines cellules

Faut faire Alt+F11 pour voir les codes.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juillet 2008

• #8

Re : Obligation de remplir certaines cellules

Re

😕😕

Ton fichier Word ne contient aucun code VBA.

 

Vote positif 0 Vote négatif

G

gradiva

Guest

• 16 Juillet 2008

• #9

Re : Obligation de remplir certaines cellules

Effectivement qd je l'ai compressé pour pouvoir l'uploader il a perdu les codes VBA 😕

J'ai juste fais un copier/coller de ces codes ds ce nouveau doc joint. Ca ressemble un peu à un puzzle, désolé...

C'etait juste pour donner une idée du pb.
Pour résumer je cherche à ce qu eles cases "oui" et "non" et les cases situées en bas de celles-ci soient interdépendantes avec qd on coche "non" l everrouillage de ces cases et qd on coche "oui" l'obligation de remplir ces cases.

Merci en tt cas de considérer ce pb.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juillet 2008

• #10

Re : Obligation de remplir certaines cellules

Re


Recapitulons

Ton fichier sera (est) in fichier Excel ou un fichier Word ?

Car ici on aime d'abord Excel

ensuite on partage notre amour avec Word
voire avec Access
et même Powerpoint.

 

Dernière édition: 16 Juillet 2008

Vote positif 0 Vote négatif

G

gradiva

Guest

• 16 Juillet 2008

• #11

Re : Obligation de remplir certaines cellules

les codes sont dans Excell et l'interface est dans World. Pour combiner vos deux passions 🙂 Mais disons que résoudre le pb à base de codes serait génial mais indiquer la trame pour avancer serait déjà trè sbien aussi 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Juillet 2008

• #12

Re : Obligation de remplir certaines cellules

Re


Ok

Et on peut les voir les codes VBA ou pas ?

 

Vote positif 0 Vote négatif

G

gradiva

Guest

• 16 Juillet 2008

• #13

Re : Obligation de remplir certaines cellules

ah oui désolé, la fatigue...Je me permet tt recopier directement ici:

Sub VCT_Ref()
'
' VCT_Ref Macro
' Macro created 03/06/2008 by guc
'
If ActiveDocument.FormFields("VCT_Ref").Result = "" Then
Do
sInFld = InputBox("Insert your 3-letter code below.")
Loop While sInFld = ""
ActiveDocument.FormFields("VCT_Ref").Result = sInFld
End If
End Sub

Sub Prj_Name()
'
' Prj_Name Macro
'
If ActiveDocument.FormFields("Prj_Name").Result = "" Then
Do
sInFld = InputBox("Insert Project Title below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Prj_Name").Result = sInFld
End If
End Sub

Sub Prj_Host()
'
' Country Macro
'
If ActiveDocument.FormFields("Prj_Host").Result = "" Then
Do
sInFld = InputBox("Insert Host Country below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Prj_Host").Result = sInFld
End If

End Sub

Sub Prj_Tech()
'
' Prj_Tech Macro
'
If ActiveDocument.FormFields("Prj_Tech").Result = "" Then
Do
sInFld = InputBox("Insert Technology and Power below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Prj_Tech").Result = sInFld
End If
End Sub

Sub Date_Const()
'
' Date_Const Macro
'
If ActiveDocument.FormFields("Date_Const").Result = "" Then
Do
sInFld = InputBox("Insert Start of Construction Date (MMM 20xx) below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Date_Const").Result = sInFld
End If
End Sub

Sub Date_Op()
'
' Date_Op Macro
'
If ActiveDocument.FormFields("Date_Op").Result = "" Then
Do
sInFld = InputBox("Insert Start of Operation Date (MMM 20xx) below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Date_Op").Result = sInFld
End If
End Sub

Sub Date_Reg()
'
' Date_Reg Macro
'
If ActiveDocument.FormFields("Date_Reg").Result = "" Then
Do
sInFld = InputBox("Insert Registration Date (MMM 20xx) below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Date_Reg").Result = sInFld
End If
End Sub

Sub Prj_PO()
'
' Prj_PO Macro
'
If ActiveDocument.FormFields("Prj_PO").Result = "" Then
Do
sInFld = InputBox("Insert Project Owner's Name below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Prj_PO").Result = sInFld
End If
End Sub

Sub Prj_PD()
'
' Prj_PD Macro
'
If ActiveDocument.FormFields("Prj_PD").Result = "" Then
Do
sInFld = InputBox("Insert Project Developer's Name below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Prj_PD").Result = sInFld
End If
End Sub

Sub Prj_Ag()
'
' Prj_Ag Macro
'
If ActiveDocument.FormFields("Prj_Ag").Result = "" Then
Do
sInFld = InputBox("Insert Agent's Name below (insert 'none' in case no Agent).")
Loop While sInFld = ""
ActiveDocument.FormFields("Prj_Ag").Result = sInFld
End If
End Sub

Sub Prj_CDM()
'
' Prj_CDM Macro
'
If ActiveDocument.FormFields("Prj_CDM").Result = "" Then
Do
sInFld = InputBox("Insert Project CDM Developer's Name below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Prj_CDM").Result = sInFld
End If
End Sub

Sub Cr_Type()
'
' Cr_Type Macro
'
If ActiveDocument.FormFields("CR_Type").Result = "" Then
Do
sInFld = InputBox("Insert Credit Type below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Cr_Type").Result = sInFld
End If
End Sub

Sub Cr_Vol()
'
' Cr_Vol Macro
'
If ActiveDocument.FormFields("CR_Vol").Result = "" Then
Do
sInFld = InputBox("Insert Yearly expected Credit Volumes below.")
Loop While sInFld = ""
ActiveDocument.FormFields("Cr_Vol").Result = sInFld
End If
End Sub

Sub Cr_Tot()
'
' Cr_Tot Macro
'
If ActiveDocument.FormFields("CR_Tot").Result = "" Then
Do
sInFld = InputBox("Insert Total Credit Volume until 2012.")
Loop While sInFld = ""
ActiveDocument.FormFields("Cr_Tot").Result = sInFld
End If
End Sub

Sub CF_Cx()
'
' Cr_Cx Macro
'
If ActiveDocument.FormFields("CF_Cx").Result = "" Then
Do
sInFld = InputBox("Insert the Project's Total Investment below.")
Loop While sInFld = ""
ActiveDocument.FormFields("CF_Cx").Result = sInFld
End If
End Sub

Sub CF_Status()
'
' Cr_Status Macro
'
If ActiveDocument.FormFields("CF_Status").Result = "" Then
Do
sInFld = InputBox("Insert the Project's Financial Status below (eg financial closure reached).")
Loop While sInFld = ""
ActiveDocument.FormFields("CF_Status").Result = sInFld
End If
End Sub

A noter que je n'avais pas mis tt le contenu de la page world, je n'ai gardé que ce qui était intéressant. Voilà j'espère que ca peut vous aider à comprendre...

 

Vote positif 0 Vote négatif