FORUM MP | Algorithmes : Décriptage de fichier Visual Basic

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Décriptage de fichier Visual Basic
	Forum : ALGORITHMES Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ ALGORITHMES
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

FORUM ALGORITHMES
	Page précedente	Page suivante

sam38100
Nouveau membre

Inscrit : 23/01/2008
Messages : 5

#148158 Posté le 23/01/08 à 10:39

Bonjour à tous,

Je doit commenter le code d'un fichier VB pour un cour, et je n'arrive pas à décrire l'utilité de chaque ligne de code.
Pourriez vous m'apporter votre aide ??
Il faudrait décrire les lignes à l'aide de commentaire si possible.
je joint le code à la fin du message en espérant que l'un de vous pourra m'accorder de son temps pour décrypter le code.
En vous remerciant par avance
Samuel Villeneuve
------------------------------------------------------------------------
Private Sub CommandButton2_Click()
Unload CHRONO
End Sub

Private Sub UserForm_Initialize()
datej = Date
With Sheets("Feuil2").Range("A1")
Me.rp.RowSource = Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
End With

With Sheets("Feuil2").Range("B1")
Me.ass.RowSource = Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
End With

With Sheets("Feuil2").Range("C1")
Me.dom.RowSource = Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
End With
With Sheets("Feuil2").Range("D1")
Me.TYPEF.RowSource = Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
End With

With Sheets("Feuil2").Range("E1")
Me.REF.RowSource = Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
End With

End Sub

Private Sub CommandButton1_Click()

If rp.Value = "" Then
MsgBox ("Vous devez choisir un suiveur d'affaires")
rp.SetFocus
Exit Sub
End If

If ass.Value = "" Then
MsgBox ("Vous devez choisir une assistante")
ass.SetFocus
Exit Sub
End If

If dom.Value = "" Then
MsgBox ("Vous devez choisir un client")
dom.SetFocus
Exit Sub
End If

If Intit.Value = "" Then
MsgBox ("Vous devez saisir la remarque")
Intit.SetFocus
Exit Sub
End If

If client.Value = "" Then
MsgBox ("Vous devez saisir la nouveauté ")
client.SetFocus
Exit Sub
End If

If TYPEF.Value = "" Then
MsgBox ("Vous devez choisir un commercial ")
TYPEF.SetFocus
Exit Sub
End If

If REF.Value = "" Then
MsgBox ("Vous devez choisir un commercial ")
REF.SetFocus
Exit Sub
End If

num = Sheets("FEUIL1").Range("B65536").End(xlUp).Row + 1
Sheets("Feuil1").Activate
Range("B" & num).Value = datej.Value
Range("A" & num).Value = Month(datej) & "-" & Year(datej) & "-" & num
Range("C" & num).Value = rp.Value
Range("D" & num).Value = ass.Value
Range("E" & num).Value = dom.Value
Range("F" & num).Value = Intit.Value
Range("G" & num).Value = client.Value
Range("h" & num).Value = TYPEF.Value
Range("I" & num).Value = DTPicker1.Value

CHRONO.Hide
reponse = MsgBox("Le numéro chrono de cette information est " & Month(datej) & "-" & Year(datej) & "-" & num & Chr(10) & " " & "L'action est bien enregistrée dans le classeur chrono, la relance peut se faire le " & CDate(datej) + 15, vbYes, "Attribution numéro chrono")
End Sub

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

bigguiz
Membre MP

Inscrit : 27/07/2006
Messages : 235

#148175 Posté le 23/01/08 à 15:37

Roh ben il pas compliqué ce code...

Tu n'as pas pu mettre le moindre commentaire? Poste déjà une version avec ce que t'as pu faire.

Sinon tu piges le fonctionnement global?
__________________________
Eoliennes et informatique sur freresguizmo

HAUT DE PAGE

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.