[PDF] Manipulation des Objets Excel sous VBA

View - Download Manipulation des Objets Excel sous VBA

Previous PDF

Next PDF

Manipulation des Objets Excel sous VBA

Programmation objet■

D"abords les enregistrements :?

Regroupement au sein d"une même structure d"un ensemble de données élémentaires Déclarés en VB avec le mot clé Type :■ Syntaxe :Type nomchamps_1 as type_1champs_2 as type_2 ...End Type

Exemple :Type TDatejour As Integermois As Integerannee As IntegerEnd TypeType Etudiantnumero As Integernom As Stringprénom As StringdateNaissance As TDateEnd Type

Pour accéder aux champs : ■

Dim e As Etudiant

e.numero = 100 e.dateNaissance.annee = 1988 ■Ensuite les Classes :?Enrichissement de la notion d"enregistrement ?Objet = ensemble de données (attributs) permettant de caractériser l"objet ensemble de programmes (méthodes) servant à modifier les attributs ?Programme Objet = ensemble d"objets ■Exemple

ETUDIANT

numéro nom prénom dateNaissance note+age()+modifierNote()+afficher()

Encapsulation■Consiste à regrouper dans un objet et ses propriétés et les méthodes qu"on peut lui appliquer

■Intérêts :?Masquer l"implémentation : les utilisateurs n"ont pas besoin de savoir comment vous avez implémenté votre module ?Ces objets, une fois implémentés, deviennent des " boîtes noires »

Propriétés■

La méthode la plus simple pour implémenter des propriétés est d"utiliser des variables publiques. Pour implémenter une propriété, il suffit de déclarer des variables publiques dans notre module de classe

Public nom as String

Public prénom as String

Problèmes :?

Impossible de créer une propriété en lecture (ou écriture) seule Impossible de savoir quand une propriété est modifiée

Impossible de vérifier la validé des valeurs (par exemple une date de naissance doit toujours être une date révolue)

Les procédures Propoerty■Les procédures Property permettent de donner un accès complet ou limité aux propriétés d"un objet

■Nous accédons à ces données à travers des méthodes

■Il existe 3 procédures Property :?Property get : lecture de la propriété quelque soit son

type ?Property let : écriture des propriétés de type simple ?Property set : écriture des propriétés de type objet.

Nouvelle implémentation Private eNom As StringPrivate ePrenom As StringPrivate eDateNaissance As DateProperty let Nom(nNom as String)eNom = nNomEnd PropertyProperty get Nom() as StringNom = eNomEnd Property...Property let DateNaissance(nDateNaissance as Date)If nDateNaissance > Now ThenMsgBox '"Une date de naissance ne peut être dans le futur !""ElseeDateNaissance = nDateNaissanceEnd Property

Méthodes■Comme dans un module simple, les méthodes peuvent, soit ne pas renvoyer de valeur (procédure Sub), soit renvoyer une valeur (fonction Function)

Exemple :

Public Function age() As Integer

age = DateDiff('"yyyy"",eDateNaissance,Now,vbMonday,vbFirstFourDays) If DateAdd('"yyyy"",age,Me.DateNaissance)>Now Then age = age - 1

End If

End Function

Exemple1.

Aller sur l"éditeur VBA (Alt+F11)

2.

Créer une nouvelle classe Etudiant

3.

Saisir le code de la classe

1.

D"abords les propriétés

Private eNumero As Integer

Private eNom As String

Private ePrenom As String

Private eDateNaissance As Date

2.

Puis les accesseurs :

Property let Numero(nNumero as Integer)If Len(nNumero) = 0 ThenMsgBox '"Le numéro ne peut être vide '"ElseeNumero = nNumeroEnd IfEnd PropertyProperty get Numero () as IntegerNumero = eNumeroEnd PropertyProperty let Nom(nNom as String)If Len(nNom) = 0 ThenMsgBox '"Le nom ne peut être vide '"ElseeNom = nNomEnd IfEnd PropertyProperty get Nom() as StringNom = eNomEnd Property...Property let DateNaissance(nDateNaissance as Date)If nDateNaissance > Now ThenMsgBox '"Une date de naissance ne peut être dans le futur !""ElseeDateNaissance = nDateNaissanceEnd Property

3.

Définir les méthodes

Public Function age() As Integer

age = DateDiff('"yyyy"",eDateNaissance,Now,vbMonday,vbFirstFourDays) If DateAdd('"yyyy"",age,Me.DateNaissance)>Now Then age = age - 1

End If

End Function

Public Sub nSet(newNote As Double)

eNote = newNote

End Sub

Pour tester notre classe :

1.

Dans l "éditeur, on crée un nouveau module

2.

On saisie le code du test :

Sub TestEtudiant()Dim e As New EtudiantWith e.Numero = InputBox('"Numéro de l"étudiant :"").Nom = .Prenom = .DateNaissance = .Note = End WithMsgBox ('"L"étudiant est âgé de : '" + CStr(e.age) + '"ans"")End Sub

Exercice■Dans une feuille de calcul, saisir une liste d"étudiants faisant partie d"une classe (nom, prénom, Date de naissance, Moyenne)

■Définir l"objet Classe. Cet objet contiendra un tableau d"étudiants et doit permettre de calculer la moyenne, la meilleur et la plus mauvaise note de la classe

quotesdbs_dbs24.pdfusesText_30

[PDF] excel experience day 2016 - Plans D'Affaires

[PDF] EXCEL fonctions financières - Anciens Et Réunions

[PDF] EXCEL Gaine Rigide et Flexible - Les Lois De Construction

[PDF] Excel initiation

[PDF] Excel Macros VBA

[PDF] EXCEL NIVEAU III - Email

[PDF] Excel par l`exemple – Exercice 18

[PDF] Excel par l`exemple – Exercice 6

[PDF] Excel Password Remover 2015 v2015 - Anciens Et Réunions

[PDF] EXCEL Perfectionnement

[PDF] Excel pour responsable de production

[PDF] Excel Services Excel Online – Excel web access titre et - Anciens Et Réunions

[PDF] Excel Template

[PDF] Excel Timeline Template

[PDF] Excel TP 1 - LIPN - Université Paris 13