Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 10 23:10:30

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

VBA.CARNET DE BORD

Information sur la source

Note :
Aucune note

Catégorie :VBA Classé sous :carnet, bord, vba, temps, gestion Niveau :Débutant Date de création :29/11/2006 Vu / téléchargé :5 598 / 661

Auteur : mirmoleboss

Ecrire un message privé

Site perso

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

ceci est un petit programme qui fait office de carnet de bord

Source

Private Sub CommandButton1_Click()
UserForm1.Hide
Sheets(1).Unprotect
n = Sheets(1).Cells(1, 26).Value
Sheets(1).Cells(8 + n, 1).Value = Date
If nom1.Value = True Then
Sheets(1).Cells(8 + n, 2).Value = nom1.Caption
Else: Sheets(1).Cells(8 + n, 2).Value = ""
End If
If nom2.Value = True Then
Sheets(1).Cells(9 + n, 2).Value = nom2.Caption
Else: Sheets(1).Cells(9 + n, 2).Value = ""
End If
If nom3.Value = True Then
Sheets(1).Cells(10 + n, 2).Value = nom3.Caption
Else: Sheets(1).Cells(10 + n, 2).Value = ""
End If
If nom4.Value = True Then
Sheets(1).Cells(11 + n, 2).Value = nom4.Caption
Else: Sheets(1).Cells(11 + n, 2).Value = ""
End If
Sheets(1).Cells(8 + n, 3).Value = TextBox1.Value
Sheets(1).Cells(9 + n, 3).Value = TextBox2.Value
Sheets(1).Cells(10 + n, 3).Value = TextBox3.Value
Sheets(1).Cells(11 + n, 3).Value = TextBox4.Value
Sheets(1).Cells(8 + n, 4).Value = pb.Value
Sheets(1).Cells(8 + n, 5).Value = obj.Value
Sheets(1).Cells(1, 26).Value = n + 4
Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Private Sub UserForm_Initialize()
nom1.Caption = Sheets(1).Cells(3, 2).Value
nom2.Caption = Sheets(1).Cells(4, 2).Value
nom3.Caption = Sheets(1).Cells(5, 2).Value
nom4.Caption = Sheets(1).Cells(6, 2).Value
dat.Caption = Date
End Sub

Private Sub CommandButton1_Click()
    UserForm1.Hide
    Sheets(1).Unprotect
    n = Sheets(1).Cells(1, 26).Value
    Sheets(1).Cells(8 + n, 1).Value = Date
    If nom1.Value = True Then
        Sheets(1).Cells(8 + n, 2).Value = nom1.Caption
    Else: Sheets(1).Cells(8 + n, 2).Value = ""
    End If
    If nom2.Value = True Then
        Sheets(1).Cells(9 + n, 2).Value = nom2.Caption
    Else: Sheets(1).Cells(9 + n, 2).Value = ""
    End If
    If nom3.Value = True Then
        Sheets(1).Cells(10 + n, 2).Value = nom3.Caption
    Else: Sheets(1).Cells(10 + n, 2).Value = ""
    End If
    If nom4.Value = True Then
        Sheets(1).Cells(11 + n, 2).Value = nom4.Caption
    Else: Sheets(1).Cells(11 + n, 2).Value = ""
    End If
    Sheets(1).Cells(8 + n, 3).Value = TextBox1.Value
    Sheets(1).Cells(9 + n, 3).Value = TextBox2.Value
    Sheets(1).Cells(10 + n, 3).Value = TextBox3.Value
    Sheets(1).Cells(11 + n, 3).Value = TextBox4.Value
    Sheets(1).Cells(8 + n, 4).Value = pb.Value
    Sheets(1).Cells(8 + n, 5).Value = obj.Value
    Sheets(1).Cells(1, 26).Value = n + 4
    Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub



Private Sub UserForm_Initialize()
    nom1.Caption = Sheets(1).Cells(3, 2).Value
    nom2.Caption = Sheets(1).Cells(4, 2).Value
    nom3.Caption = Sheets(1).Cells(5, 2).Value
    nom4.Caption = Sheets(1).Cells(6, 2).Value
    dat.Caption = Date
End Sub

Conclusion

fonctionne parfaitement mais l'ajout d'une valeur commence A44 donc si vous savez corriger ca dite le moi
merci

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

carnetdebord.xls56 832 octets

Télécharger le zip

Sources du même auteur

(VBA)GESTIONNAIRE DE STOCK DUNE PME

Toutes les sources de mirmoleboss

Sources de la même categorie

GESTION PERSONNEL par oudlarbi

CALENDRIER EN VBA POUR EXCEL 2010 par nounou94

MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai

COLLECTION ID par Le Pivert

VBA MASQUE DE SAISIE NUMÉRIQUE par acive

Toutes les sources de la catégorie VBA

Sources en rapport avec celle ci

UTILITAIRE GESTION INVITATIONS par mimiZanzan

GESTION DE STOCK MAGASIN SOUS VBA + CHARGEMENT ET GÉNÉRATION... par cboulas

PROGRAMME DE GESTION D'EMPLOI DU TEMPS SCOLAIRE par greg1709

GESTION DE PERSONNES EN VB6 DANS UNE BASE ACCESS. par eric111

VBA - ACCESS 2000 - GESTION AVANCEE D'UN PARC INFORMATIQUE par Filou07

Commentaires et avis

Commentaire de romit le 29/11/2006 18:11:36

Sur la capture:

travail au pluriel c'est travaux ^^

Commentaire de mirmoleboss le 29/11/2006 18:20:17

OUI cest vrai je corrige ceci pour la prochaine mise a jour

Commentaire de tubafat le 05/12/2006 07:22:35

Pour commencer à écrire dès le début du tableau il faut tout simplement que tu réinitialises ta cellule en A26, sur ton fichier, il y a 44 dedans dès la première ouverture...

Commentaire de mirmoleboss le 05/12/2006 20:58:51

ah ok bah jessaye ca demain et remet une version
merci beaucoup ce programmme sert ou pas???

Commentaire de rebzou le 05/12/2006 23:28:11

il est bien ton petit programme, ça ma donné des idées.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

gestion du temps [ par jan ] je débute depuis peu dans la programmation et j'aimeraiafficher en temps réel ...le tempsafficher dans un label chaque sec qui passe 1 2 etc...je sais Gestion Temporisation [ par babedy ] BabedyJe cherche une méthode pour créer simplement une temporisation avec maintien paramétrable c'est à dire une procédure où je définis le temps de b vba et powerpoint [ par barthos2003 ] bloublouBonjour,Je voudrais pouvoir gerer precisement le temps de presentation d'un element graphique sous powerpoint (par exemple afficher un carré a Gestion des ScrollBars dans une 2 ListView !!!! [ par ManDeq59 ] Bonjour, J'ai deux ListView (ListView1 et ListView2) avec des enregistrements dans chacun d'eux.J'aimerais que les deux scrollbars des 2 listView désc URGENT VBa EXCEL JE SUIS AU BORD DU SUICIDE !!!!! [ par ndro ] j ai un probleme sur lequel je suis en train de m arracher les cheveux.........SVP donnez moi la syntaxe exacte pour pouvoir faire ce qui suit :j ai u code en VBA pour la gestion des exercices [ par pulker ] bonjour,je veux un code pour la gestion des exercices c'est à dire si un exercice (année) fini, comment passer à un nouvel exercice dans le même prog VBA et outlook : Un temps monstreux et saturation de mémoire !! [ par zlackzj13 ] Salut à tous !J'ai développé une appli avec vba sous outlook qui créer des contacts et qui les place dans des listes de distribution.Il y a plus de 38 Gestion plantage [ par kat40 ] Bonjour à tous,J'ai une application VB avec une base de données ACCESS. Lorsque quelqu'un ouvra l'application un 1 va s'inscrire dans la base de donn Compteur de temps en VBA [ par dreads ] Bonjour, j'ai besoin de connaitre le temps que mets mon application pour se lancer, mais VBA ne me permet que de faire des temps en seconde. QQ'un con

Nos sponsors

Derniers Blogs

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

Forum

RE : AJOUTER UN ENREGISTREMENT DANS UNE TABLE par souriant

RE : PROJET DE GESTION DE STOCK par samantika

RE : GESTION ETUDIANT par Manou417

RE : GESTION ETUDIANT par samantika

RE : AJOUTER UN ENREGISTREMENT DANS UNE TABLE par NHenry

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011